BÀI 4.. ..A) A)A)A)PROGRAM PROGRAM PROGRAM PROGRAM BAI4A;BAI4A;BAI4A;...
Bài 4
.
.
.
.
a)
a)
a)
a)
program
program
program
program bai4a;
bai4a;
bai4a;
bai4a;
uses crt;
uses crt;
uses crt;
uses crt;
var x, y, z:real;
var x, y, z:real;
var x, y, z:real;
var x, y, z:real;
begin
begin
begin
begin
clrscr;
clrscr;
clrscr;
clrscr;
write('nhap hai so x va y: '); readln(x,y);
write('nhap hai so x va y: '); readln(x,y);
if x*x+y*y<=1 then
if x*x+y*y<=1 then
if x*x+y*y<=1 then
if x*x+y*y<=1 then
begin
begin
begin
begin
z:=(x*x+y*y);
z:=(x*x+y*y);
z:=(x*x+y*y);
z:=(x*x+y*y);
writeln('tong can tim: ',z:9);
writeln('tong can tim: ',z:9);
writeln('tong can tim: ',z:9);
writeln('tong can tim: ',z:9);
end
end
end;
end
;
;
;
if (x*x+y*y>1) and (y>=x) then
if (x*x+y*y>1) and (y>=x) then
if (x*x+y*y>1) and (y>=x) then
if (x*x+y*y>1) and (y>=x) then
begin
begin
begin
begin
z:=(x+y);
z:=(x+y);
z:=(x+y);
z:=(x+y);
if (x*x+y*y>1) and (y<x) then
if (x*x+y*y>1) and (y<x) then
if (x*x+y*y>1) and (y<x) then
if (x*x+y*y>1) and (y<x) then
z:=0.5;
z:=0.5;
z:=0.5;
z:=0.5;
writeln('tong can tim: ',z);
writeln('tong can tim: ',z);
writeln('tong can tim: ',z);
writeln('tong can tim: ',z);
readln
readln
readln
readln
end.
.
.
.
end
end
end
Ví Dụ
Ví Dụ
Ví Dụ
Ví Dụ
b)
b)
b)
b)
program bai4
program bai4b
b
b
b;
;
;
;
program bai4
program bai4
var x,y,z,a,b,r:real;
var x,y,z,a,b,r:real;
var x,y,z,a,b,r:real;
var x,y,z,a,b,r:real;
clrscr;
clrscr;
clrscr;
clrscr;
write('Nhap x: ');readln(x);
write('Nhap x: ');readln(x);
write('Nhap x: ');readln(x);
write('Nhap x: ');readln(x);
write('Nhap y: ');readln(y);
write('Nhap y: ');readln(y);
write('Nhap y: ');readln(y);
write('Nhap y: ');readln(y);
write('Nhap toa do tam hinh tron: ');
write('Nhap toa do tam hinh tron: ');
write('Nhap toa do tam hinh tron: ');
write('Nhap toa do tam hinh tron: ');
readln(a,b);
readln(a,b);
readln(a,b);
readln(a,b);
write('Nhap ban kinh r: ');readln(r);
write('Nhap ban kinh r: ');readln(r);
write('Nhap ban kinh r: ');readln(r);
write('Nhap ban kinh r: ');readln(r);
if sqrt(sqr(x
if sqrt(sqr(x-
-
-
-a)+sqr(x
a)+sqr(x
a)+sqr(x
a)+sqr(x-
-
-
-b))<r then
b))<r then
b))<r then
b))<r then
if sqrt(sqr(x
if sqrt(sqr(x
begin
begin
Great by: Nguyễn Trọng Hoàng Email: [email protected]
z:=abs(x)+abs(y);
z:=abs(x)+abs(y);
z:=abs(x)+abs(y);
z:=abs(x)+abs(y);
writeln('Z= ',z:3:3);
writeln('Z= ',z:3:3);
writeln('Z= ',z:3:3);
writeln('Z= ',z:3:3);
end
end
end
end
else
else
else
else
begin
egin
egin
egin
b
z:=x+y;
z:=x+y;
writeln('Z= ',z:3:3);
writeln('Z= ',z:3:3);
writeln('Z= ',z:3:3);
writeln('Z= ',z:3:3);
end
end
end
end;
;
;
;