linkedin facebook linkedin facebook nod32

PaskalABCda boolean bo`yicha misollar

Muallif: Faxriddinov Sh

Qo`shilgan sana: 2015-02-13

PaskalABCda boolean bo`yicha misollar.

program Bool_1;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a sonni kiriting jum rost tek a>0
uses crt;
var a:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy butun son kiriting : ');
write ('a='); read (a);
if (a>0) then
x:=true else x:=false;
writeln (' Qiymat' ,x);
end.

program Bool_2;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a sonni kiriting jum rost tek (a toq)
uses crt;
var a:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy musbat butun son kiriting : ');
write ('a='); read (a);
if (a mod 2=1) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_3;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a sonni kiriting jum rost tek (a juft)
uses crt;
var a:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy musbat butun son kiriting : ');
write ('a='); read (a);
if (a mod 2=0) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_4;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a sonni kiriting jum rost tek (a>2)va(b<=3)
uses crt;
var a,b:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 2 ta butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
if (a>2)and(b<=3) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_5;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a sonni kiriting jum rost tek (a>=o)va(b<-2)
uses crt;
var a,b:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 2 ta butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
if (a>=0)and(b<-2) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_6;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 3 ta a,b,c so jum rost tek (a<=b<=c)
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 3 ta butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if (a<=b)and(b<=c) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_7;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 3 ta a,b,c so jum rost tek (a<b<c)
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 3 ta butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if (a<b)and(b<c) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_8;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 2 ta a,b so jum rost tek (a va b toq)
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 2 ta musbat butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
if (a mod 2=1)and(b mod 2=1) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_9;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 2 ta a,b so jum rost tek (a va b biri toq)
// AND va OR yoki
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 2 ta musbat butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
if (a mod 2=1)or(b mod 2=1) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_10;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 2 ta a,b so jum rost tek (a va b biri toq)
// AND va OR yoki
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 2 ta musbat butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
if (a mod 2=1)or(b mod 2=1) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_11;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 2 ta a,b so jum rost tek (a va b yo juft yo toq)
// AND va OR yoki
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 2 ta musbat butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
if ((a mod 2=0)and(b mod 2=0))or((a mod 2=1)and(b mod 2=1)) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_12;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 3 ta a,b,c so jum rost tek (a,b,c har biri musbat)
// AND va OR yoki
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 3 ta butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if ((a>0)and(b>0)and(c>0)) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_13;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 3 ta a,b,c so jum rost tek (a,b,c hech bol 1 ta toq)
// AND va OR yoki
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 3 ta butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if (a mod 2=1)or(b mod 2=1)or(c mod 2=1) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_14;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 3 ta a,b,c so jum rost tek (a,b,c faqat bittasi musbat)
// AND va OR yoki
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 3 ta butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if ((a>0)and(b<0)and(c<0))or((a<0)and(b>0)and(c<0))or ((a<0)and(b<0)and(c>0)) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_15;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 3 ta a,b,c so jum rost tek (a,b,c faqat ikkitasi musbat)
// AND va OR yoki
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy 3 ta butun sonlar kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if ((a>0)and(b>0)and(c<0))or((a>0)and(b<0)and(c>0))or ((a<0)and(b>0)and(c>0)) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_16;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 2 xonali juft jum rostlikka tek
// AND va OR yoki
uses crt;
var a:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy ikki xonali son kiriting : ');
write ('a='); read (a);
if ((a>9)and(a<100)and(a mod 2=0)) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_17;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: jum rostlikka tek (3 xonali toq)
// AND va OR yoki
uses crt;
var a:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy uch xonali son kiriting : ');
write ('a='); read (a);
if ((a>99)and(a<1000)and(a mod 2=1)) then
x:=true else x:=false;
writeln (' Qiymat :' ,x);
end.

program Bool_18;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: jum rostlikka tek (3 son 2 ta bir xil)
// AND va OR yoki
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy uchta butun son kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if ((a=b)or(a=c)or(b=c)) then
x:=true else x:=false;
writeln (' Qiymat ' ,x);
end.

program Bool_19;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: jum rostlikka tek (3 son 2 ta ozaro qarama qarshi)
// AND va OR yoki
uses crt;
var a,b,c:integer;
x:boolean;
begin
writeln ( ' Ixtiyoriy uchta butun son kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if ((a=-b)or(a=-c)or(b=-c)) then
x:=true else x:=false;
writeln (' Qiymat ' ,x);
end.

program Bool_20;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: jum rostlikka tek (3 xonali rtaqamlari bir xil)
// AND va OR yoki
uses crt;
var a,x,y,z:integer;
m:boolean;
begin
writeln ( ' Ixtiyoriy uch xonali butun son kiriting : ');
write ('a='); read (a);
x:=a div 100;
y:=(a div 10)mod 10;
z:=a mod 10;
if ((x=y)or(x=z)or(y=z)) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_21;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: jum rostlikka tek (3 xonali rtaqamlari ket ket osuvchi)
// AND va OR yoki
uses crt;
var a,x,y,z:integer;
m:boolean;
begin
writeln ( ' Ixtiyoriy uch xonali butun son kiriting : ');
write ('a='); read (a);
x:=a div 100;
y:=(a div 10)mod 10;
z:=a mod 10;
if ((x+1=y)or(x+2=z)or(y+1=z)) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_22;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: jum rostlikka tek (3 xonali raqamlari ket ket osuvch yo kamayuvchi)
// AND va OR yoki
uses crt;
var a,x,y,z:integer;
m:boolean;
begin
writeln ( ' Ixtiyoriy uch xonali butun son kiriting : ');
write ('a='); read (a);
x:=a div 100;
y:=(a div 10)mod 10;
z:=a mod 10;
if ((x+1=y)or(x+2=z)or(y+1=z))or ((x-1=y)or(x-2=z)or(y-1=z)) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_23;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: jum rostlikka tek (3 xonali raqamlari 121)
// AND va OR yoki
uses crt;
var a,x,y,z:integer;
m:boolean;
begin
writeln ( ' Ixtiyoriy uch xonali butun son kiriting : ');
write ('a='); read (a);
x:=a div 100;
y:=(a div 10)mod 10;
z:=a mod 10;
if (x=z) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_24;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: ax2+bx+c=0 ildizga egami
// AND va OR yoki
uses crt;
var a,b,c,d:integer;
m:boolean;
begin
writeln ( ' Koeffitsientlarni kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
d:=sqr(b)-4*a*c;
if (d>=0) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_25;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: (x:y) koordinatalar 1-chorak
// AND va OR yoki
uses crt;
var x,y:integer;
m:boolean;
begin
writeln ( ' Koeffitsientlarni kiriting : ');
write ('x='); read (x);
write ('y='); read (y);
if ((x>0)and(y>0)) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_26;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: (x:y) koordinatalar 2-chorak
// AND va OR yoki
uses crt;
var x,y:integer;
m:boolean;
begin
writeln ( ' Koeffitsientlarni kiriting : ');
write ('x='); read (x);
write ('y='); read (y);
if ((x<0)and(y>0)) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_27;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: (x:y) koordinatalar 3-chorak
// AND va OR yoki
uses crt;
var x,y:integer;
m:boolean;
begin
writeln ( ' Koeffitsientlarni kiriting : ');
write ('x='); read (x);
write ('y='); read (y);
if ((x<0)and(y<0)) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_29;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: (x:y) koordinatalar 4-chorak
// AND va OR yoki
uses crt;
var x,y:integer;
m:boolean;
begin
writeln ( ' Koeffitsientlarni kiriting : ');
write ('x='); read (x);
write ('y='); read (y);
if ((x>0)and(y<0)) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_29;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: (x1:y1) chap yuqori (x:y) orta (x2:y2) chap pastki
// AND va OR yoki
uses crt;
var x,y,x1,y1,x2,y2:integer;
m:boolean;
begin
writeln ( ' Koordinatalarni kiriting : ');
write ('x1='); read (x1);
write ('y1='); read (y1);
write ('x='); read (x);
write ('y='); read (y);
write ('x2='); read (x2);
write ('y2='); read (y2);
if ((x>x1)and(x2>x))or((y1>y)and(y>y2)) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_30;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a b c teng tomonli uchburchak tomonlari
// AND va OR yoki
uses crt;
var a,b,c:integer;
m:boolean;
begin
writeln ( ' Uchburchak tomonlarini kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if ((a=b)and(a=c)and(b=c)) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_31;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a b c teng yonli uchburchak tomonlari
// AND va OR yoki
uses crt;
var a,b,c:integer;
m:boolean;
begin
writeln ( ' Uchburchak tomonlarini kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if (((a=b)and(a<>c)and(b<>c)))or(((a=c)and(a<>b)and(b<>c)))or(((c=b)and(a<>b)and(a<>c))) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_32;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a b c togri burchakli uchburchak tomonlari
// AND va OR yoki
uses crt;
var a,b,c:integer;
m:boolean;
begin
writeln ( ' Uchburchak tomonlarini kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if (c=sqrt(sqr(a)+sqr(b)))or(b=sqrt(sqr(a)+sqr(c)))or(a=sqrt(sqr(b)+sqr(c))) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_33;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a b c uchburchak yasash mumkin
// AND va OR yoki
uses crt;
var a,b,c:integer;
m:boolean;
begin
writeln ( ' Uchburchak tomonlarini kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if ((a+b)>c)or ((a+c)>b)or ((c+b)>a) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

program Bool_34;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a b c uchburchak yasash mumkin emas
// AND va OR yoki
uses crt;
var a,b,c:integer;
m:boolean;
begin
writeln ( ' Uchburchak tomonlarini kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if ((a+b)>c)or ((a+c)>b)or ((c+b)>a) then
m:=false else m:=true;
writeln (' Qiymat ' ,m);
end.

program Bool_35;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: 3 ta son (a=b=c)
// AND va OR yoki
uses crt;
var a,b,c:integer;
m:boolean;
begin
writeln ( ' Sonlarni kiriting : ');
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
if (a=b)and(b=c)and(a=c) then
m:=true else m:=false;
writeln (' Qiymat ' ,m);
end.

1981 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений