Ребята пожалуйста у кого есть какие соображения на счет этой программы, а то я все команды забыл(
Создать массив записей А, где n<=20, содержащий сведения: фамилии, три оценки на экзаменах. Используя процедуру, определить студентов, успевающий на 5, и упорядочить их массив по алфавиту. В основной программе полученный массив вывести на экран.
По-моему это бред?
и почему прога дает ошибку на uses,type не чего не понимаю(((((((
если что-то типо такого:
Создать массив записей А
, где n<=20, содержащий сведения: фамилии, три оценки на экзаменах. Используя процедуру, определить студентов, успевающий на 5, и упорядочить их массив по алфавиту. В основной программе полученный массив вывести на экран.
Код:
var a : array[1..20]; i, j, n : integer; s : string; t;
begin
write('Количество записей = '); readln(n);
for i := 1 to 20 do begin
write('Фамилия: '); readln(a[i].surname);
write('Оценки: '); readln(a[i].grade);
end;
writeln('Фамилии' : 15, 'Оценки' : 15);
for i := 1 to 20 do
writeln(a[i].surname : 15, a[i].grade : 15);
write('Фамилия, оценки найти: '); readln(s);
j := -1;
for i := 1 to 20 do
if a[i].surname = s then begin
j := i;
break
end;
if j <> -1
then writeln('Оценки: ', a[j].grade)
else writeln('Не найдено');
{сортировка}
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i].surname > a[j].surname then begin
t := a[i];
a[i] := a[j];
a[j] := t
end;
writeln('Фамилии' : 15, 'Оценки' : 15);
for i := 1 to n do
writeln(a[i].surname : 15, a[i].grade : 15);
end.и почему прога дает ошибку на uses,type не чего не понимаю(((((((
если что-то типо такого:
Код:
uses crt;
type data=record
fio:string;
num:integer;
end;
var stud: array [1..20] of data;
tmp:data;
i,n,x:integer;
begin
ClrScr;
write ('Kol-vo studentov: '); readln (n);
for i:=1 to n do
begin
writeln('Студент #',i);
write ('Фамилия: '); readln (stud[i].fio);
write ('Оценка: '); readln (stud[i].num);
ClrScr;
end;
for i:=1 to n do
writeln (stud[i].fio, stud[i].num:5);
write ('Введите искомую оценку : '); readln (x);
ClrSCr;
Writeln ('Студенты получившие ',x);
for i:=1 to 20 do
if stud[i].num=x then writeln (stud[i].fio);
readln
end.