Program Pascal Lanjut

Kumpulan program pascal ini merupakan kumpulan latihan saat penulis belajar bahasa

pemrograman pascal. Penulis menggunakan Turbo Pascal for Windows (TPW) Versi

1.5 sebagai kompilernya. Mungkin ada kekurangan disana sini, tapi mudah-mudahan

kumpulan program ini bermanfaat bagi pembaca yang berminat dan baru mempelajari

bahasa pemrograman pascal.

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.

Program Konversi_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.