Program Menghitung Jarak

Uses Crt;

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 Fareinheit Ke Celcius

Uses Crt;

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.