Yahoo Hỏi & Đáp sẽ ngừng hoạt động vào ngày 4 tháng 5 năm 2021 (Giờ Miền Đông nước Mỹ) và từ nay, trang web Yahoo Hỏi & Đáp sẽ chỉ ở chế độ đọc. Các thuộc tính hoặc dịch vụ khác của Yahoo hay tài khoản Yahoo của bạn sẽ không có gì thay đổi. Bạn có thể tìm thêm thông tin về việc Yahoo Hỏi & Đáp ngừng hoạt động cũng như cách tải về dữ liệu của bạn trên trang trợ giúp này.
ai biết pascal chỉ e vài bài tập với?
có vài bài tập dễ nhưng e wen cách làm rồi. mọi ng có thể chỉ e cách bước lập chương trình turbo trong pascal ko?
BT1: Nhập a,b (VD: a=4: b=2). Hiện kết quả: a+b=6: a-b=2.
BT2: nhập a,b (VD: a= 345; b=5). Hiện kết quả:
345
+ 5
------------
350
BT3: Nhập a,b. Hiện kết quả tổng,hiệu, tích, thương, phần nguyên phép chia, phần dư phép chia.
moi ng chi giup e nhe, tí nữa e phải làm kiểm tra rồi.T_T
3 Câu trả lời
- 1 thập kỷ trướcCâu trả lời yêu thích
BT1 :
uses crt;
var a, b : real;
begin
clrscr;
write(' Nhap 2 so a va b : );
readln(a, b);
Writeln(a,' + ',b,' = ', a+b);
Writeln(a,' - ',b,' = ', a-b);
readln;
end.
BT2 :
uses crt;
var a, b, i : integer;
kq:longint;
st:string;
begin
clrscr;
write(' Nhap 2 so a va b : ');
readln(a, b);
kq:=a+b;
str(kq, st);
writeln(a:length(st)+1);
writeln('+',b:length(st)-1);
for i:=1 to length(st)+2 do write('-');
writeln;
write(kq:length(st));
readln;
end.
Phía trên mình dùng qua biến st để kết quả hiện ra màn hình được đẹp và đúng với mọi test
BT3 :
uses crt;
var a, b : integer;
begin
clrscr;
write(' Nhap 2 so nguyen a va b : ');
readln(a, b);
writeln(' Tong cua 2 so ',a,' va ',b,' la ',a+b);
writeln(' Hieu cua 2 so ',a,' va ',b,' la ',a-b);
writeln(' Tich cua 2 so ',a,' va ',b,' la ',a*b);
writeln(' Thuong cua 2 so ',a,' va ',b,' la ',a/b:4:2);
writeln(' Phan nguyen phep chia ',a,' cho ', b,' la ',a div b);
writeln(' Phan du phep chia ',a,' cho ' ,b,' la ' , a mod b);
readln;
end.
- 1 thập kỷ trước
BT1:
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a= ');
readln(a);
write('Nhap b= ');
readln(b);
writeln('Ket qua: ',a,'+',b,'=',a+b);
writeln('Ket qua: ',a,'-',b,'=',a-b);
readln;
end.
BT2:
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a= ');
readln(a);
write('Nhap b= ');
readln(b);
writeln('Ket qua: ');
writeln(a);
writeln('+',b);
writeln('--------');
write(a+b);
readln
end.
BT3:
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a= ');
readln(a);
write('Nhap b= ');
readln(b);
writeln('Ket qua: ',a,'+',b,'=',a+b);
writeln('Ket qua: ',a,'-',b,'=',a-b);
writeln('Ket qua: ',a,'x',b,'=',a*b);
writeln('Ket qua: ',a,'/',b,'=',a/b);
writeln('Phan nguyen cua: ',a,'/',b,'=',a div b);
writeln('Phan du cua: ',a,'/',b,'=',a mod b);
readln
end.
má»i thắc mắc xin liên há» Y!M: tuth_lam@yahoo.com.vn
bà i giải sẽ Äược gá»i cho các bạn trong vòng 24h.
readln;
end.
- 1 thập kỷ trước
Writeln ('4+2',4+2);
writeln ('345+5',345+5);
Thay cá»ng hoặc trừ tùy theo Äá» bà i. Còn phần nguyên thì Äánh và o là div, dÆ° thì là mod
xong thì nhấn F9 rá»i crtl+F9
thế là xong ^-^
