Informatika fanidan 9-sinf uchun nazorat ishi topshiriqlari yechimlari
I variant.
1.Ikkita a va b sonlar berilgan. Agar b son a dan kichik bo`lsa, u holda b ni nol bilan almashtiruvchi, aks holda b ni o`zgarishsiz qoldiruvchi dastur tuzing.
Program masala;
Uses crt;
Var a,b: integer;
Begin
Write (‘ a ning qiymatini kirit’); Readln (a);
Write (‘ b ning qiymatini kirit’); Readln (b);
If a>b then b:=0 else Writeln (‘b=’,b);
Readln;
End.
2.Uzunligi 1m bo`lgan matematik mayatnikning tebranish davrini toppish dasturini tuzing.
Program masala;
Uses crt;
Var T, g: real;
Begin
g:= 9,8;
T: =2*Pi/sqrt(g);
Writeln (‘ T=’,T);
Readln;
End.
3.Ekranga 5 ta sinfdoshingizning ismin turli ranglarda va ekranning sariq rangida chiqaruvchi dastur tuzing.
Program masala;
Uses crt;
Begin
TextBackGround (14);
TextGolor (2); Writeln (‘Aqida’);
TextGolor (4); Writeln (‘Sitora’);
TextGolor (6); Writeln (‘Dostoni’);
TextGolor (3); Writeln (‘Husan’);
TextGolor (9); Writeln (‘Sevara’);
Readln;
End.
|
