Написать программу на паскале! Нужна помощь срочно))
Створити файл, що містить відомості про здачу студентами сесії. Структура запису - індекс групи, прізвище студента, оцінки по п'яти іспитах і п'яти заліках ( "З" означає залік, "Н" - незачет ). Кількість записів - 25.
Визначити прізвища неуспішних студентів з вказівкою індексів груп і кількості заборгованостей.
program lr_5;
uses crt;
type
rec = record
index : string;
familiya : string;
ozenki : array[1..5] of byte;
zachet : array[5] of char;
massiv : array[1..5] of byte;
massiv_2:array[1..5] of byte;
end;
Var
f:file of rec;
stud : rec;
c:char;
x,s,j,i,n,min,min2,k,m:byte;
begin
clrscr;
assign(f,'D:\student\PZ-10-1\Gayday\gya.txt');
rewrite(f);
writeln(' ‚ўҐ¤ЁвҐ Ёд®а¬ жЁо ® бв㤥в е ! ');
repeat
writeln(' ‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® § ЇЁбҐ© : ');
read(x);
until (( x >=0)and(x < 25) );
for i:=1 to x do
begin
writeln(' ‚ўҐ¤ЁвҐ д ¬Ё«Ёо ',i,' - бв㤥в : ');
readln(stud.familiya);
writeln(' ‚ўҐ¤ЁвҐ Ё¤ҐЄб ЈагЇЇл : ');
readln(stud.index);
writeln(' ‚ўҐ¤ЁвҐ ®жҐЄЁ Ї® 5 нЄ§ ¬Ґ е : ');
for j:=1 to 5 do
begin
repeat
read(stud.ozenki[j]);
until((stud.ozenki[j]>1)and(stud.ozenki[j]<=5))
end;
writeln(' ‚ўҐ¤ЁвҐ § зҐвл Ї® 5 ЇаҐ¤¬Ґв е бв㤥в !(y/n)');
for n:=1 to 5 do
begin
repeat
read(stud.zachet[n]);
until((stud.zachet[n]<>'y')and(stud.zachet[n]<>'n'))
end;
write(f,stud);
end;
close(f);
writeln(' ‘в㤥вл : ');
writeln;
reset(f);
for i:=1 to x do
begin
read(f,stud);
writeln(stud.ozenki[1],',',stud.ozenki[2],',',stud.ozenki[3],','
,stud.ozenki[4],',',stud.ozenki[5],';');
write(stud.zachet[1],',',stud.zachet[2],',',stud.zachet[3],',',stud.zachet[4],',',stud.zachet[5]);
end;
{ read(f,stud);}
writeln;
writeln(' ЌҐгбЇҐў ойЁҐ : ');
k:=0;
m:=0;
for i:=1 to x do
begin
for j:=1 to 5 do
begin
if stud.ozenki[j] = 5 then k:=k+1;
if stud.zachet[j] = '§' then m:=m+1;
end;
if ((k<>5)or(m<>5)) then
begin
{ read(f,stud);}
min:=5-k;
min2:=5-m;
writeln(stud.index,'-',stud.familiya,'-',min,min2);
s:=s+1;
end;
k:=0; m:=0;
end;
if s=0 then
writeln(' ЌҐв ҐгбЇҐў ойЁе !');
readkey;
end.
не работает!
в смысле?