Примеры задач

Задача 1. Ввести матрицуAразмером 33 из файлаLab7a.txt, заменить в ней элементы выше главной диагонали на нули, а затем вывести эту матрицу в файлLab7c.txt.

Program Lab7b;

Var

A:array[1..3,1..3] of real;

i,j:integer;

f1,f2:text;

Begin

assign(f1,'Lab7a.txt');

assign(f2,'Lab7c.txt');

reset(f1); rewrite(f2);

for i:=1 to 3 do

for j:=1 to 3 do

read(f1,A[i,j]);

for i:=1 to 3 do

for j:=1 to 3 do

if i<j then A[i,j]:=0;

writeln(f2,'Массив A');

for i:=1 to 3 do

begin

for j:=1 to 3 do

write(f2,A[i,j]:10:3);

writeln(f2,'');

end;

close(f1); close(f2);

readln;

End.

Контрольный пример.

Исходные данные:

.

Результаты:

.

Задача 2. Задана запись студента с полями: фамилия, год рождения, средний балл за сессию. Начислить студенту стипендию, если известно, что за все отличные оценки начисляется стипендия в 1000 рублей, а за остальные оценки стипендия не начисляется.

Program Lab7d;

Var

student:record

fam:string[10];

god:integer;

ball:real;

end;

stip:real;

Begin

with student do

readln(fam,god,ball);

if student.ball=5 then stip:=1000 else stip:=0;

writeln('Стипендия – ',stip:5:1,' рублей');

End.

Контрольный пример.

Исходные данные:

Фамилия – Иванов

Год рождения – 1989

Средний балл – 5

Результаты:

Стипендия – 1000 рублей