Mn người ơi giúp mình giải các bài này nha mai mik thi tin rồi
Câu 1:Chương trình sau đây có hợp lệ không?Nếu không hãy chỉnh sửa lại cho hoàn chỉnh
Program tingtong;
Begin
Writeln('nhap sp nguyen duong a:'); Readln(a)
Writeln('nhap sp nguyen duong b:'); readln(b)
S:=a+b
Writeln('tong hai so nguyen duong a va b la:',S:2:2)
Readln
Var a,b: integer;
S:real
End.
Câu 2: viết chương trình tính chu vi và diện tích hình tròn,biết bán kính đc nhập từ bàn phím.
Câu 3:chương trình sau đây có hợp lệ không?nếu không hãy chỉnh sửa lại cho hoàn chỉnh
Program tinhhieu;
Begin
Writeln('nhap sp nguyen duong a:'); readln(a);
Writeln('nhap sp nguyen duong b:');
readln(b);
S:=a-b
Writeln('hieu hai so nguyen duong a va b la:',S:2:2)
Readln
Var a,b: integer;
S: real;
End.
Câu 4: viết chương trình tính diện tích hình thang, biết rằng chiều cao bằng 5, đáy lớn và đáy bé đc nhập từ bàn phím
Câu 5:viết chương trình cho biết chữ số hàng trăm ,hàng chục ,hàng đơn vị của một số có ba chữ số.Ví dụ khi nhập số 357 thì máy in ra:
-chữ số hàng trăm:3
-chữ số hàng chục:5
-chữ số hàng đơn vị:7
Câu 6: viết chương trình giải phóng phương trình ax+b=0(các hệ số a,b đc nhập từ bàn phím)
Câu 7:viết chương trình nhập vào ba số thực dương và thông báo ra màn hình kết quả là ba số đó có phải là ba cạnh của tam giác không?
Cảm ơn trước luôn nha
câu 2:
program hinhtron;
uses crt;
var r,dt,cv:real;
const pi=3.14;
begin
clrscr;
writeln('Nhap ban kinh:');readln(r);
dt:=pi*r*r;
cv:=3*pi*r;
writeln('Chu vi hinh tron la:',cv:10:2);
writeln('Dien tich hinh tron la:',dt:10:2);
readln
end.
