Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / KNIGI
.PAS program knigi;{¤ бЇЁб®Є ЄЁЈ( §ў ЁҐ, ўв®а,Ј®¤ Ё§¤ Ёп).
б®бв ўЁвм бЇЁб®Є ЄЁЈ Ї® Ї бЄ «о Ё ®вб®авЁа®ў вм ҐЈ® Ї®
ўв®а ¬(Ї® «д.)}
uses crt;
type q=record
naz:string;
a:string;
god:integer;
end;
knig=array[1..30] of q;
spis=array[1..30] of string;
var k:knig;
s:spis;
w:STRING;
i,j,n,v:integer;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ Є®«-ў® ЄЁЈ ў бЇЁбЄҐ:');
readln(n);
for i:=1 to n do
begin
writeln('‚ўҐ¤ЁвҐ §ў ЁҐ ',i,' ЄЁЈЁ');
readln(k[i].naz);
writeln('‚ўҐ¤ЁвҐ ўв®а ',i,' ЄЁЈЁ');
readln(k[i].a);
end;
for i:=1 to n do
for j:=1 to n-i do
if (k[j].a)>(k[j+1].a) then
begin
w:=k[j].a;
k[j].a:=k[j+1].a;
k[j+1].a:=w;
end;
writeln('Ї® «д ўЁвг:');
for i:=1 to n do
writeln(k[i].a);
for i:=1 to n do begin
if pos('paskal',k[i].naz)<>0 then
begin
v:=0;
writeln('ЄЁЈ Ї® Ї бЄ «о:',k[i].naz,' ,д ¬Ё«Ёп ўв®а - ',k[i].a,'');
v:=v+1;
end;
end;
if v=0 then writeln('ЄЁЈ ® Ї бЄ «Ґ ў ¤ ®¬ бЇЁбЄҐ Ґв');
readln;
END.
б®бв ўЁвм бЇЁб®Є ЄЁЈ Ї® Ї бЄ «о Ё ®вб®авЁа®ў вм ҐЈ® Ї®
ўв®а ¬(Ї® «д.)}
uses crt;
type q=record
naz:string;
a:string;
god:integer;
end;
knig=array[1..30] of q;
spis=array[1..30] of string;
var k:knig;
s:spis;
w:STRING;
i,j,n,v:integer;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ Є®«-ў® ЄЁЈ ў бЇЁбЄҐ:');
readln(n);
for i:=1 to n do
begin
writeln('‚ўҐ¤ЁвҐ §ў ЁҐ ',i,' ЄЁЈЁ');
readln(k[i].naz);
writeln('‚ўҐ¤ЁвҐ ўв®а ',i,' ЄЁЈЁ');
readln(k[i].a);
end;
for i:=1 to n do
for j:=1 to n-i do
if (k[j].a)>(k[j+1].a) then
begin
w:=k[j].a;
k[j].a:=k[j+1].a;
k[j+1].a:=w;
end;
writeln('Ї® «д ўЁвг:');
for i:=1 to n do
writeln(k[i].a);
for i:=1 to n do begin
if pos('paskal',k[i].naz)<>0 then
begin
v:=0;
writeln('ЄЁЈ Ї® Ї бЄ «о:',k[i].naz,' ,д ¬Ё«Ёп ўв®а - ',k[i].a,'');
v:=v+1;
end;
end;
if v=0 then writeln('ЄЁЈ ® Ї бЄ «Ґ ў ¤ ®¬ бЇЁбЄҐ Ґв');
readln;
END.
Соседние файлы в папке Alex