Question

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

Answer 1

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.

Answer 2

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.