Памогите доделать практическую по BP7

[_Сергей_]

Сделал уже примерно 80% а больше не получается. Они похожы некоторые но почемуто у меня не хотят работать.
1. Даны две действительные квадратные матрицы порядка n. Получить но-вую матрицу прибавлением к элементам каждого столбца первой мат-рицы произведения элементов соответствующих строк второй матрицы
2. Дан двумерный массив, содержащий 12 строк и 14 столбцов. Элементами массива являются целые числа. Упорядочить массив по неубыванию эле-ментов первой строки
3. В данном тексте удалить каждый символ * и повторить все остальные сим-волы
4. Напечатать все слова, отличные от последнего, предварительно удалив из слова все предыдущие вхождения первой буквы
5. Ввести и обработать три массива, содержащие соответственно 5, 10 и 4 це-лых компонента.
5. Распечатать анкетные данные студентов, получив¬ших в первую сессию все оценки 5
6. (это я вобще не могу)Багаж пассажиров характеризуется фамилией пассажира, количеством ве-щей и общим весом вещей. Написать две программы: первая должна созда-вать такой файл, а вторая должна создать новый файл в который необходимо переписать сведения о пассажирах, добавив сведения о среднем весе каждой вещи багажа и в конце файла добавить сведения об ощем среднем весе всех пассажиров

[Stilet]

Сделал уже примерно 80% а больше не получается

Не вижу. В упор не вижу приведенного тобой кода, рабочего на 80% )

[_Сергей_]

Сообщение от Stilet

Не вижу. В упор не вижу приведенного тобой кода, рабочего на 80% )

Пожалуста Часть-------------------------------------------
Практическая работа №3.4
ВЫВОД ИЗОБРАЖЕНИЯ В ТЕКСТОВОМ РЕЖИМЕ.


Цель задания
1. Получение навыков в использовании операторов вывода.
2. Использовать оператор вывода для вывода изображения.
Постановка задачи
Используя, только оператор вывода, получить на экране изображение, соответствующее шаблону в заданном варианте. Рисунок расположить в центре экрана.

Текст программы:
program pr3_4;
begin
writeln(' ',#219,' ',#219);
writeln(' ',#219,' ',#219);
writeln(' ',#219,'',#219,' ',#219,' ',#219,' ',#219,'',#219);
writeln(' ',#219,'',#219,' ',#219,' ',#219,' ',#219,'',#219);
writeln(' ',#219,'',#219,' ',#219,'',#219,' ',#219,'',#219);
writeln(' ',#219,'',#219,' ',#219,'',#219,'',#219,'',#219,' ',#219,'',#219);
writeln(' ',#219,'',#219,'',#219,'',#219,'',# 219,'',#219);
writeln(' ',#219,'',#219,'',#219,'',#219,'',# 219,'',#219,'',#219,'',#219,'',#219 ,'',#219,'',#219,'',#219,'',#219,'' ,#219);
writeln(' ',#219,'',#219,'',#219,'',#219,'',# 219,'',#219,'',#219,'',#219,'',#219 ,'',#219,'',#219,'',#219,'',#219,'' ,#219);
writeln(' ',#219,'',#219,'',#219,'',#219,'',# 219,'',#219);
writeln(' ',#219,'',#219,'',#219,'',#219,'',# 219,'',#219);
writeln(' ',#219,'',#219,' ',#219,'',#219,'',#219,'',#219,' ',#219,'',#219);
writeln(' ',#219,'',#219,' ',#219,'',#219,' ',#219,'',#219);
writeln(' ',#219,'',#219,' ',#219,'',#219);
writeln(' ',#219,'',#219,' ',#219,'',#219);
end.


Результат:






Практическая работа №4.1
Оператор условия.


Цель задания
1. Ознакомление с оператором условия.
2. Получение навыков в составлении разветвленных программ


Постановка задачи
Написать программу для решения задачи, указанной в соответствующем варианте

Задача:
1. Даны переменные x, y. Выяснить, принадлежит ли точка с координатами (x, y) заштрихованной фигуре (рис. 1).

рис.1


Текст программы:
Program Prob4_1;
Var x,y : real;
Begin
Write('vvedite koordinati X, Y');
Readln(x,y);
If (x=0) and (y=0) and (x+y<=1)
Then writeln('tochka prinadlejit fegure')
Else writeln('tochka ne prinadlejit fegure');
End.

Ответ:



Практическая работа №6.1
Цель задания
1. Получение навыков в выборе и использовании различных операторов цикла.
2. Изучение алгоритма подсчета количества элементов последовательности, удовлетворяющих определенным условиям.
Постановка задачи
Используя оператор цикла, вводить с клавиатуры числа и выполнять с ними соответствующие действия. Результаты работы программы вывести, снабдив их соответствующими заголовками.
Задача
С клавиатуры вводятся целые положительные числа. Подсчитать количество введенных чисел и указать наибольшее из них.
Программа:
Program prob6-1;
Var num, k : integer;
Begin
Writeln('Вводите целые положительные числа');
Writeln('Окончание ввода – отрицательное число');
Readln(num);
While num>=0 do
Begin
If num mod 10 = 0 then K:=k+1;
Readln(num);
End;
Writeln('Количество введенных чисел, кратных 10', k);
End.
Ответ:

Практическая работа №6.2
Цель задания
1. Получение навыков в выборе и использовании различных операторов цикла.
2. Изучение алгоритма деления числа на цифры.
Постановка задачи
Используя оператор цикла, вводить с клавиатуры данные несколько раз и выполнять с ними соответствующие действия. Результаты работы программы вывести, снабдив их соответствующими заголовками.
Задача
Даны координаты вершин двух треугольников. Определить, какой из них имеет наибольшую площадь.
Программа
Program prob6-2;
Var i : integer;
A, s : real;
Begin
For i:=1 to 2 do begin
Writeln('Введите сторону ',i,'-го квадрата');
Readln(a);
S :=sqr(a);
Writeln('Площадь ',i,'-го квадрата равна ',s);
End;
End.
Ответ:



Практическая работа №6.3

Цель задания
1. Получение навыков в выборе и использовании различных операторов цикла.
2. Изучение алгоритма деления числа на цифры.

Постановка задачи
Используя оператор цикла, разделить введеннос с клавиатуры число, разделить его на отдельные цифры и выполнить с ними заданные действия.

Задача
Подсчитать сумму четных цифр во введенном с клавиатуры числе

Программа
Var num, digit : integer;
Begin
Write('Введите целое число: ');
Readln(Num);
Repeat
Digit:=Num mod 10;
Num:=Num div 10;
Writeln(Digit);
Until Num=0;
End.

---------------------------------------------------------------

[Olympian]

Ты немного не понял - где наработки по тому, что надо сделать, а не остальное. Если за тебя надо написать те 6 программ - то это для фриланса тема.
2000р - к вечеру будет готово. 7-305-938.