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
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.
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.
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.
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.
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.
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ố
#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long gcd(long long a,long long b)
{
if (b==0) return(a);
return gcd(b,a%b);
}
//chuongtrinhchinh
int main()
{
cin>>a>>b;
if ((a>0 && b>0) or (a<0 && b<0)) cout<<a/gcd(a,b)<<" "<<b/gcd(a,b);
else cout<<"-"<<-a/gcd(-a,b)<<" "<<b/gcd(-a,b);
return 0;
}
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ố
GIẢI BẰNG FREE PASCAL Ạ :
VCT cho phép nhập hai số nguyên a,b là tử mẫu của phân số a/b từ bàn phím rồi thực hiện:
a) rút gọn phân số a/b để được tối giản m/n
b) khi viết phân số m/n dưới dạng số thập phân hãy cho biết chữ số thập phân thứ nhất
c) phân số m/n luôn biểu diễn dưới dạng liên phân số
CẢM ƠN.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long gcd(long long a,long long b)
{
if (b==0) return(a);
return gcd(b,a%b);
}
//chuongtrinhchinh
int main()
{
cin>>a>>b;
if ((a>0 && b>0) or (a<0 && b<0)) cout<<a/gcd(a,b)<<" "<<b/gcd(a,b);
else cout<<"-"<<-a/gcd(-a,b)<<" "<<b/gcd(-a,b);
return 0;
}