Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ 2 матрицы 1 с функцией 1запись в файл и текст.файл

Автор: -LEX- 27.04.2005 21:02

1. В матрице размера 4х3 найти разность между суммой и произведе-нием элементом.
2. Сделать целочисленную матрицу размером 4х4 симметричной от-носительно главной диагонали, заменяя при отсутствии симметрии меньший элемент на больший.
3. Дано целое число N. (N<100), определяющее возраст человека (в го-дах). Определить подпрограмму, дающую для этого числа наименова-ния "год", "года" или "лет": например 1 год, 23 года, 45 лет и т.д.
4. Абитуриенты
Запись:
Ф.И.О, год рождения, средний балл по аттестату, баллы на вступительных экзаменах (4 экзамена)
Результаты обработки данных:
список абитуриентов набравших проходной балл (18) и коли-чество сдавших экзамены без троек
5. Написать процедуру для ввода из файла квадратной матрицы раз-мерности N (N<50). Написать функцию вычисления суммы элементов матрицы на главной диагонали. Вывести матрицу в одно окно на экране, а вычисленную сумму - в другое.

Автор: FreeMan 27.04.2005 21:28

1.

Код

sum:=0;
proizv:=1;
for i:=1 to 3 do
for j:=1 to 4 do begin
inc(sum,a[i,j]);
proizv:=proizv*a[i,j];
end;
writeln(sum-proizv);

Автор: FreeMan 27.04.2005 21:36

3.

Код

var
n:byte;
begin
readln(n);
if (n mod 10=0) or (n mod 10>5) or ((n>10) and (n<20)) then writeln('let')
else if n mod 10 = 1 then writeln('god') else witeln('goda');
readln;
end.

Автор: volvo 27.04.2005 21:40

FreeMan, внимательнее smile.gif

Цитата
if (n mod 10=0) or (n mod 10>=5) or ((n>10) and (n<20)) then writeln('let')
else if n mod 10 = 1 then writeln('god') else witeln('goda');

Автор: klem4 28.04.2005 14:03

Цитата
2. Сделать целочисленную матрицу размером 4х4 симметричной от-носительно главной диагонали, заменяя при отсутствии симметрии меньший элемент на больший.


как может отсутствоватьт симметрия если введена симметричная матрица ? blink.gif huh.gif

поясните задание.

Автор: klem4 28.04.2005 14:20

и вообще по поводу симметрии, вот такая нужна ?

for i:=2 to n do
     for j:=1 to i-1 do
      begin
         readln(x[i,j]);
         x[j,i]:=x[i,j];
      end;


Если да, то проверка на симметричность такимиже циклами,
Код
if x[i,j]<>x[j,i] then ...
замена или что там ....

Автор: -LEX- 28.04.2005 23:36

А вы бы не могли подсказать насчет 4 и 5 задачи, а то я совсем не знаю как их делать. Заранее спасибо!

Автор: FreeMan 28.04.2005 23:46

такие задачи многократно решались. юзай поиск (слово "записи" например), а также ФАК.