Tiplar: Byte – 0 dan 255 gacha qiymat qabul qiluvchi ishorasiz butun son; Shortint

Uses
Ishlatilayotgan kutubxona bo’limlari(modullari).
Label
Dasturning asosiy qismida ishlatilayotgan belgi(metka)larni e’lon qilish.
Const
O’zgarmaslarni e’lon qilish
Type
Yangi o’zgaruvchilarning turini muomalaga kiritish.
Var
Asosiy dasturdagi muomalada bo’lgan o’zgaruvchilarni e’lon qilish.
PROSEDURALARni e’lon qilish.
Begin
Dasturning asosiy qismi.
End.


begin
asosiy qism
end.
Asosiy qismda operatorlar, matematik ifodalar, funksiyalar, dasturlashdagi shart yoki takrorlanish operatorlari bo‘ladi, nechta begin ochsak endlar; orqali yopiladi yu, oxirdagisi 1 ta nuqta bilan yopiladi. Write (‘arifmetik ifoda qiymati’,y2);
End.

Endi Pascal dasturlash muhitida ishlab ko’ramiz:

1. Pascal dasturlash tilida chiziq chizish dasturi va natijasi:

uses graphABC;
var x:integer;
begin
setwindowsize(400,400);
centerwindow;
line(100,100,300,100);
line(300,100,100,300);
line(100,300,300,300);
line(150,200,250,200)
end.

2. Pascal dasturlash tilida silindr chizish dasturi va natijasi:

uses graphABC;

begin
elipse(300,100,10,130);
elipse(30,300,10,330);
line(96,117,10,320);
line(30,17,300,317);
end.

3. Pascal dasturlash tilida teng tomonli uchburchak chizish dasturi va natijasi:

uses graphABC;
begin
line(10,10,70,10);
line(70,10,40,60);
line(10,10,40,60);
сirсle(40,28,16);
end.

4. Pascal dasturlash tilida ekran markazidan chiquvchi radiusi ortib ekran chegarasigacha borib yetadigan ichma-ich konsentrik aylanalar chizish dasturi va natijasi:

USES GRAPHABC;
VAR X:INTEGER;
BEGIN
setwindоwsize(400,400);
сenterwindоw;
for x:=50 dоwntо 0 do
сirсle(200,200,x*4);
end.