Informatika va at

4.12. Paskalda quyidagi tarkibiy operatorlarni yozish mumkinmi?

a) begin end; b) begin x:=0; end; v) begin ; end.

4.13. Agar n=3 bo'lsa, quyidagi tarkibiy operatorning bajarilishi natijasida f o'zgaruvchi qanday qiymat qabul qiladi?

begin

f:=1; i:=2;

1: if i>n then goto 9;

f:=f*I; i:=i+1; goto 1;

9: end.

4.14. Quyidagi masalalarni yechish uchun zarur bo'lgan operatorlar ketma-ketligi yozilsin.

a) a,b sonlarining eng katta umumiy bo'luvchisi - s topilsin.

b) cos(ctgn), n=1,2,3... sonlar ketma-ketligining birinchi manfiy hadi - u topilsin.

d) hisoblansin:

g) hisoblansin:

4.15. Quyidagi savollarga javob berilsin.

a) nishon sifatida ixtiyoriy musbat butun sonni foydalanish mumkinmi?

b) programmada foydalanilgan nishonlarning hammasini e'lon qilish shartmi?

v) programmada nishonlarni o'sish tartibida e'lon qilinishi to'g'rimi?

4.16. Programmadagi xatolar topilsin:

program hato(input,output);

const L=18;

label 18,8;

var x,y: integer;

begin y:=0;

8:read(x); if x<0 then goto L;

y:=y+x ; goto 18;

L:writeln(y)

end.

4.17. Quyidagi operator yozuvidagi xatolar topilsin.

a) begin 77: if x<1 then goto 5

begin x:=x/2; goto 77; 5: y:=sin(x) end end;

b) 34: if 0

else 15: y:=sqr(y)