-->

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.

Langsung saja praktekan dan pelajari di komputer / laptop teman-teman

 1.Program Mengkonversi Suhu 


 
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

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel