Найти самый популярный факультет

Среда, 09 Сен 2009

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

Program facultet;
Type
fak = Record
name : String[50];
kspec: integer;
kstud: integer;
End;
Var
f : file of fak;
p : fak;
ch:char;
b :boolean;
max:integer;
maxfak:string[50];
Begin
b:=false;
Assign(F,’D:\pascal\Test1.txt’);
try
reset(f);
except
b:=true;
writeln(’Nenaiden fail’);
rewrite(f);
{zapolnim}
writeln(’dobavim zapis? y/n’);
read(ch);
while upcase(ch)=’Y’ do
begin
writeln(’name - ‘);
Read(p.name);
writeln(’kspec - ‘);
Read(p.kspec);
writeln(’kstud - ‘);
read(p.kstud);
write(f,p);
writeln(’dobavim zapis? y/n’);
read(ch);
end;
end;
{4itaem}
if b then reset(f);
max:=0;
while not eof(f) do
begin
read(f,p);
if max<p.kstud then begin
max:=p.kstud;
maxfak:=p.name;
end;
end;
close(f);
writeln(maxfak);
End.

Рубрика: Комбинированный файл | Comments Off

Найти студентов, имеющих нужный средний бал

Среда, 09 Сен 2009

Файл комбинированного типа содержит такую информацию: фамилию и инициалы студента, название группы, средний бал последней сессии. Подсчитать количество студентов, которые имееют средний бал выше 9.

Program studenti;
Type
stud = Record
fio : String[50];
group: string[10];
SredBal :integer;
End;
Var
f : file of stud;
p : stud;
ch:char;
b :boolean;
kol:integer;
Begin
b:=false;
Assign(F,’D:\pascal\Test1.txt’);
try
reset(f);
except
b:=true;
writeln(’Nenaiden fail’);
rewrite(f);
{zapolnim}
writeln(’dobavim zapis? y/n’);
read(ch);
while upcase(ch)=’Y’ do
begin
writeln(’fio - ‘);
Read(p.fio);
writeln(’group - ‘);
Read(p.group);
writeln(’sredbal - ‘);
read(p.sredbal);
write(f,p);
writeln(’dobavim zapis? y/n’);
read(ch);
end;
end;
{4itaem}
if b then reset(f);
kol:=0;
while not eof(f) do
begin
read(f,p);
if p.sredbal>9 then kol:=kol+1;
end;
close(f);
writeln(kol);
End.

Рубрика: Комбинированный файл | Comments Off

12»