| Yangi mavzuni mustahkamlash:
1. Read operatori yordamida N sonining kvadratini N ning 10; 11; 12; 13; 14; 15 qiymatlarida hisoblash dasturini tuzing.
Program …..;
Var N,M: byte;
Begin
Read(N); M:=sqr(N);
Write (N,` ni kvadrati:`,M);
End.
2. Quyidagi dasturda a o'zgaruvchining «0'ZBEKIST0NIM»; «VATANIM»; «ONA DIYORIM» qiymatlarini xotiraga qulay usulda kiritib natija oling.
Program 23/2;
Var a, b, g: string;
Begin
Readln(a);
b:= ' - SAJDAGOH KABI'; g:= ' MUQADDASDIR!';
write(a, b, g); readln;
End.
Uyga vazifa: Mavzuni o’rganib kelish.3-mashqni bajarish.
3. «Matiz» avtomobili joyidan qo'zg'alib t sekundda -S metr yo'l bosdi. Uning o'rtacha tezligini (m/s) larda quyidagi qiymatlarda hisoblash dasturini ma'lumotlarni muloqot usulida kiritish orqali tuzing (yo'llanma: V=S/T).
a) T= 10; S= 150; b) T= 12; S= 200;
d) T= 20; S=400; e) T= 45; S= 900.
Program 23/3;
Var S,t, integer; V: real;
Begin
Write (`vaqtni kiriting:`); Readln(t);
Write (`masofani kiriting:`); Readln(S);
V: =S/t
Writeln`V=`,V); readln;
End.
Sana : _____________
Sinf :_______________
|
