Lập trình đơn giản

Huỳnh Quốc Việt

1.Viết CT tính kết quả chia lấy phần nguyên, chia lấy phần dư của hai số a,b

2.Viết CT hoán đổi hai số

3.Viết CT tính tổng tiền với số lượng đơn giá nhập từ bàn phím và tiền phí là 50000VNĐ

4.Viết CT nhập hai số a,b tính tổng hai số vừa nhập

5.Viết CT tính chu vi HCN

6.Viết CT tính chu vi hình vuông

7.Viết CT tính thương hai số

8.Viết CT so sánh hai số

9.Viết CT VD3 (SGK) trang 48

10.Bài tập 7 SGK trang 51

Mình cần gấp nha mọi người khoảng 8 giờ tối nay là phải có đáp án rồi

Tùy bút: PRS1.VieZ

Nguyễn Lê Phước Thịnh
21 tháng 11 2019 lúc 18:50

1:

uses crt;

var a,b,du,thuong:integer;

begin

clrscr;

write('nhap so bi chia:'); readln(a);

repeat

write('nhap so chia:'); readln(b);

if b=0 then writeln('ban da nhap sai,yeu cau ban nhap lai');

until b<>0;

du:=a mod b;

thuong:=a div b;

writeln('so du cua phep chia ',a,' cho ',b,' la: ',du);

writeln('thuong cua phep chia ',a,' cho ',b,' la: ',thuong);

readln;

end.

2:

uses crt;

var a,b,tam:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

writeln('gia tri luc dau cua a la: ',a);

writeln('gia tri luc dau cua b la: ',b);

tam:=a;

a:=b;

b:=tam;

writeln('gia tri sau khi doi cua a la: ',a);

writeln('gia tri sau khi doi cua b la: ',b);

readln;

end.

3:

uses crt;

var a:integer;

t:longint;

begin

clrscr;

write('nhap so luong don gia: '); readln(a);

t:=a*50000;

writeln('tong so tien la: ',t);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
21 tháng 11 2019 lúc 18:57

4:

uses crt;

var a,b,t:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

t:=a+b;

writeln('tong cua hai so ',a,' va ',b,' la: ',t);

readln;

end.

5:

uses crt;

var a,b,cv:integer;

begin

clrscr;

repeat

write('nhap chieu dai:'); readln(a);

write('nhap chieu rong:'); readln(b);

if (a<=b) or (a<=0) or (b<=0) then writeln('ban da nhap sai, yeu cau ban nhap lai');

until (a>b) and (a>0) and (b>0);

cv:=a*b;

writeln('chu vi hinh chu nhat la: ',cv);

readln;

end.

6:

uses crt;

var a,cv:integer;

begin

clrscr;

repeat

write('nhap canh hinh vuong:'); readln(a);

if a<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');

until a>0;

cv:=a*4;

writeln('chu vi hinh vuong co canh ',a,'cm la: ',cv);

readln;

end.

7:

uses crt;

var a,b,thuong:integer;

begin

clrscr;

write('nhap so bi chia: '); readln(a);

repeat

write('nhap so chia: '); readln(b);

if b=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');

until b<>0;

thuong:=a div b;

writeln('thuong cua phep chia ',a,' cho ',b,' la: ',thuong);

readln;

end.

8:

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a<b then writeln(a,' be hon ',b);

if a>b then writeln(a,' lon hon ',b);

if a=b then writeln(a,' bang ',b);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyên Hưng Trần
Xem chi tiết
Thanh Hà
Xem chi tiết
Cold Wind
Xem chi tiết
Đinh Văn Tuấn
Xem chi tiết
Trương Nguyễn Văn khiêm
Xem chi tiết
Ngọc Thảo
Xem chi tiết
Tú Nguyễn
Xem chi tiết
Nguyen Hung
Xem chi tiết
Ngọc Thảo
Xem chi tiết