Contoh Source Code Program Turbo Pascal For Windows
GLADMARTIN.Tech | selamat siang.. apa kabar semoga baik-baik saja ya..
Kali ini saya akan berbagi tentang sorce code dari program pascall, yah kalau ingin belajar bahasa pemnrograman pasti pascall harus kita kuasai, karena bahasa pemrograman ini merupakan bahasa yang sangat dasar dan wajib untuk kita ketahui..
Disini saya memakai Software TPW (Turbo Pascall For Windows) kalau kalian belum punya silahkan download Turbo Pascall For Windows.
Kali ini saya akan berbagi tentang sorce code dari program pascall, yah kalau ingin belajar bahasa pemnrograman pasti pascall harus kita kuasai, karena bahasa pemrograman ini merupakan bahasa yang sangat dasar dan wajib untuk kita ketahui..
Disini saya memakai Software TPW (Turbo Pascall For Windows) kalau kalian belum punya silahkan download Turbo Pascall For Windows.
Langsung saja praktekan dan pelajari di komputer / laptop teman-teman
program konversisuhu; uses wincrt; label menu; var c,f,r,k :real; pilihan :integer; pilihan1 :char; begin menu : clrscr; writeln(' | Program Konversi Suhu [gladmartin.tech] |'); writeln(' ====================================================');writeln; writeln(' >Menu Konversi<'); writeln(' ^^^^^^^^^^^^^') ; writeln('(1) Konversi Suhu Celcius?'); writeln('(2) Konversi Suhu Farhenheit?'); writeln('(3) Konversi Suhu Reamur?'); writeln('(4) Konversi Suhu Kelvin?'); write('* Masukkan Nomor Pilihan Anda = ');readln(pilihan); writeln; case pilihan of 1:begin write('Masukkan Suhu Dalam Satuan Celcius = ');readln(c); f:=(c*(9/5))+32; r:=(c*(4/5)); k:=(c+273); writeln(' =============='); writeln(' Hasil Konversi'); writeln(' =============='); writeln('Suhu Dalam Farhenheit = ',f:2:1); writeln('Suhu Dalam Reamur = ',r:2:1); writeln('Suhu Dalam Kelvin = ',k:2:1); end; 2 :begin write('Masukkan Suhu Dalam Satuan Farhenheit = ');readln(f); c:=(5/9*(f-32)); r:=(4/9*(f-32)); k:=(5/9*(f-32)+273); writeln(' =============='); writeln(' Hasil Konversi'); writeln(' =============='); writeln('Suhu Dalam Celcius = ',c:2:1); writeln('Suhu Dalam Reamur = ',r:2:1); writeln('Suhu Dalam Kelvin = ',k:2:1); end; 3 :begin write('Masukkan Suhu Dalam Satuan Reamur = ');readln(r); c:=((5/4)*r); f:=(9/4*r+32); k:=(5/4*r+273); writeln(' =============='); writeln(' Hasil Konversi'); writeln(' =============='); writeln('Suhu Dalam Celcius = ',c:2:1); writeln('Suhu Dalam Kelvin = ',k:2:1); writeln('Suhu Dalam Farhenheit = ',f:2:1); end; 4 :begin write('Masukkan Suhu Dalam Satuan Kelvin = ');readln(k); c:=(k-273); r:=((4/5)*(k-273)); f:=(9/5*(k-273)+32); writeln(' =============='); writeln(' Hasil Konversi'); writeln(' =============='); writeln('Suhu Dalam Celcius = ',c:2:1); writeln('Suhu Dalam Reamur = ',r:2:1); writeln('Suhu Dalam Farhenheit = ',f:2:1); end; end; writeln; write('Ingin mengkonversikan lagi?[Y/T] ');readln(pilihan1); if(pilihan1='y')or(pilihan1='Y')then goto menu; clrscr; writeln(' | Program Konversi Suhu |'); writeln(' =====================================');writeln; write('Terimakasih telah menggunakan program ini :)'); end.
2.Program Kalkulator Sederhana
program kalkulator_sederhana; uses wincrt; var a,b :integer; hasil :longint; hasil2 :real; begin writeln('kalkulator sederhana'); write('masukan angka = ');readln(a); write('masukan angka = ');readln(b); hasil:=a+b;writeln('hasil ',a,'+',b,' = ',hasil); hasil:=a-b;writeln('hasil ',a,'-',b,' = ',hasil); hasil:=a*b;writeln('hasil ',a,'*',b,' = ',hasil); hasil2:=a/b;writeln('hasil ',a,'/',b,' = ',hasil2:2:2); end.
3.Program Menjumlahkan Bilangan
program jumlahbilangan; uses wincrt; var N,jml,I:integer; begin write('yg dijumlahkan = '); read(N); jml:=0;I:=1; while(I<=N) do begin jml:=jml+I; writeln(i,'=',jml); I:=I+1; end; {write('jumlahnya ',jml);} end.
4.Program Mencari Sisis Miring
program mencari_sisi_miring; uses wincrt; var a,b,c,luas:real; begin writeln('Menghitung sisi miring dan luas segitiga');writeln; write('Masukan nilai alas = ');readln(a); write('Masukan nilai tinggi = ');readln(b); c:=sqrt(sqr(a)+sqr(b)); writeln; writeln('Panjang sisi miring = ',c:0:1,' cm2'); luas:=0.5*a*b; writeln('Luas segitiga = ',luas:0:1,' cm2'); end.
Itulah tadi beberapa source code program pascall kiranya dapat membantu teman-teman sekalian yang sedang belajar program pascall.. jika masih ada yang kurang jelas silahkan tanya melalui komentar atau kontak saya
0 Response to "Contoh Source Code Program Turbo Pascal For Windows"
Post a Comment