I bosqich I variant masala

INFORMATIKA FANIDAN

(9-sinf ) I bosqich masala.
1. Berilgan tomonga ko’ra uchburchak yuzasini hisoblash dasturi Paskalda.
2. Abbos, Abduxalil, Sardor, Toxir so’zlarni ekranda ko’rsatilgan ranglarda 70 marta takrorlab chiqarish dasturi Paskalda.

3. Berilgan ikki sonni bo’lish dasturi Paskalda.

4.Berilgan soning tub yoki tub emasligini aniqlaydi.

5. Birdan N gacha 7 ga karrali toq sonlar yig’indisi va ko’paytmasini topish dasturi Paskalda.

(9 –sinf ) I bosqich masallar yechimi.
1. Berilgan tomonga ko’ra uchburchak yuzasini hisoblash.

Uses crt; Var a,b,c,S,p:real; begin

Write('a ni kiriting a='); Readln(a);

Write('b ni kiriting b='); Readln(b);

Write('c ni kiriting c='); Readln(c);

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

Writeln('S', S:0:2); Readln; End.
2. Abbos, Abduxalil, Sardor, Toxir so’zlarni ekranda ko’rsatilgan ranglarda 70 marta takrorlab chiqarish.

uses crt; label 1; var x:integer; begin x:=1; 1:x:=x+1; textcolor(x);

write('Abbos'); textcolor(x+0); write('Abduxalil'); textcolor(x+20);

write('Sardor'); textcolor(x+30); write('Toxir'); if x<70 then goto 1;

readln; end.
3. Berilgan ikki sonni bo’lish.

Var a,b:integer; begin read(a); read(b);

writeln(a/b); writeln('Tamom'); end.
4.Berilgan soning tub yoki tub emasligini aniqlaydi.

var

n,i,s:integer;

begin

readln(n);

for i:=2 to n-1 do

if n/i=trunc(n/i) then s:=s+1;

if s=0 then write('tub son') else write('tub son emas');

end.
5. Birdan N gacha 7 ga karrali toq sonlar yig’indisi va ko’paytmasini topish.
Program Akram; Label 1;

var s,i,n,k:integer;

begin

write('n ni kiriting='); readln(n);

s:=0; i:=7; k:=1;

1:s:=i+s; k:=k*i;

i:=i+14;

If i<=n then goto 1;

writeln('Yigindi=',s);

writeln('Kupaytma=',k); readln; end.