Tin học pascal bài toán về tiền điện thoại

[Ngu Cực]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

mình đã làm quá nhiều if then rồi

 

[Nhật Hạ !]

Bài mình làm cũng if...then nhưng mà không nhiều quá. Bạn xem qua nha, mình chưa chạy thử chương trình...

--Khai báo các biến cần thiết---
Begin
--Nhập p,t,m---(nhớ repeat..until để hợp điều kiện);
If m=1 then
   Begin
   if (t=7) or(t=1) then tt:=p*180 else
   tt:=p*600;
   End
else
   Begin
   if (t<>7) or(t<>1) then tt:=p*270 else
   tt:=p*900;
   End;
Write('So tien phai tra la ',tt,' dong ');
Readln;
End.

 

[Ngu Cực]

Bài mình làm cũng if...then nhưng mà không nhiều quá. Bạn xem qua nha, mình chưa chạy thử chương trình...

--Khai báo các biến cần thiết---
Begin
--Nhập p,t,m---(nhớ repeat..until để hợp điều kiện);
If m=1 then
   Begin
   if (t=7) or(t=1) then tt:=p*180 else
   tt:=p*600;
   End
else
   Begin
   if (t<>7) or(t<>1) then tt:=p*270 else
   tt:=p*900;
   End;
Write('So tien phai tra la ',tt,' dong ');
Readln;
End.

cảm ơn bạn nhiều nha