Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / G
.PAS Uses Crt;
Const
N=100;
Type
Names = Array [1..N] of String;
Temp = Array [1..N] of Integer;
Pf = record
Nam:Names;
T : Temp;
End;
Var
i,m,v : Integer;
f : File of Pf;
S : String;
Procedure Gon(S:String);
Var
f : File of Pf;
Begin
Assign(f,'Sanya.pas');
Reset(f);
Write(F,S);
Close(f);
End;
Begin
Repeat
ClrScr;
Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў«® Ј®а®¤®ў');
Readln(m);
Until (m>0) and (m<=N);
Writeln('‚ўҐ¤ЁвҐ б।оо ⥬ЇҐа вгаг');
Readln(v);
For i:=1 to m do
Begin
Write(i,'-л© Ј®а®¤:');
Readln(nam[i]);
Write(i,'-®Ј® Ј®а®¤ ⥬ЇҐа вга :');
Readln(t[i]);
End;
s:='';
For i:=1 to m do
Begin
If t[i]<v
Then s:=nam[i];
End;
End.
Const
N=100;
Type
Names = Array [1..N] of String;
Temp = Array [1..N] of Integer;
Pf = record
Nam:Names;
T : Temp;
End;
Var
i,m,v : Integer;
f : File of Pf;
S : String;
Procedure Gon(S:String);
Var
f : File of Pf;
Begin
Assign(f,'Sanya.pas');
Reset(f);
Write(F,S);
Close(f);
End;
Begin
Repeat
ClrScr;
Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў«® Ј®а®¤®ў');
Readln(m);
Until (m>0) and (m<=N);
Writeln('‚ўҐ¤ЁвҐ б।оо ⥬ЇҐа вгаг');
Readln(v);
For i:=1 to m do
Begin
Write(i,'-л© Ј®а®¤:');
Readln(nam[i]);
Write(i,'-®Ј® Ј®а®¤ ⥬ЇҐа вга :');
Readln(t[i]);
End;
s:='';
For i:=1 to m do
Begin
If t[i]<v
Then s:=nam[i];
End;
End.
Соседние файлы в папке Alex