toomdemon
14th September 2012, 19:52
แปลงค่าเงิน สกุลต่างๆ ผม ลองเขียนแล้ว RUN ไม่ได้แก้ให้ ผมด้วยนะคับ จะส่งวันจันทร์แล้วคับ
program teat1;
uses Crt;
var baht,donller,euro,yen,money:integer;
begin
Clrscr;
writeln('inset you money=');
writeln('1.donller');
writeln('2.euro');
writeln('3.yen');
writeln;
case money of
'1donller':begin
write('baht='); readln(baht);
write('donller='); readln(donller);
money: 30*donller*baht=;
writeln('money donller=');
end;
'2euro' :begin
write('baht='); readln(baht);
write('euro='); readln(euro);
money: 50*euro*baht=;
writeln('money euro=');
end;
'3yen' :begin
write('baht='); readln(baht);
write('yen='); readln(yen);
money 40*yen*baht=;
writeln('money yen=');
end;
readln;
End.
program teat1;
uses Crt;
var baht,donller,euro,yen,money:integer;
begin
Clrscr;
writeln('inset you money=');
writeln('1.donller');
writeln('2.euro');
writeln('3.yen');
writeln;
case money of
'1donller':begin
write('baht='); readln(baht);
write('donller='); readln(donller);
money: 30*donller*baht=;
writeln('money donller=');
end;
'2euro' :begin
write('baht='); readln(baht);
write('euro='); readln(euro);
money: 50*euro*baht=;
writeln('money euro=');
end;
'3yen' :begin
write('baht='); readln(baht);
write('yen='); readln(yen);
money 40*yen*baht=;
writeln('money yen=');
end;
readln;
End.