Dasturlash tillari haqida Tabiiy

Algoritmning boshlanishini va tugashini bildiruvchi blok

Kerakli ma’lumotlarni kiritish va chiqarish bloki

Hisoblash va ta’minlash bloki

Shartni tekshiruvchi blok



{salomlashish }

uses crt;

var

ism: string [40]; {foydalanuvchining ismi}

begin

clrscr;

writeln ('ismingiz?');

writeln ('(Ismingizni kiriting va ni bosing)');

write (' ');

readln (ism);

writeln ('Salom, ', ism, ' ! ');

readln;

end.



{Аxborot belgilar bo'yicha chiqarish}

uses

crt;

var

msg: string [80]; {axborot}

n: integer; {chiqariladigan belgi raqami }

begin

msg:= 'Salom buyuk dasturchilar!';

for n:=1 to Length (msg) do

begin

write (msg[n]);

Delay (100); { 0.1 sekundga to'xtatish}

end;

readln;

end.

 b {tekshirish bajarilmoqda} then a:=a-b else b:=b-a; a:=a; writeln ('EKUB=',a); {natija EKUB ekranga chiqarilmoqda} readln; end. Mil. Avv. 325-265 y." width="640"

program Evklid;

uses crt;

var a,b,x,y,z: integer;

begin

clrscr;

writeln ('Sonlari kiriting');

write('a='); {birinchi son}

readln (a); {birinchi sonni o’qib olish}

write('b='); {ikkinchi son}

read (b); {ikkinchi sonni o’qib olish}

while (ab) do {a=b bo’lguncha davom etadi}

if a b {tekshirish bajarilmoqda}

then a:=a-b

else b:=b-a;

a:=a;

writeln ('EKUB=',a); {natija EKUB ekranga chiqarilmoqda}

readln;

end.