Ma`lumotlar : 1091
Xabarlar soni: 271
Bugun: 23.4.2021
Soat: 23:6
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.
1753 marta o`qildi.
![]() |
![]() |