Tin học viết chương trình

[Tam1902]

[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.

Viết chương trình*** Tính tiền đi taxi từ số km đã đi được nhập vào, biết: -1km đầu giá 5000 đ - từ km thứ 2 - thứ 5: 4500 đ/km - từ km thứ 6 trở đi: 3500 đ/km, đi hơn 120 km sẽ được giảm 10 % trên tổng số tiền được quy định.

Giúp mình với, mai kiểm tra rồi hic T^T

 

[Hải Ham Học]

bây giờ có còn cần không ?? mà nhập vô cái gì và in ra cái gì ??

 

[Mai Hải Đăng]

nếu quãng đường nằm trong khoảng giữa thì sao? Ví dụ như: 1km50m chẳng hạn
---------------------

Mình có chỉnh lại đề một tí: 2km đầu tính giá 5000đ; 2-6km tiếp theo tính giá 4500; và trên 6km tính giá 3500

 

[CuongGrove]

nếu quãng đường nằm trong khoảng giữa thì sao? Ví dụ như: 1km50m chẳng hạn
---------------------

Mình có chỉnh lại đề một tí: 2km đầu tính giá 5000đ; 2-6km tiếp theo tính giá 4500; và trên 6km tính giá 3500

Hình như Taxi tính theo từng Km chứ không tính m thì phải, mình đi Taxi ngoài đời thấy vậy

 

[Tam1902]

nếu quãng đường nằm trong khoảng giữa thì sao? Ví dụ như: 1km50m chẳng hạn
---------------------

Mình có chỉnh lại đề một tí: 2km đầu tính giá 5000đ; 2-6km tiếp theo tính giá 4500; và trên 6km tính giá 3500[/QUOTE
sao chỉnh đề vậy bạn

bây giờ có còn cần không ?? mà nhập vô cái gì và in ra cái gì ??

cần em
mai chị kiểm tra rồi

 

[CuongGrove]

nếu quãng đường nằm trong khoảng giữa thì sao? Ví dụ như: 1km50m chẳng hạn
---------------------

Mình có chỉnh lại đề một tí: 2km đầu tính giá 5000đ; 2-6km tiếp theo tính giá 4500; và trên 6km tính giá 3500

Mà code của bạn hình như bị nhầm chỗ S:= S*0.1 á bạn ơi, đề bài là giảm 10% mà bạn lại gán giá trị S còn một phần mười là giảm tới 90%

 

[Tam1902]

Mà code của bạn hình như bị nhầm chỗ S:= S*0.1 á bạn ơi, đề bài là giảm 10% mà bạn lại gán giá trị S còn một phần mười là giảm tới 90%

bạn Cuong làm hơi lạ

 

[CuongGrove]

bạn Cuong làm hơi lạ

Ủa là sao bạn, mình không hiểu ý bạn lắm. Mà code của bạn ở trên là Ok á, chỉ là hình như bạn ấy nhầm chỗ giảm 10% ấy. Bạn chạy thử xem ntn, đổi lại thành S*0.9 chỗ If d>120

 

[Tam1902]

Ủa là sao bạn, mình không hiểu ý bạn lắm. Mà code của bạn ở trên là Ok á, chỉ là hình như bạn ấy nhầm chỗ giảm 10% ấy. Bạn chạy thử xem ntn, đổi lại thành S*0.9 chỗ If d>120

đang hoang mang

 

[CuongGrove]

đang hoang mang

Bạn nói rõ hơn đc k, mình chả hiểu gì, ))))

 

[Tam1902]

Bạn nói rõ hơn đc k, mình chả hiểu gì, ))))

thấy bạn hải Đăng nói bài của bạn có vấn đề xíu xìu xiu nên mình đang hoang mang

 

[CuongGrove]

thấy bạn hải Đăng nói bài của bạn có vấn đề xíu xìu xiu nên mình đang hoang mang

Khoan, từ từ bạn. Mình có đăng bài nào đâu )))), bạn nhầm hả. À mà bạn chạy thử chương trình mới biết đc bạn ơi, thuật toán quan trọng nhất là kết quả mà

 

[uyen132004@yahoo.com]

program tientaxi
uses crt;
var s,sotien:real;
begin
writeln('nhap quang duong di:');readln(s);
if s=1 then sotien:=n*5000;
if (s>=2) and (s<=5) then sotien:=5000+(n-1)*4500;
if s>=6 then begin
sotien:=5000+4*4500+(n-5)*3500;
if s>120 then sotien:=sotien*90/100;
end;
writeln('so tien can tra la:',sotien);
end.

 

[Tam1902]

program tientaxi
uses crt;
var s,sotien:real;
begin
writeln('nhap quang duong di:');readln(s);
if s=1 then sotien:=n*5000;
if (s>=2) and (s<=5) then sotien:=5000+(n-1)*4500;
if s>=6 then begin
sotien:=5000+4*4500+(n-5)*3500;
if s>120 then sotien:=sotien*90/100;
end;
writeln('so tien can tra la:',sotien);
end.

mình vẫn chưa hiểu lắm

 

[CuongGrove]

mình vẫn chưa hiểu lắm

Bạn không hiểu chỗ nào vậy? Hay là không hiểu cả bài luôn )))))

 

[Tam1902]

Bạn không hiểu chỗ nào vậy? Hay là không hiểu cả bài luôn )))))

tinh ra mình ngu Tin xíu xìu xiu luôn
y

 

[CuongGrove]

program tientaxi
uses crt;
var s,sotien:real;
begin
writeln('nhap quang duong di:');readln(s);
if s=1 then sotien:=s*5000;
{Nếu quãng đường nhập vô là 1 thì giá tiền là 5000 vnđ}

if (s>=2) and (s<=5) then sotien:=5000+(s-1)*4500;
{Nếu quãng đường nhập vô lớn hơn hoặc bằng 2 và nhỏ hơn hoặc bằng 5 thì cộng với 5000 vnđ của 1 km đầu và 4500 vnđ cho mỗi km tiếp theo ( nhỏ hơn hoặc bằng 5 ) }

if s>=6 then begin
sotien:=5000+5*4500+(s-5)*3500;
{ Nếu quãng đường nhập vào lớn hơn hoặc bằng 6 thì đầu tiên là cộng 5000 vnđ cho số km đầu, 4500 vnđ nhân cho 5 cho 5km sau rồi 3500 vnđ cho số km tiếp theo}

if s>120 then sotien:=sotien*90/100;
{ Vì đề có cho là giảm 10% nêu đi xa hơn 120km nên ý nghĩa câu này là : nếu quãng đường lớn hơn 120 km thì giá trị của số tiền sẽ thay đổi thành 90% giá trị của nó ( giảm 10%)}

end;
writeln('so tien can tra la:',sotien);
end.

 

[Tam1902]

program tientaxi
uses crt;
var s,sotien:real;
begin
writeln('nhap quang duong di:');readln(s);
if s=1 then sotien:=s*5000;
{Nếu quãng đường nhập vô là 1 thì giá tiền là 5000 vnđ}

if (s>=2) and (s<=5) then sotien:=5000+(s-1)*4500;
{Nếu quãng đường nhập vô lớn hơn hoặc bằng 2 và nhỏ hơn hoặc bằng 5 thì cộng với 5000 vnđ của 1 km đầu và 4500 vnđ cho mỗi km tiếp theo ( nhỏ hơn hoặc bằng 5 ) }

if s>=6 then begin
sotien:=5000+5*4500+(s-5)*3500;
{ Nếu quãng đường nhập vào lớn hơn hoặc bằng 6 thì đầu tiên là cộng 5000 vnđ cho số km đầu, 4500 vnđ nhân cho 5 cho 5km sau rồi 3500 vnđ cho số km tiếp theo}

if s>120 then sotien:=sotien*90/100;
{ Vì đề có cho là giảm 10% nêu đi xa hơn 120km nên ý nghĩa câu này là : nếu quãng đường lớn hơn 120 km thì giá trị của số tiền sẽ thay đổi thành 90% giá trị của nó ( giảm 10%)}

end;
writeln('so tien can tra la:',sotien);
end.

cảm ơn nhen

 

[CuongGrove]

tinh ra mình ngu Tin xíu xìu xiu luôn
y

Mình giải thích kĩ từng câu If cho bạn rồi á, trong dấu {} ý. Nhưng nếu bạn không hiểu nữa thì từ từ hãy làm mấy bài này, bạn đọc lại sách rồi làm độ khó tăng dần lên, kiêm trì tí là được