viết chương trình tối giản
cho phép người dùng nhập phân số dưới dạng tử/mẫu
thể hiện đúng dấu của phân số
Những câu hỏi liên quan
viết chương trình tối giản
cho phép người dùng nhập phân số dưới dạng tử/mẫu
thể hiện đúng dấu của phân số
Xem thêm câu trả lời
Hãy viết chương trình Pascal tối giản phân số cho phép người dùng nhập dưới dạng tử/mẫu, không nhập tử số và mẫu số riêng, nếu có dấu âm thì hiện trên tử hoặc phía trước giá
uses crt;
var a,b,x,y:integer;
//chuongtrinhcon
function ucln(var a,b:integer):integer;
var r:integer;
begin
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
ucln:=a;
end;
//chuongtrinhchinh
begin
clrscr;
readln(a,b);
x:=a;
y:=b;
if (x>0) and (y>0) then writeln(x div ucln(a,b),' ',y div ucln(a,b));
if (x<0) and (y<0) then
begin
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x<0) and (y>0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x>0) and (y<0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
readln;
end.
Đúng 0
Bình luận (0)
Hãy viết chương trình tối giản phân số giải quyết 2 vấn đề Vấn đề 1 cho phép người dùng nhập dưới dạng tử/mẫu, không nhập tử số và mẫu số riêng, rồi sử lí Vấn đề 2 nếu có dấu âm thì hiện trên tử hoặc phía trước giá trị phân số ấy
Hãy viết chương trình tối giản phân số, giải quyết 2 vấn đề. Vấn đề 1 cho phép người dùng nhập dưới dạng tử/mẫu, không nhập tử số và mẫu số riêng, rồi sử lí. Vấn đề 2 nếu có dấu âm thì hiện trên tử hoặc phía trước giá trị phân số ấy giúp mình với ạ, mình cảm ơn
uses crt;
var a,b,x,y:integer;
//chuongtrinhcon
function ucln(var a,b:integer):integer;
var r:integer;
begin
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
ucln:=a;
end;
//chuongtrinhchinh
begin
clrscr;
readln(a,b);
x:=a;
y:=b;
if (x>0) and (y>0) then writeln(x div ucln(a,b),' ',y div ucln(a,b));
if (x<0) and (y<0) then
begin
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x<0) and (y>0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x>0) and (y<0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
readln;
end.
Đúng 0
Bình luận (0)
Hãy viết chương trình pascal tối giản phân số giải quyết 2 vấn đề Vấn đề 1 cho phép người dùng nhập dưới dạng tử/mẫu, không nhập tử số và mẫu số riêng, rồi sử lí Vấn đề 2 nếu có dấu âm thì hiện trên tử hoặc phía trước giá trị phân số ấy
uses crt;
var a,b,x,y:integer;
//chuongtrinhcon
function ucln(var a,b:integer):integer;
var r:integer;
begin
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
ucln:=a;
end;
//chuongtrinhchinh
begin
clrscr;
readln(a,b);
x:=a;
y:=b;
if (x>0) and (y>0) then writeln(x div ucln(a,b),' ',y div ucln(a,b));
if (x<0) and (y<0) then
begin
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x<0) and (y>0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x>0) and (y<0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
readln;
end.
Đúng 1
Bình luận (0)
Hãy viết chương trình pascal tối giản phân số. giải quyết 2 vấn đề: Vấn đề 1 cho phép người dùng nhập dưới dạng tử/mẫu, không nhập tử số và mẫu số riêng, rồi sử lí. Vấn đề 2 nếu có dấu âm thì hiện trên tử hoặc phía trước giá trị phân số ấy
uses crt;
var a,b,x,y:integer;
//chuongtrinhcon
function ucln(var a,b:integer):integer;
var r:integer;
begin
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
ucln:=a;
end;
//chuongtrinhchinh
begin
clrscr;
readln(a,b);
x:=a;
y:=b;
if (x>0) and (y>0) then writeln(x div ucln(a,b),' ',y div ucln(a,b));
if (x<0) and (y<0) then
begin
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x<0) and (y>0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x>0) and (y<0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình Pascal tối giản phân số cho phép người dùng nhập dưới dạng tử/mẫu, không nhập tử số và mẫu số riêng, nếu có dấu âm thì hiện trên tử hoặc phía trước giá Ai giúp em với ạ, em cần gấp ạ, em cảm ơn ạ
uses crt;
var a,b,x,y:integer;
//chuongtrinhcon
function ucln(var a,b:integer):integer;
var r:integer;
begin
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
ucln:=a;
end;
//chuongtrinhchinh
begin
clrscr;
readln(a,b);
x:=a;
y:=b;
if (x>0) and (y>0) then writeln(x div ucln(a,b),' ',y div ucln(a,b));
if (x<0) and (y<0) then
begin
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x<0) and (y>0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x>0) and (y<0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
readln;
end.
Đúng 0
Bình luận (0)
Hãy viết chương trình Pascal tối giản phân số giải quyết 2 vấn đề Vấn đề 1 cho phép người dùng nhập dưới dạng tử/mẫu, không nhập tử số và mẫu số riêng, rồi sử lí Vấn đề 2 nếu có dấu âm thì hiện trên tử hoặc phía trước giá
uses crt;
var a,b,x,y:integer;
//chuongtrinhcon
function ucln(var a,b:integer):integer;
var r:integer;
begin
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
ucln:=a;
end;
//chuongtrinhchinh
begin
clrscr;
readln(a,b);
x:=a;
y:=b;
if (x>0) and (y>0) then writeln(x div ucln(a,b),' ',y div ucln(a,b));
if (x<0) and (y<0) then
begin
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x<0) and (y>0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x>0) and (y<0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
readln;
end.
Đúng 0
Bình luận (0)
NGÔN NGỮ C giúp mk với mk cảm ơn
8.Viết chương trình in ra các số nguyên tố từ 2 đến n, với n nhập từ bàn phím.
9.Viết chương trình kiểm tra xem một số có là số hoàn chỉnh hay không?
10.Nhập tử số và mẫu số của một phân số, in phân số đó dưới dạng tối giản.
uses crt;
var i:integer;
begin
clrscr;
for i:=0 to 9999 do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
readln;
end.
Đúng 2
Bình luận (0)