Тип record

[Руся93]

Вводится информация об итогах зимней сессии в группе, сведения о каждом студенте (всего их 25) заданы в виде текста: "фамилия", "имя", "год рождения", "оценка 1", "оценка2", "оценка 3", первая оценка за математику, вторая по физике, третья по программированию, "форма обучения(бюджетная, договорная)". Написать программу которая вводит это информацию и вывести на печать отсортированный по среднему баллу список студентов, возраст которых не превышает 18 лет, получавшик по математике 5 баллов.



Без этой программы оценки по программированию у меня не будет

[viron]

Вот на Delphi написал.

[Dilex]

Похожая тема уже обсуждалась !

program fff;
uses crt;
type pupil=record
        name, surname : string [20];
        s1, s2, s3 : 1..5;
        end;
type myarray= array [1..5] of pupil;
var
       err: text;
       mas1:myarray;
       i, n, a: integer;
procedure vvod (var mas:myarray);
begin
write ('ВВЕДИТЕ КОЛИЧЕСТВО УЧЕНИКОВ:');
write (err,'ВВЕДИТЕ КОЛИЧЕСТВО УЧЕНИКОВ:');
readln(n);
writeln (err, n);
writeln;
for i:=1 to n do
with mas[i] do begin
writeln ('УЧЕНИК ', i , '-ЫЙ');
writeln (err,'                             ');
writeln (err,'УЧЕНИК ', i , '-ЫЙ');
write ('ФАМИЛИЯ:');
write (err,'ФАМИЛИЯ:');
readln(surname);
writeln (err, surname);
write ('ИМЯ:');
write (err,'ИМЯ:');
readln(name);
writeln (err, name);
write ('1-Я ОЦЕНКА:');
write (err,'1-Я ОЦЕНКА:');
readln(s1);
writeln (err,s1);
write ('2-Я ОЦЕНКА:');
write (err,'2-Я ОЦЕНКА:');
readln(s2);
writeln (err, s2);
write ('3-Я ОЦЕНКА:');
write (err,'3-Я ОЦЕНКА:');
readln(s3);
writeln(err,s3);
writeln;
end;
end;
procedure vivod (var mas:myarray);
begin
writeln ('ЧЬИ ФАМИЛИИ ВЫ ХОТИТЕ УВИДЕТЬ???' );
writeln ('1 - ОТЛИЧНИКИ');
writeln ('2 - ХОРОШИСТЫ');
writeln ('3 - ТРОЕШНИКИ');
readln(a);
for i:=1 to n do
with mas[i] do
if (s1=5) and (s2=5) and (s3=5) and (a=1)
Then begin
writeln('ОТЛИЧНИКИ:');
writeln(err,'ОТЛИЧНИКИ:');
writeln (surname, '   ', name);
writeln (err,surname, '   ', name);
end
else if(s1>=4) and (s2>=4) and (s3>=4) and (a=2)
then begin
writeln ('ХОРОШИСТЫ:');
writeln (err,'ХОРОШИСТЫ:');
writeln (surname,'   ',name);
writeln (err,surname,'   ',name);
end
else if (s1>=3) and (s2>=3) and (s3>=3) and (a=3)
then begin
writeln ('ТРОЕШНИКИ:');
writeln (err,'ТРОЕШНИКИ:');
writeln (surname,'   ',name);
writeln (err,surname,'   ',name);
end;
End;
begin
clrscr;
ASSIGN (err,'С:\pupil.txt');
REWRITE (err);
Vvod (Mas1);
Vivod (Mas1);

CLOSE(err);
Readln;
end.

вот аналог твоей программы ! здесь как видно программа выводит фамилии по успеваемости ! переписать сам сможешь ?

Сразу скажу что эта программа ведёт еще и форму записи в текстовый документ

ASSIGN (err,'С:\pupil.txt');

[Руся93]

Попробую но врядли, т.к. в программировании не шарю вообще(((


Если вам не сложно не могли бы исправить

[Руся93]

Viron

А в паскале написать такое не сможешь?

[viron]

А в паскале написать такое не сможешь?

Сейчас попробую.

[Руся93]

Сообщение от viron

Сейчас попробую.

спасибо большое

[viron]

Я только немного недоделал ее.

[viron]

Ну вот доделал. Только без сортировки. Не знаю как в паскале сортировать.

[Руся93]

Сообщение от viron

Ну вот доделал. Только без сортировки. Не знаю как в паскале сортировать.

спасибо огромное