задачка паскаль на файл
program II5;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
kf=2;
kk=1;
kg=2;
num=30;
type
trec=record
n_fak:1..kf;
n_grup:0..kg;
n_stud:0..num;
n_dop:0..num;
n_5:0..num;
n_5_4:0..num;
n_2:0..num;
end;
mr=array[1..kf*kg] of trec;
procedure vvod(var rec:mr;var n:integer);
var i:integer;
begin
for i:=1 to kg do
begin
rec[i].n_fak:=n;
rec[i].n_grup:=i;
writeln (n,' fakultet. ',i,' gruppa');
writeln('vvedite kol-vo studentov');
readln (rec[i].n_stud);
writeln ('vvedite kol-vo dopushennix');
readln(rec[i].n_dop);
writeln ('vvedite kol-vo otlichnikov');
readln(rec[i].n_5);
writeln ('vvedite kol-vo xoroshistov');
readln(rec[i].n_5_4);
writeln ('vvedite kol-vo tri-dvoeshnikov');
readln(rec[i].n_2);
writeln;
end;
end;
procedure poisk(var isk:mr;var nomer:integer);
var min,i:integer;
begin
min:=30;
for i:=1 to kg do
if (isk[i].n_2<min) and (isk[i].n_grup=i) then
begin
min:=isk[i].n_2;
nomer:=i;
end;
end;
var
f:file of mr;
k:integer;
mrec:mr;
isk:mr;
nomer:integer;
begin
assign (f,'result.dat');
rewrite(f);
for k:=1 to kf do
vvod(mrec,k);
write (f,mrec);
writeln;
writeln('vvedite nuzhnii fakultet');
readln (k);
reset(f);
read(f,isk);
poisk(isk,nomer);
writeln ('gruppa N',nomer);
readln;
end.
|