Rambler's Top100

Скачать программы    Все программы автора

Задание №4

Ведомость студентов содержит порядковый номер, фамилию и графу о сдаче зачета. Отсортировать не сдавших зачет и вывести их фамилии в алфавитном порядке.

uses crt;

Type

Stud=record Num:integer;

Name:string[15];

zach:boolean;

end;

Var

i,n,m:integer;

z:char;

a:array[1..250] of stud;

st:stud;

Begin

writeln('Введите количество студентов');

readln(m);

for i:=i to m do begin

writeln('Введите номер студента');

readln(a[i].Num);

writeln('Введите фамилию студента');

readln(a[i].Name);

writeln('Введите зачет,незачет (- или +');

readln(z);

if z='-' then a[i].zach:=false;

if z='+' then a[i].zach:=true;

end;

for i:=1 to m-i do

for n:=i+1 to m do

if a[i] .Name > a[ n].Name then begin

st:=a[i];

a[i]:=a[n];

a[n]:=st;

end;

writeln('Не сдали зачет');

for i:=1 to m do

if not(a[i].zach) then

writeln ('Номер ',a[i].Num, ' Фамилия ', a[i].Name);

end.

Вверх

Белорусский рейтинг MyMinsk.com Сайты беларуси Регистр "ЗУБР" Каталог на TIGA.BY, а также  новости, работа, объявления, фото и многое другое Rambler's Top100 Белорусский каталог программ Faststart - рейтинг сайтов, каталог интернет ресурсов, счетчик посещаемос­ти Яндекс.Метрика
Hosted by uCoz