I bosqich I variant masala

4. Funksiyaning qiymatini x-ning ixtiyoriy qiymati uchun toping

Agar x>0 bo’lsa y=x²+5x+6

Agar x≤0 bo’lsa y=1/(x²+5x+6)

program lab_3_1;

var x, y : real;

begin

Writeln (‘x ning qiymati’); readln(x);

if x>0 then y:=x²+5x+6

else y=1/(x²+5x+6) ; writeln(‘=y ’, y ); end.

5. Berilgan ikki sonni yig’indisini uchunchi songa ko’paytmasi.

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

writeln((a+b)*c); writeln('Tamom'); end.

(10-sinf ) II bosqich masala.

1. 
   Ishorani aniqlovchi dastur.
   

2. 
   Birdan M gacha bo’lgan mukkammal sonlarni topish.
   

3. 
   Ixtiyoriy a,b,c lar uchun berilgan kvadrat tenglamani echish.
   

4. 
   Muntazam uchburchak yuzi.
   

5. 1 dan N gach sonlarning yig’indisini topish dasturi.
(10-sinf ) II bosqich masalalar yechimi.

1. Ishorani aniqlovchi dastur.

Program Ishora;

Uses crt;

var a:integer;

b: string;

begin

write('a ni kirit='); readln(a);

If a>0 then b:='Musbat' else If a<0 then b:='Manfiy'else b:='Nol';

writeln(b);

readln;

end.