Program Turbo Pascal For Windows 1.5 | Khoir Salam

Turbo Pascal For Windows versi 1.5

Berikut kumpulan program-program pascal dengan TPW 1.5 sebagai Compile-r nya, meskipun ada beberapa kekurangan, tetapi kami beusaha berbagi ilmu sebaik-baiknya 🙂

Semoga bermanfaat, dan berhasi!!

  • Program Deret EDCBA

program deretEDCBA;
uses wincrt;
var
i,batas:char;
begin
write(‘masukkan integer positif=’);
readln(batas);
for i:=’e’ downto ‘a’ do
write(i,’ ‘);
end.

Berikut Hasilnya:

b

  • Program Huruf A sampai Z

program HurufAsampaiZ;
uses wincrt;
var
i,batas:char;
begin
write(‘Masukkan huruf a sampai z=’);
read(batas);
for i:= ‘a’ to batas do
write(i,’   ‘);
end.

Berikut Hasilnya:

c

  • Program Jenis Bilangan Bulat

program jenis_bil_bulat;
uses wincrt;
var
x:integer;
begin
write(‘Masukkan sembarang angka=’);
read(x);
if x >0 then
write(‘positif’)
else
if x write(‘negatif’)
else
write(‘nol’)
end.

Berikut Hasilnya:

d

  • Program Bilangan Kelipatan 5

program bil_kelipatan5;
uses wincrt;
var
bil,batas:integer;
begin
write(‘Masukkan integer positif,=’);
readln(batas);
for bil:=5 to batas do
if bil mod 5=0 then
write(bil,’ ‘);
end.

Berikut Hasilnya:

a

  • program Deretan Angka 1 sampai 10

program deretan_angka1sampai10;
uses wincrt;
var
i,batas:integer;
begin
write(‘Masukkan integer positif,=’);
readln(batas);
for i:=1 to 10 do
write(i);
end.

Berikut Hasilnya:

e

  • Program konterversi suhu

program konterversi_suhu;
Uses WinCrt;
var
f,c:real;
begin
Writeln(‘Program Konversi Fareinheit Ke Celcius’);
Writeln(‘======================================’);
Writeln;
Write(‘Masukan Suhu dalam Farenheit: ‘);
readln(f);
c:=5/9*(f-32);
Writeln;
Writeln(‘Jadi Suhu Dalam Celcius Adalah: ‘,c:4:2);
end.

Berikut Hasilnya:

f

  • Program Deretan Angka Mundur

program deretan_angka_mundur;
uses wincrt;
var
i,batas:integer;
begin
write(‘masukkan integer positif=’);
readln(batas);
for i:=batas downto 1 do
write(i,’ ‘);
end.

Berikut Hasilnya:

g

  • Program Menghitung Jarak

program menghitung_jarak;
Uses WinCrt;
var
x1,x2,y1,y2:integer;
d:real;
begin
Writeln(‘Program Menghitung Jarak Titik A dan B’);
Writeln(‘======================================’);
Writeln;
Write(‘Masukan Nilai A (X1): ‘);
readln(x1);
Write(‘Masukan Nilai B (X2): ‘);
readln(x2);
Write(‘Masukan Nilai A (Y1): ‘);
readln(y1);
Write(‘Masukan Nilai B (Y2): ‘);
readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln(‘Jadi Jarak Titik A ke B Adalah: ‘,d:4:2);
end.

Berikut Hasilnya:

h

  • Program Konversi Waktu

program konversi_waktu;
Uses WinCrt;
var
j,m,d,dm,sisa,sisa1:integer;
begin
Writeln(‘Program Konversi Waktu 1’);
Writeln(‘========================’);
Writeln;
Write(‘Masukkan Jumlah Detik : ‘);
readln(dm);
if (dm/3600)>0 then
begin
j:=dm div 3600;
sisa:=dm-(j*3600);
end
else
begin
j:=0;
sisa:=dm;
end;
if (sisa/60)>0 then
begin
m:=sisa div 60;
sisa1:=sisa-(m*60);
end
else
begin
m:=0;
sisa1:=sisa;
end;
d:=sisa1;
Writeln;
Writeln(‘Hasil => ‘,j,’ jam ‘,m,’ menit ‘,d,’ detik’);
end.

Berikut Hasilnya:

j

  • Program Konversi Waktu1

program konversi_waktu1;
Uses Wincrt;
Var
j,m,d,h:integer;
begin
Writeln(‘Program Konversi Waktu’);
Writeln(‘======================’);
Writeln;
Write(‘Masukkan Jumlah Jam : ‘);
readln(j);
Write(‘Masukkan Jumlah Menit : ‘);
readln(m);
Write(‘Masukkan Jumlah Detik : ‘);
readln(d);
Writeln;
h:=(j*3600)+(m*60)+d;
Writeln(‘Jadi Hasil Konversi : ‘,h,’ Detik’);
end.

Berikut Hasilnya:

k

 

Itulah beberapa contoh program TPW 1.5 yang bisa dibagikan oleh author Khoir Salam, dari beberapa contoh di atas ada yang berasal dari ilmu di sekolah dan beberapa source di Google. Apabila ada kesalahan silakan ajukan tanggapan anda di kolom komentar. Terimakasih 🙂

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s