Mr.47
Member
Написать программу, которая выдает следующую информацию:
- список студентов, имеющих задолженность за всеми предметами;
- название предмета и фамилии студентов, которые не сдали экзамен;
- По названию предмета и группой - средний балл по предмету.
переделайте плиз у меня вот есть пример как нужно,мне просто помогите расписать моё задание.Буду благодарна.Спасибо
Вот поиск пример:unit poisk;
interface
uses Crt;
type student=record
fam,group:string;
vidmitka1,vidmitka2,vidmitka3:real;
end;
var f:file of student;
z:student;
vidmitka1,vidmitka2,vidmitka3,v:real;
i,j,k:integer;
n_group:string;
a:string;
procedure poisk1;
implementation
procedure poisk1;
begin
clrscr;
assign(f, 'student.dat');
reset(f);
writeln('Введите номер групы ');
k:=0;
readln(n_group);
reset(f);
writeln;
while not (eof(f)) do
begin
read(f, z);
if n_group=z.group then k:=k+1
end;
close(f);
reset(f);
if k=0 then write('Takogi grupy net')
else
begin
begin
writeln('Spisok studentov ', n_group, ' gropy');
while not (eof(f)) do
begin
read(f, z);
v:=z.vidmitka1+z.vidmitka2+z.vidmitka3;
begin
if (n_group=z.group) and (v>=4)then
begin
write(z.fam);
end;
end;
end;
end;
readkey;
end;
end;
end.
И поэтому примеру сделайте прошу мои задания три.Спасибо
- список студентов, имеющих задолженность за всеми предметами;
- название предмета и фамилии студентов, которые не сдали экзамен;
- По названию предмета и группой - средний балл по предмету.
переделайте плиз у меня вот есть пример как нужно,мне просто помогите расписать моё задание.Буду благодарна.Спасибо
Вот поиск пример:unit poisk;
interface
uses Crt;
type student=record
fam,group:string;
vidmitka1,vidmitka2,vidmitka3:real;
end;
var f:file of student;
z:student;
vidmitka1,vidmitka2,vidmitka3,v:real;
i,j,k:integer;
n_group:string;
a:string;
procedure poisk1;
implementation
procedure poisk1;
begin
clrscr;
assign(f, 'student.dat');
reset(f);
writeln('Введите номер групы ');
k:=0;
readln(n_group);
reset(f);
writeln;
while not (eof(f)) do
begin
read(f, z);
if n_group=z.group then k:=k+1
end;
close(f);
reset(f);
if k=0 then write('Takogi grupy net')
else
begin
begin
writeln('Spisok studentov ', n_group, ' gropy');
while not (eof(f)) do
begin
read(f, z);
v:=z.vidmitka1+z.vidmitka2+z.vidmitka3;
begin
if (n_group=z.group) and (v>=4)then
begin
write(z.fam);
end;
end;
end;
end;
readkey;
end;
end;
end.
И поэтому примеру сделайте прошу мои задания три.Спасибо
