IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: chat123456 ที่ เมษายน 09, 2013, 21:47:20
-
program test;
uses crt;
const donller=30;
euro = 50;
yen = 40;
var mn:string;
baht,money:integer;
totol:real;
begin
repeat
clrscr;
writeln('inset you money=');
writeln('1.donller');
writeln('2.euro');
writeln('3.yen');
writeln('4.Exit');
readln;
if (mn='1') then
begin
write('baht=');
readln(baht);
money:= donller*baht;
writeln('money donller=',money);
readln;
end;
else if (mn='2') then
begin
clrscr;
write('baht=');
readln(baht);
money:= euro*baht;
writeln('money euro=',money);
readln;
end;
else if (mn='3') then
begin
clrscr;
write('baht=');
readln(baht);
money:= yen*baht;
writeln('yen=',money);
readln;
end;
until(mn='4');
end.
-
โปรแกรมแปลงค่าเงินเหรอครับ