Dasturlash tillari haqida Tabiiy til Inson muloqati, fikrlashi uchun xizmat qiladigan tovushlar, lug`at va grammatik vositalar tizimi Qoidalari aniq ifodalanmasada zamonaviy so`z ishlatishga asoslangan til. Fortran tili

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.

Mil. Avv. 325-265 y.



program EKUK;

uses crt;

function EKUB(a,b:integer):integer;

begin

clrscr;

If (b=0) then

EKUB:=a

else

EKUB:=EKUB(b,a mod b);

end;

var

x,y:integer; {o’zgaruvchilar e’lon qilinayapti}

begin

writeln('sonlarni kirirting');

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

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

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

readln(y); {ikkinchi sonni o’qib olish}

write('EKUK=' , (x*y)/EKUB(x,y)); { birinchi va ikkinchi sonlar ko’paymasini topillgan EKUK ga bo’lish}

readln;

end.



uses crt;

var

belgi:char; {belgi}

code: integer; {belgi kodi}

begin

clrscr;

writeln ('Belgini kiriting ni bosing.');

writeln ('Dastur ishini tugatish uchun nuqtani kiriting!');

repeat

write (' ');

readln (belgi);

code:= Ord (belgi);

writeln ('belgi',belgi,' kod: ',code);

until belgi= '.';

readln;

end.