ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
โปรแกรมแปลงอุณหภูมิ
แสดงแล้ว 7160 ครั้ง /
พฤษภาคม 27, 2010, 15:14:07

nutwin007

ออฟไลน์
กระทู้ : 1
คะแนนขอบคุณ : 0
โปรแกรมแปลงอุณหภูมิ หัดทำ แนะนำด้วย
--------------------------------
program temp;
uses crt;
var temperature:real;
     i:integer;
     ans:char;
begin
repeat
     clrscr;
     writeln('***** Wellcome To Program Temperature Conversion *****');
     writeln('------------------------------------------------------');
     writeln('1.Convers Celsius To Fahrenheit,Reaumur,Kelvin');
     writeln('2.Convers Fahrenheit To Celsius,Reaumur,Kelvin');
     writeln('3.Convers Kelvin To Celsius,Reaumur,Fahrenheit');
     writeln('4.Convers Reaumur To Celsius,Fahrenheit,Kelvin');
     writeln;
     write('Plese Select Program = ');
     readln(i);
     case i of
1 : begin
     clrscr;
     writeln('Program Convers Celsius To Fahrenheit,Reaumur,Kelvin');
     writeln('--------------------------------------------------');
     write('Input Temperature((-273.15)-300) = ');readln(temperature);
     writeln('Temperature In Fahrenheit is = ',(9/5*temperature)+32:1:2);
     writeln('Temperature In Reaumur is = ',0.8*temperature:1:2);
     writeln('Temperature In Kelvin is = ',temperature+273.15:1:2);
     end;
2 : begin
     clrscr;
     writeln('Program Convers Fahrenheit To Celsius,Reaumur,Kelvin');
     writeln('----------------------------------------------------');
     write('Input Temperature((-459.67)-572) = ');readln(temperature);
     writeln('Temperature In Celsius is = ',5/9*(temperature-32):1:2);
     writeln('Temperature In Reaumur is = ',(temperature-32)*4/9:1:2);
     writeln('Temperature In Kelvin is = ',(temperature+459.67)*5/9:1:2);
     end;
3 : begin
     clrscr;
     writeln('Program Convers Kelvin To Celsius,Reaumur,Fahrenheit');
     writeln('----------------------------------------------------');
     write('Input Temperature(0-573.15) = ');readln(temperature);
     writeln('Temperature In Celsius is = ',temperature-273.15:1:2);
     writeln('Temperature In Reaumur is = ',(temperature-273.15)*4/5:1:2);
     writeln('Temperature In Fahrenheit is = ',temperature*9/5-459.67:1:2);
     end;
4 : begin
     clrscr;
     writeln('Program Convers Reaumur To Celsius,Fahrenheit,Kelvin');
     writeln('----------------------------------------------------');
     write('Input Temperature((-218.52)-240) = ');readln(temperature);
     writeln('Temperature In Celsius is = ',temperature*5/4:1:2);
     writeln('Temperature In Kelvin is = ',temperature*5/4+273.15:1:2);
     writeln('Temperature In Fahrenheit is = ',temperature*9/4+32:1:2);
     end;
     else
        begin
              clrscr;
              writeln('Your Unkwon Choice!!')
         end;
     end;
          writeln;
          write('Plese Any Key To continue(Enter)');
          readln;
     clrscr;
     Write('Do you want to continue (Y/N) = ');readln(ans);
     ans:=upcase(ans);
     until ans ='N';
     end.


ßë©äûšë

ออฟไลน์ ( แค่นี้ยังอ่อนหัดอยู่นะ )
กระทู้ : 1,534
คะแนนขอบคุณ : 13
เลขเด็ด เลขเด็ด เลขดัง เกร็งเลข ใบ้หวย ประจำงวดนี้ ที่นี่ อาจารย์ตี๋
พฤษภาคม 27, 2010, 16:08:14
ผมก็ไม่รู้ว่าถูกรึป่าว แต่เขียนได้ขนาดนี้ก็เจ๋งแล้ว สู้ต่อไปครับ :)

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
พฤษภาคม 27, 2010, 17:37:49
ผ่านไม่เจอข้อผิดพลาดครับ ที่ทดสอบใช้มานะ

 

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

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

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