| Vladimir_S |
10.05.2012 23:08 |
Цитата:
Сообщение от gabriela
(Сообщение 730447)
исправила.вот только никак понять не могу как вводить предметы и оценки
|
Так, ну вот Вам Ваша программа, правда как Вы собираетесь вводить данные но 10 студентов по 10 сессиям, каждая из коих включает 5 предметов, я не очень представляю, но дело Ваше. По-моему, этим можно заниматься "долгими зимними вечерами".
Код:
const
n=10;
type
session = array[1..10,1..5] of record
name: string;
mark: 2..5;
end;
student = record
fio: string;
curs: 1..5;
group: 1..9;
result:session;
formaobuch:char;
sum:Word;
end;
TFile= file of student ;
tmas=array [1..n] of student;
//--------------------------------------------------------
procedure vvodstudent(var st:student);
var
i,j:integer;
begin
with st do
begin
sum:=0;
write('Name: ');
readln(fio);
write('Course: ');
readln(curs);
write('Group: ');
readln(group);
writeln('Session results:');
for i:=1 to curs*2 do
begin
writeln('Session N',i,':');
for j:=1 to 5 do
begin
write('Subject of examination: ');
readln(result[i,j].name);
write('Mark: ');
readln(result[i,j].mark);
Inc(sum,result[i,j].mark);
end;
end;
write('Form of study: ');
readln(formaobuch);
end;
end;
//-------------------------------------------------------------------
procedure writestudent(var st:student);
var
i,j:integer;
begin
with st do
begin
writeln('Name: ',FIO,', Course: ',curs,' Group: ',group,' Form: ',formaobuch);
for i:=1 to curs*2 do
begin
writeln('Session ',i,': ');
for j:=1 to 4 do
write(result[i,j].name,': ',result[i,j].Mark,', ');
writeln(result[i,5].name,': ',result[i,5].Mark);
end;
end;
Writeln('Press "Enter" to continue...');
end;
var f1:Tfile;
rec,rec5:tmas;
q,p,N5:Byte;
Dummy:student;
begin
Assign(f1,'af.int');
rewrite(f1);
for q:=1 to n do
begin
vvodstudent(rec[q]);
Write(f1,rec[q]);
writeln;
end;
Close(f1);
writeln;
for q:=1 to n do
begin
writestudent(rec[q]);
readln;
end;
writeln;
N5:=0;
for q:=1 to n do
If rec[q].curs=5 then
begin
Inc(N5);
rec5[N5]:=rec[q];
end;
For p:=1 to N5-1 do
For q:=1 to N5-p do
if rec5[q].sum<rec5[q+1].sum then
begin
Dummy:=rec5[q];
rec5[q]:=rec5[q+1];
rec5[q+1]:=Dummy;
end;
Assign(f1,'af5.int');
rewrite(f1);
for q:=1 to N5 do
begin
writeln(rec5[q].fio:40,rec5[q].sum:4);
write(f1,rec5[q]);
end;
Close(f1);
readln;
end.
|
