ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
ปาสคาล
แสดงแล้ว 5576 ครั้ง /
เมษายน 09, 2013, 21:47:20
สมาชิกไม่มีภาพ

chat123456

ออฟไลน์ ( it4x.com )
กระทู้ : 1
คะแนนขอบคุณ : 0
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.


Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
เมษายน 10, 2013, 10:53:12
โปรแกรมแปลงค่าเงินเหรอครับ

 

ด้วยฟังค์ชั่น ตอบด่วน คุณสามารถใช้โค๊ดและ เครื่องหมายแสดงอารมณ์ได้ เหมือนการตั้งกระทู้ธรรมดา แต่สามารถทำได้สะดวกกว่า

ระวัง: หัวข้อนี้ไม่มีการอัพเดทมานานถึง 120 วัน

แจ้งเตือน: โพสของคุณจะไม่แสดงจนกว่าผู้ดูแลจะอนุมัติ.
ชื่อ: อีเมล์: