PaskalABCda Begin11-20 bo`yicha misollar

Muallif: Faxriddinov Sh.

Qo`shilgan sana: 2015-02-02

PaskalABCda Begin11-20 bo`yicha misollar

program misol_11;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//a va b bn ayirmani  hisoblab sariq rangda
uses crt;
var a,b,x:real;
begin
Textbackground(green);
Textcolor(yellow);
ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('a=');   read(a);
write ('b=');   read(b);
x:=a-b;
writeln ('Ayirma: ' ,x, ' ga teng ');

end.

program misol_12;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//a va b bn kopaytma  hisoblab qizil ekran
  uses crt;
  var a,b,x:real;
  begin
  Textbackground(red);
  Textcolor(black);
  ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('a=');   read(a);
write ('b=');   read(b);
     x:=a*b;
writeln ('Kopaytma: ' ,x, ' ga teng ');
end.

program misol_13;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Hisoblang m=21*a+19*b
  uses crt;
  var a,b,m:real;
  begin
  Textbackground(brown);
  Textcolor(black);
  ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('a=');   read(a);
write ('b=');   read(b);
        m:=21*a+19*b;
writeln ('Ifodaning qiymati: ' ,m, ' ga teng ');
end.

program misol_14;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Hisoblang a:=(19*b-23*m)/(5*m+10)
  uses crt;
  var a,b,m:real;
  begin
  Textbackground(blue);
  Textcolor(black);
  ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('b=');   read(b);
write ('m=');   read(m);
        a:=(19*b-23*m)/(5*m+10);
writeln ('Ifodaning qiymati: ' ,a, ' ga teng ');
end.

program misol_15;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Hisoblang a:=(19*b-23*m)/(1963*m-2012)
  uses crt;
  var a,b,m:real;
  begin
  Textbackground(cyan);
  Textcolor(black);
  ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('b=');   read(b);
write ('m=');   read(m);
        a:=(19*b-23*m)/(1963*m-2012);
writeln ('Ifodaning qiymati: ' ,a, ' ga teng ');

end.

program misol_16;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Hisoblang a*x+b=0   x:=(-b)/a bunda a<>0
  uses crt;
  var a,b,x:real;
  begin
  Textbackground(magenta);
  Textcolor(black);
  ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('b=');   read(b);
write ('a=');   read(a);
          x:=(-b)/a;
writeln ('Ifodaning qiymati: ' ,x, ' ga teng ');

end.

program misol_17;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//a va b bn orta arifmetikni aniqlang
  uses crt;
  var a,b,x:real;
  begin
  Textbackground(red);
 Textcolor(black);
 ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('b=');   read(b);                                             
write ('a=');   read(a);
         x:=(a+b)/2;
writeln ('Bu sonlar orta arifmetigi: ' ,x, ' ga teng ');

end.

program misol_18;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//a va b bn  ular kublari orta arifmetikni aniqlang
  uses crt;
  var a,b,x:real;
  begin
  Textbackground(magenta);
 Textcolor(red);
 ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('b=');   read(b);
write ('a=');   read(a);
         x:=(exp(3*ln(a))+exp(3*ln(b)))/2;
writeln ('Bu sonlar kublari orta arifmetigi: ' ,x, ' ga teng ');

end.

program misol_19;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//a,b va c bn  ular orta arifmetikni aniqlang
  uses crt;
  var a,b,c,x:real;
  begin
  Textbackground(brown);
 Textcolor(red);
 ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('b=');   read(b);
write ('a=');   read(a);
write ('a=');   read(a);
  x:=(a+b+c)/3;
writeln ('Bu sonlar orta arifmetigi: ' ,x, ' ga teng ');
end.

program misol_20;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//a va b bn  ular orta geometrik aniqlang
  uses crt;
  var a,b,m:real;
  begin
  Textbackground(green);
 Textcolor(red);
 ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('b=');   read(b);
write ('a=');   read(a);
  m:=sqrt(a*b);
writeln ('Bu sonlar orta geometrigi: ' ,m, ' ga teng ');
end.

1570 marta o`qildi.