01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Динамической памяти и указатели / SUPERSPI

{ **********************************************************
* „€ЌЂЊ€—…‘ЉЂџ ЏЂЊџ’њ. *
* “ЉЂ‡Ђ’…‹€. *
* " BEST CARS " (version2.0) *
* ‚ᥠࠡ®зЁҐ Їа®жҐ¤гал ­ е®¤пвбп ў ¬®¤г«Ґ "WORKED" !!! *
* ЊЁва®иЁ­ Ђ«ҐЄбҐ© ќ2-21. *
********************************************************** }
Program SuperSpisok;
uses worked,crt;
BEGIN
clrscr;
M_Window(1,1,80,25,$31);
M_Window(2,2,79,5,$71);
Ramka(2,2,79,5);
i:=0;
new(rab); rab^.next:=nil;

writeln('‚ў®¤Ё¬ бЇЁб®Є :');
repeat
writeln('‚ўҐ¤ЁвҐ ¬ аЄг  ўв® :');
readln(marka); i:=i+1;
writeln('‚ўҐ¤ЁвҐ жҐ­г  ўв® :');
readln(coast);
Make_Spisok(marka,coast,g);
writeln('Џа®¤®«¦ вм ўў®¤ "„Ђ"-any key, "Ќ…’"-n');
readln(ident);
until (ident='n')or(ident='N');

M_Window(1,1,80,25,$31);
M_Window(2,2,20,24,$71);
Ramka(2,2,20,24);

rab:=g;
while rab<>nil do begin
Printer(g);
end;
repeat
M_Window(25,13,80,18,$31);
M_Window(25,5,50,11,$71);
Ramka(25,5,50,11);
writeln('”г­ЄжЁЁ Є в «®Ј :');
writeln('1 - г¤ «Ґ­ЁҐ Ї® Ё¬Ґ­Ё;');
writeln('2 - г¤ «Ґ­ЁҐ Ї® 業Ґ;');
writeln('3 - ўбв ўЄ  н«Ґ¬Ґ­в ;');
writeln('q - § ўҐа襭ЁҐ а Ў®вл;');

c:=readkey;
M_Window(25,13,80,18,$71);
Ramka(25,13,80,18);
case c of
'1' : begin i:=i-1;
writeln('‚ўҐ¤ЁвҐ ­ §ў ­ЁҐ ¬ иЁ­л, Є®в®аго ­ ¤® г¤ «Ёвм');
readln(ident2); rab:=g;
while rab<>nil do begin
Delete_I(ident2,g);
M_Window(2,2,20,24,$71);
Ramka(2,2,20,24);
if i=0 then writeln('Љ в «®Ј Їгбв !!!')
else
Printer(g);
end;
end;
'2' : begin i:=i-1;
writeln('‚ўҐ¤ЁвҐ 業㠬 иЁ­л, Є®в®аго ­ ¤® г¤ «Ёвм');
readln(ident3); rab:=g;
while rab<>nil do begin
Delete_II(ident3,g);
M_Window(2,2,20,24,$71);
Ramka(2,2,20,24);
if i=0 then writeln('Љ в «®Ј Їгбв !!!')
else
Printer(g);
end;
end;
'3' : begin writeln('„®Ї®«­пҐ¬ бЇЁб®Є :');
repeat
writeln('‚ўҐ¤ЁвҐ ¬ аЄг  ўв® :');
readln(marka); i:=i+1;
writeln('‚ўҐ¤ЁвҐ жҐ­г  ўв® :');
readln(coast);
Make_Spisok(marka,coast,g);
writeln('Џа®¤®«¦ вм ¤®Ї®«­Ґ­ЁҐ "„Ђ"-any key, "Ќ…’"-n');
readln(ident);
until (ident='n')or(ident='N');
M_Window(1,1,80,25,$31);
M_Window(2,2,20,24,$71);
Ramka(2,2,20,24);

rab:=g;
while rab<>nil do begin
Printer(g);
end;
end;
end;
if (c='q')or(c='Q') then GoodBye;
until (c='q')or(c='Q');

{ readln;}
end.