Var a,f: byte; m: real

Agar jismga ta’sir etayotgan kuch F, olgan tezlanishi a bo’lsa, quyidagi qiymatlarda jismni massasini hisoblash dasturini kiritish operatoridan foydalanib tuzing (yo’llanma m=F/a) va natijalar oling.
var a,f: byte; m: real;

begin

write(‘F ning qiymatini kiriting =’); readln(f);

write(‘a ning qiymatini kiriting =’); readln(a);

m:=f/a;

writeln(‘Jismning tezlanishi a=’, a);

readln;

end.
. a=19, b=2, d=1950 qiymatlarni xotiraga qulay usulda kiritib quyidagi ifodalarning qiymatini hisoblash dasturini tuzing.

a) ; b) ; d) ; e) .
Var a,b,d,y: integer;

t,s,n: real;

begin

write(‘a=) ; readln(a); write(‘b=) ; readln(b); write(‘d=) ; readln(d);

y:=a+b*b+a+d; t:=sqrt(a+b)-exp(ln(d-a)/3); s:=b*sin(a)+sin(d); n:=pi*d*d+a*b;

writeln(‘y=’,y); writeln(‘t=’,); writeln(‘s=’,s); writeln(‘n=’,n) readln;

end.
. Tomonlari a, b, c bo‘lgan uchburchakning yuzini hisoblash dasturini kiritish operatoridan foydalanib tuzing va natijalar oling.

a) a=5, b=7, c=4; b) a=8, b=6, c=10; d) a=3, b=4, c=5; e) a=10, b=8, c=10;

var a,b,c: integer;

p,s: real;

begin

write(uchburchak tomonlari uzunliklarini kiriting: a,b,c=); readln(a,b,c);

p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln(‘S=’,s); readln;

end.
Program Takrorlash;

Var I : Integer;

Begin

For I:=1 To 20 Do WriteLn(‘O’zbekiston – vatanim manim!‘);

End.

Program Ketma_ketlik;

Var I : Integer;

Begin

For I:=1 To 20 Do WriteLn(I);

End.

Program Sonlar;

Var i,son : Integer;

Begin

son:=101;

For i:=1 to 100 Do Begin son:=son–1; WriteLn(son); end;

End.

Program Sonlar;

Var i : Integer;

Begin

For i:=100 Downto 1 Do WriteLn(i);

End.
. funksiyaning qiymatini x ning [–15;5] oraliqdagi butun qiymatlarida hisoblash dasturini tuzing.

Program funksiya;

Var x,y: integer;

Begin

For x:-15 to 5 do begin y:=23*x; writeln(‘x=’,x,’ da y=‘,y); end;

Readln; end.

S=10+12+14+…+50 yig’indini hisoblash dasturini tuzing.

Program summa;

Var S,i, x: integer;

Begin

For i:=5 to 25 do begin x:=2*I; S:=S+x; end;

Writeln(‘S=’;S);

Readln;

End.
S=0,5+1,5+2,5+…+98,5+99,5 yig’indini hisoblash dasturini tuzing.

Program summa;

Var I,S: real;

Begin

I:=0.5;

While I<=99.5 do begin S:=S+I; I:=I+1; end;

Write(‘S=’,S); readln;

End.