Viết chương trình nhập từ bàn phím hai số nguyên a và b. Thực hiện tính và in ra màn hình kết quả của phép tính (chỉ lấy 2 chữ số sau phần thập phân). Giúp mình với Pascal nha mn
Câu 1:Hãy viết số thích hợp vào chỗ … (Chú ý:Phải viết số dưới dạng số thập phân gọn nhất và dùng dấu (,) trong bàn phím để đánh dấu phẩy trong số thập phân)
Nhân dịp ngày quốc tế 1 – 6, cửa hàng giảm giá từ 80000 đồng xuống 64000 đồng một bộ xếp hình. Vậy cửa hàng đã giảm đi số phần trăm so với giá lúc trước là %
Câu 2:Hãy viết số thích hợp vào chỗ … (Chú ý:Phải viết số dưới dạng số thập phân gọn nhất và dùng dấu (,) trong bàn phím để đánh dấu phẩy trong số thập phân)
Một mảnh vườn hình chữ nhật có chiều dài 24m và chiều rộng 18m. Người ta dành 20% diện tích mảnh vườn để trồng hoa. Tính diện tích đất trồng hoa.
Trả lời: Diện tích đất trồng hoa là
(Nhập kết quả dưới dạng số thập phân thu gọn)
Câu 3:Hãy viết số thích hợp vào chỗ … (Chú ý:Phải viết số dưới dạng số thập phân gọn nhất và dùng dấu (,) trong bàn phím để đánh dấu phẩy trong số thập phân)
Tổng của hai số là 128,5. Biết số thứ nhất bằng số thứ hai. Tìm hiệu của hai số.
Trả lời: Hiệu của hai số là
(Nhập kết quả dưới dạng số thập phân thu gọn)
Câu 4:Hãy viết số thích hợp vào chỗ … (Chú ý:Phải viết số dưới dạng số thập phân gọn nhất và dùng dấu (,) trong bàn phím để đánh dấu phẩy trong số thập phân)
Hiệu hai số là 56. Nếu thêm vào số lớn 4 đơn vị thì số lớn sẽ gấp 5 lần số bé. Số bé là
Câu 5:Hãy viết số thích hợp vào chỗ … (Chú ý:Phải viết số dưới dạng số thập phân gọn nhất và dùng dấu (,) trong bàn phím để đánh dấu phẩy trong số thập phân)
Một người có một tấm vải. Sau khi cắt đi 40% tấm vải, rồi lại cắt đi 50% tấm vải còn lại thì còn lại mảnh vải dài 6m . Hỏi cả tấm vải dài bao nhiêu mét?
Trả lời: Cả tấm vải dài m.
Câu 6:Hãy viết số thích hợp vào chỗ … (Chú ý:Phải viết số dưới dạng số thập phân gọn nhất và dùng dấu (,) trong bàn phím để đánh dấu phẩy trong số thập phân)
Cho ba số tự nhiên A; B và C có tổng là 5850, trong đó số A bé hơn số B là 15 đơn vị, số B bé hơn số C là 30 đơn vị. Tìm số C.
Trả lời: Số C là
Câu 7:Hãy viết số thích hợp vào chỗ … (Chú ý:Phải viết số dưới dạng số thập phân gọn nhất và dùng dấu (,) trong bàn phím để đánh dấu phẩy trong số thập phân)
Cho hai số, biết số lớn là 7,2 và lớn hơn trung bình cộng của hai số là 1,4. Tìm số bé.
Trả lời: Số bé là
(Nhập kết quả dưới dạng số thập phân thu gọn)
Câu 8:Hãy viết số thích hợp vào chỗ … (Chú ý:Phải viết số dưới dạng số thập phân gọn nhất và dùng dấu (,) trong bàn phím để đánh dấu phẩy trong số thập phân)
Tìm số tự nhiên nhỏ nhất có tổng các chữ số là 31
Trả lời: Số tự nhiên đó là
Câu 9:Hãy viết số thích hợp vào chỗ … (Chú ý:Phải viết số dưới dạng số thập phân gọn nhất và dùng dấu (,) trong bàn phím để đánh dấu phẩy trong số thập phân)
Tổng của 2 số là 65,2. Nếu gấp số thứ nhất lên 5 lần, gấp số thứ hai lên 9 lần thì được tổng mới là 439,6. Tìm hiệu của hai số đó.
Trả lời: Hiệu của hai số đó là
(Nhập kết quả dưới dạng số thập phân thu gọn)
Câu 10:Hãy viết số thích hợp vào chỗ … (Chú ý:Phải viết số dưới dạng số thập phân gọn nhất và dùng dấu (,) trong bàn phím để đánh dấu phẩy trong số thập phân)
Nhà bạn Nam nuôi một số thỏ. Đợt 1 bán đi 50% tổng số thỏ. Đợt 2 bán đi 20% số thỏ còn lại. Đợt ba bán đi 25% số thỏ còn lại sau hai đợt và 1 con. Cuối cùng còn lại 5 con. Hỏi nhà Tuấn nuôi bao nhiêu con thỏ?
Trả lời: Nhà Tuấn nuôi số con thỏ là
giết người sao bn, chưa đọc xong đã hoa mắt, lăn đùng ngã ngửa ra rồi, làm sao còn hơi mà giải nữa
Violympic bài thi trắc nghiệm đấy ai giải được thì giúp mình nhé
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 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.
a) Tổng của tử và mẫu của phân số bằng 4812. Sau khi rút gọn phân số đó ta đc phân số 5/7. Hãy tìm phân số chưa rút gọn.
b) Mẫu số của 1 phân số lớn hơn tử số 14 đơn vị. Sau khi rút gọn phân số đó ta đc 993/1000. Hãy tìm phân số ban đầu.
c) Cho phân số a/b là phân số tối giản. Hỏi phân số a/a+b có phải là phân số tối giản ko?
Mong các bạn giúp đỡ!
Câu 2. Cho các phân số 320; 3725; 19; 1711; −675; 730
a) Trong các phân số đã cho phân số nào đã tối giản, phân số nào chưa tối giản? Hãy rút gọn phân số chưa tối giản?
b) Hãy viết các số trên dưới dạng số thập phân
c) Phân tích các mẫu của mỗi phân số đã cho ra thừa số nguyên tố
d) Dựa vào câu c) hãy phân thành hai loại và nêu đặc điểm của từng loại.
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.
bạn nam viết viết số thập phân dưới dạng phân số thập phân và rút gọn để được một phân số tối giản sau khi được phân số tối giản bạn nam viết phân số tối giản đó thành một hỗn số hỏi hỗn đó là số nào
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.
