помогите пожалуйста комментарии к задачам около циклов и переменых написать
Код:
program ex;
uses crt;
const n = 5;
type mtr=array[1..n, 1..n] of real;
procedure matrix(var a:mtr);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20)-10;
Write(a[i,j]:7:0);
end;
Writeln;
end;
end;
procedure poisk(a:mtr);
var i,j:integer;
isFound:boolean;
begin
isFound := false;
for i:=1 to n do
begin
for j:=1 to n do
if (A[i,j]>0) and (frac(A[i,j])=0) and (trunc(A[i,j]) mod 2 = 0) then
begin
WriteLn('В строке ',i,' есть положительный и чётный элемент!');
isFound := true;
break;
Readln;
if not isFound then WriteLn('Нет таких строчек!');
end;
end;
end;
var A : mtr;
begin
Randomize;
matrix(a);
poisk(a)
end.
Код:
Program file11;
uses crt;
Type rasp = record
fio: string [5];
group,aud: integer;
conk: string[20];
ins: string[20];
zan: string[10];
end;
procedure DoAll;
var
f: file of rasp;
name: string;
uch: array[1..4] of rasp;
gruppa,i:integer;
n:char;
day: string[20];
s1:rasp;
begin
clrscr;
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите фамилию и инициалы преподавателя ');
Readln (s1.fio);
While s1.fio <> ' ' do
Begin
Writeln ('Введите номер группы ');
Readln (s1.group);
writeln ('Введите предмет ');
readln (s1.conk);
writeln ('Введите день недели ');
readln (s1.ins);
writeln ('Введите время занятия ');
readln (s1.zan);
writeln ('Введите аудиторию ');
readln (s1.aud);
write (f,s1);
Writeln ('Введите фамилию и инициалы следующего преподавателя ');
Readln (name);
s1.fio:=name;
End;
Writeln ('Файл создан');
Close(f);reset(f);
writeln (' Pokazat spisok ');
while not Eof(f) do
begin
read (f,s1);
with s1 do begin
WriteLn('ФИО: ',fio);
WriteLn('Группа: ',group);
WriteLn('Предмет: ',conk);
WriteLn('День недели: ',ins);
WriteLn('Время занятий: ',zan);
WriteLn('Аудитория: ',aud);
WriteLn('----------------');
end;
end;
ReadLn(gruppa);
While not Eof(F) do begin
Read(f,s1);
if s1.group=gruppa then begin
readln (s1.zan);
readln (s1.conk);
readln (s1.aud);
readln (s1.fio);
end;
end;
Close(F);reset(f);
ReadLn(day);
While not Eof(F) do begin
Read(f,s1);
if s1.ins=day then begin
readln (s1.zan);
readln (s1.conk);
readln (s1.aud);
readln (s1.fio);
end;
end;
Close(F);
end; {конец процедуры}
begin
DoAll;
end.