Dasturlash tillari haqida Tabiiy


Algoritmning boshlanishini


Download 1.62 Mb.
bet9/11
Sana15.12.2020
Hajmi1.62 Mb.
#167379
1   2   3   4   5   6   7   8   9   10   11
Bog'liq
Dasturlash tillari haqida


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.

Download 1.62 Mb.

Do'stlaringiz bilan baham:
1   2   3   4   5   6   7   8   9   10   11




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling