Informatika va at

3. Oddiy programmalar

3.1. Boshlang'ich qiymat sifatida 1.0 va -2.0 sonlari berilganda quyidagi programma nimani chop etadi?

program Ildiz;

var b,c,d : real;

begin

read(b,c);

d := sqrt (sqr(b)-4*c);

writeln(‘x1=’,(-b+d)/2,’ x2=’,(-b-d)/2)

end.

3.2. Kvadrat tenglamaning ikkita ildizlari berilganda, uning koeffitsiyentlarini hisoblab chop etuvchi programma tuzilsin.

3.3. Ushbu programma berilganlar 1.5 va -0.8 sonlar bo'lganda nimani chop etadi?

Program Mantiq;

var x :real; t :boolean;

begin

read(x); t:= x < round(x);

read(x); t:= t and (x

writeln(t)

end.

3.4. Berilgan uchta butun sonlar bir xil juftlikka ega yoki yo'qligiga mos ravishda true yoki false qiymatlarini chop etuvchi programma tuzilsin.

3.5. Quyidagi programma uchun boshlang'ich qiymatlar sifatida 5.0 va 6.2 sonlarini berish mumkinmi?

Program Kupaytma;

var a: integer; b: real;

begin

read(a,b); writeln(a*b);

end.

3.6. Quyidagi savollarga javob berilsin:

a) nima uchun read – o'qish protsedurasining parametrlari sifatida sonlar yoki ifodalar (masalan, k+1) emas, faqat o'zgaruvchilar bo'lishi kerak?

b) o'qish protsedurasida qiymat qabul qilishi kerak bo'lgan o'zgaruvchi ko'rsatiladi, biroq o'qilayotgan kattaliklardan qaysi biri kiritilishi kerakligi yaqqol ko'rsatilmaydi. Qaysi qiymatni kiritish kerakligi qanday aniqlanadi?

v) agar boshlang'ich qiymatlar sifatida beshta son berilgan bo'lsa, ularda oldindagi to'rtta sonni o'qimasdan beshinchisini o'qish mumkin­mi?

3.7. Berilgan 1,2,3 qiymatlarda programma nimani chop etadi?

Program aba;

var a, b : integer;

begin

read(a,b,a); writeln(a,b,a);

end.

3.8*. Quyidagi programma nimani chop etadi: 3 yoki x+1?

Program Natija;

var x :integer;

begin

x :=2; writeln(‘x+1’);

end.

3.9. Yozish protsedurasi – writeln(x₁,...,x_n) bajarilganda qachon satr o'tkazish amalga oshiraladi: x₁ – birinchi parametr chop etishdan avval yoki x_n – oxirgi parametr chop etilgandan keyin? Quyidagi yozish protseduralari ketma-ketligi bajarilganda natijalar qanday ko'rinishda chop etiladi?

write(1); write(2,3); writeln(4); write(5,6); writeln; writeln(7,8);

3.10. Berilgan a butun son uchun quyidagi ko'rinishdagi jadvalni chop etuvchi programma tuzilsin.

a

a³ a⁶

a⁶ a³ a