B1: VCT tính tổng tiền đi xe taxi biết rằng 1km đầu tên giá 13000 VND. Từ km thứ hai đến km thứ ba mươi giá 12000 và trên 30km giá 11000 VND. Biết rằng số km được nhập từ bàn phím
B2: VCT nhập hai số thực rồi hỏi phép tính và thực hiện phép tính đó và in kết
B3: VCT nhập bán kính của hai đường tròn và khoảng cách giữa hai tâm của đường tròn là d. Xác định vị trí tương đối của hai đường...
Đọc tiếp
B1: VCT tính tổng tiền đi xe taxi biết rằng 1km đầu tên giá 13000 VND. Từ km thứ hai đến km thứ ba mươi giá 12000 và trên 30km giá 11000 VND. Biết rằng số km được nhập từ bàn phím
B2: VCT nhập hai số thực rồi hỏi phép tính và thực hiện phép tính đó và in kết
B3: VCT nhập bán kính của hai đường tròn và khoảng cách giữa hai tâm của đường tròn là d. Xác định vị trí tương đối của hai đường tròn.
bài 1;
Program bai1;
uses crt;
var tienxe: real;
a: integer;
begin
clrscr;
write('nhap so km ='); readln(a);
if a <= 1 then tienxe:=13000*a
else
if a <= 30 then tienxe:=13000*1+12000*(a-1)
else
tienxe:=13000*1+29*12000+(a-30)*11000;
writeln('so tien xe phai tra la : ' ,tienxe:9:0,'VND');
readln;
end.
Chúc bạn học tốt !
Bài 2:
Program bai2;
uses crt;
var a,b,kq: real;
pt: char;
begin
clrscr;
write('Nhap 2 so a, b: ');
readln(a,b);
writeln ('Nhap phep tinh can thuc hien: ');
readln(pt);
case pt of
'+' : kq:=a+b;
'-' : kq:=a-b;
'*' : kq:=a*b;
'/' : kq:=a/b;
end;
write('Ket qua: ',kq:0:2);
readln ;
end.