^. Next ^. Next;; {КонецПроцедури} InpAvto; {введення}: = New (Link); {новийоб'ект} ('Ha3BaHuE:'); (P ^. Name); ('Kog:'); (P ^. Kod);
write ('Cena:'); (P ^. cena);
AddFirst (P); {виклик процедури додавання}
end; {кінець процедури}
procedureMyList; {висновок записів}
varCurr: Link; {покажчик на слід. запис}
begin
Curr: = First; {установка на 1ую запис}
whileCurr <> Nildo ('Na3BaToBapa:', Curr ^. Name, 'Kod ToBaPa:', Curr ^. kod, 'Kol-vo:', Curr ^. cena: 3); : = Curr ^. Next; {перехід до наступної}
end;;;; {end MyList}
{********************************} {Osnova} (P); { новаядинамическаяпеременная}: = False;; ('Vi6irite punktick:'); ('1. Zapisat pervblm '); ('2. Ydalit pervyl0 zapis'); ('3. Prosmotr vsego spiska '); ('4. ydalenie' ); ('0. EXIT '); (V); V of {визовнужнего}
: InpAvto; {виводданних}
: DelFirst (P); {видалення 1}
: MyList; {висновок}
: begin {удаленіеследующего} ('VvodHa3BaHu9 poslekotorogodelete:'); (NamFind); (Findname (NamFind), P); {визовудаленія}: = True; {конецменю}; EndMenu; (P) ; {освобожденіекучі}.
Результат рішення задачі представлений на малюнку 14.
В
Малюнок 14 - Результат роботи програми в TurboPascal
В
Малюнок 15 - Результат роботи програми в TurboPascal
В
Малюнок 16 - Результат роботи програми в TurboPascal
1.14 Модуль Graph
Написати програму, яка виводить на екран зображення шахової дошки. Використовуйте жовтий і коричневий кольори для зафарбовування квадратів. Промальовування кожної деталі виконується із затримкою 1000 мс. Після повної промальовування стирати зображення і повторно виводити візерунок до натискання Esc
Лістинг - МодульGraph
uses crt, graph;
procedure Kletka (x1, y1, c: integer; d: integer);
Setcolor (c); (x1, y1, x1 + d, y1 + d); (1, c); (x1, y1, x1 + d, y1 + d);
end; gd, gm, x1, y1, x2, y2, d1, i, j: integer;: char; (gd, gm,'');: = round ((getmaxY-60)/8); : = 100; y1: = 50; (getmaxX div 2-40, 20, 'Vyhod-Esc'); i: = 0 to 7 doj: = 0 to 7 doodd (i + j) then Kletka (x1 + d1 * i, y1 + d1 * j, 14, d1) Kletka (x1 + d1 * i, y1 + d1 * j, 6, d1); (1000);;; (1000); (1,0); (x1, y1, x1 + d1 * 8, y1 + d1 * 8); keypressed then c: = readkey; c = # 27 then exit; c = # 27;.
Результат рішення задачі представлений на малюнку 17.
В
Рисунок 17 - Результат роботи програми в TurboPascal
