А. А. Медатов, М. К. Абдувохидов, О. А. Маматқулов


begin ; ; . . . ; end


Download 0.79 Mb.
bet21/57
Sana20.12.2022
Hajmi0.79 Mb.
#1035125
1   ...   17   18   19   20   21   22   23   24   ...   57
Bog'liq
Turbo Pascal услубий кулланма янги

begin
<1оператор>;
<2оператор>;
. . .
;
end;


Мисол. Квадрат тенглама илдизларини ҳисоблаш дастури тузилсин.


program kvt;
var a,b,c,d,x1,x2:real; s:string[20];
begin
write ('a,b,c='); readln(a,b,c);
d:=sqr(b)4ac;
if d<0 then begin s:='Ildizlari mavjud emas'; writeln(s); end
else begin if d=0 then
begin
s:='Yagona ildizga ega:';
x1:=-b/(2a); writeln(s,'x=',x1);
end
else begin
s:='Ikkita ildiz mavjud:';
writeln(s);
x1:=(b+sqrt(d))/(2a);
x2:=(bsqrt(d))/(2a);
writeln('x1=',x1,', x2=',x2);
end;
end;
end.


7. Белги.
Турбо Паскалда ҳам ҳар бир оператор ўз номерига эга бўлиши мумкин. Турбо Паскалдаги бундай номерлар белгилар деб юритилади. Белгилар бутун сонлар кўринишида 0 дан 9999 гача рақамлар ёрдамида ёки лотин харфлари билан бошланган иҳтиёрий сўзлар (масалан bir, natija, …) орқали ёзилади.
Битта белги фақат битта операторни белгилаш учун ҳизмат қилади. Белгиланиши керак бўлган оператордан аввал белги номери, сўнгра « : » (икки нуқта) белгиси ёзилади.
Барча белгилар уларни эълон қилиш сатрида эълон қилиниши шарт. Бундай эълон қилиш label сўзи ёрдами амалга оширилади. Белги номлари бир-биридан вергул ёрдамида ажратиб ёзилади. Масалан, label 10, 12, bir, natija;


8. Шартсиз ўтиш оператори.
Шартсиз ўтиш оператори дастур бажарилиш тартибини бевосита ўзгартиради.
Бичими: goto k; — бунда goto (…га ўт)  оператор номи, k  ўтиш керак бўлган сатр номери. Масалан, goto 10; goto bir;

Download 0.79 Mb.

Do'stlaringiz bilan baham:
1   ...   17   18   19   20   21   22   23   24   ...   57




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