[Ngọc Linh Linh]

Ai làm giúp mình bài pascal với ạ?

Tính cước truy cập internet nhập vào giờ bắt đầu và kết thúc là một số nguyên dương với cách tính như sau

- Từ 7h -17h tính 400₫/phút được giảm giá 10% nếu thời gian sử dụng >6h.

- Từ 17h-24h tính 350₫/phút được giảm giá 12% nếu thời gian truy cập >4h.

- Từ 0h-7h tính 300₫/phút được giảm giá 15% nếu thời gian truy cập >7h.

 

[Admin]

Chạy thử xem nhé em, anh không cài Pascal không test được:

Program cuocinternet;

uses crt;

var start, starm, end, endm, time, tien:word;

BEGIN

clrscr;

writeln('Nhap gio bat dau:');

readln(start);

writeln('Nhap so phut:');

readln(startm);

writeln('Nhap gio ket thuc:');

readln(end);

writeln('Nhap so phut:');

readln(endm);

min1:=start*60 + startm;

min2:=end*60 + endm;

time:=min2 - min1;

begin

case start of 7..17 : if time > 360 then tien: time * 400 - (( time * 400)*(1/10)) else

tien:= time*400;

case start of 17..24: if time > 240 then

tien:= time*350 - ((time*350)*(3/25) else

tien:= time*350;

case start of 0..7:

if time > 420 then

tien:= time * 300 - ((time*300)*(2/20)) else

tien:=time * 300;

end;

writeln('Ban da su dung ',time,' phut va so tien can tra la: ',tien,'VND');

readln

END.

 

[Ngọc Linh Linh]

Dạ vâng ạ

 

[Dinhnguyen148]

Ngày xưa mình cũng hay nhờ các cao thủ trên mạng. Hihi