Program Pascal Procedure

Postingan kali ini gue mencoba berbagi tentang pemrograman pascal menggunakan procedure. Program pascal menggunakan procedure tentang Converter antar suhu (Dari Celcius Ke Fahrenheit, Dari Celcius Ke Reamur) dengan opsi : 1. jika pilih satu Memilih Konversi dari Celcius Ke Reamur. 2. jika memilih 2 maka memilih Konversi Celcius Ke Fahrenheit. Buat Kawan-Kawan Jangan Ragu Sedot Aja GRATISSSSSSSSSSSSS!!!!!! program xxxx; uses wincrt; procedure xxx(var c,f,g : real); begin; f:=9/5*c+32; if g = 1 then writeln('nilai celcius',c:8:2,'=','nilai fahrenheit',f:8:2); end; procedure xx(var c,r,g : real); begin; r:=4/5*c; if g = 2 then writeln('nilai celcius',c:8:2,'=','nilai reamur',r:8:2); end; var x,y,z : real; bb : string; begin clrscr; write('pilihlah 1 atau 2 ?'); readln(z); writeln('jika pilih satu anda memilih konversi fahnrenheit'); readln(bb); writeln('jika pilih dua anda memilih konversi reamur'); readln(bb); clrscr; begin; write('masukan niai celcius :'); readln(x); clrscr; writeln; xxx(x,y,z); xx(x,y,z) end; end. Catatan : Tulisan yang berwarna merah bias diganti dengan tulisan apapun terserah anda tapi INGAT DAPAT MERUBAH OPSI YANG GUE TULIS DI ATAS. coolB-)cool