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.
Do'stlaringiz bilan baham: |