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


Файл комбинированного типа содержит такую информацию: фамилию и инициалы студента, название группы, средний бал последней сессии. Подсчитать количество студентов, которые имееют средний бал выше 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.

Теги: , , , , ,

Найти предметы по количеству часов начитки


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

Program 100chasov;
Type
rasp = Record
name : String[50];
NomSem: integer;
Kol4as: integer;
End;
Var
f: file of rasp;
p : rasp;
ch:char;
b:boolean;
n: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(’nazvanie - ‘);
Read(p.name);
writeln(’nomer semestra - ‘);
Read(p.nomsem);
writeln(’kvo 4asov - ‘);
read(p.kol4as);
write(f,p);
writeln(’dobavim zapis? y/n’);
read(ch);
end;
end;
{4itaem}
if b then reset(f);
writeln(’Vvedite nomer semestra’);
read(n);
while not eof(f) do
begin
read(f,p);
if (p.NomSem=n) and (p.Kol4as>100) then writeln(p.name,’ ‘,p.nomsem,’ ‘,p.kol4as);
end;
close(f);
End.

Теги: , , , , , ,

«1234567891011121314151617181920»