Паскаль

uses CRT;

uses GraphABS;

var GraphABS;

var CRT;

Программа аткарылып жаткан

терезенин жогорку сол бурчунан баштап оңго 50 пиксель жана төмөн көздөй 70

пиксель жылуу керек

Программа аткарылып жаткан

терезенин жогорку сол бурчунан баштап оңго 70 пиксель жана төмөн көздөй 50

пиксель жылуу керек

Программа аткарылып жаткан

терезенин жогорку оң бурчунан баштап солго 50 пиксель жана төмөн көздөй 70

пиксель жылуу керек

Борборунун координатасы (50,40) жана радиусу 100 болгон айлана сызат.

Борборунун координатасы (100,50) жана радиусу 40 болгон айлана сызат

Борборунун координатасы (50,100) жана радиусу 40 болгон айлана сызат

TextOut ('Салам!',90, 120);

TextOut (120, 90, 'Салам!');

TextOut (90, 120, 'Салам!');

TextOut (90, 120, Салам!);

cl(түстөр, англис тилинде);

түстүн сандык маанилери 0 дөн 255*255*255-1 ге чейинки диапазондо

түстүн сандык маанилери 0 дөн 255-1 ге чейинки диапазондо

командалар(түстөр, англис тилинде);

SetPixel(x,y,color);

Rectangle(x1,y1,x2,y2);

Line(x1,y1,x2,y2);

Circle(x,y, radius);

write('текст');

read('текст');

жаз('текст');

чыгар('текст');

экранда

көрсөт('текст');

;

_

:

Өзгөрмөлөрдү

сыпатточу

Программанын

башталышын көрсөтүүчү

Программанын

аягын көрсөтүүчү

Программанын

атын көрсөтүүчү

Өзгөрмөлөрдүү

киргизүүчү

Никлаус Вирт

Бил Гейтс

Норберт Винер

Блез Паскаль