Rumus Pascal 5

Menghitung Kalor

uses wincrt;
var
m,c,T1,T2,T,Q:real;

begin
write('Masukkan massa benda :');read(m);
write('Masukkan kalor jenis benda :');read(c);
write('masukkan suhu akhir :');read(T2);
write('masukkan suhu awal :');read(T1);
T:=T2-T1;
Q:=m*c*T;
writeln('hasil kenaikan suhu adalah :',T:2:2);
writeln('Hasil kalornya adalah :',Q:2:2);

end.

Rumus Pascal 4

Menghitung Kecepatan rata2


uses wincrt;
var
s1,s2,t1,t2,t,s,v:real;

begin
write('Masukkan jarak kedua :');read(s2);
write('Masukkan jarak pertama :');read(s1);
write('Masukkan waktu kedua :');read(t2);
write('Masukkan waktu pertama :');read(t1);
s:=s2-s1;
t:=t2-t1;
v:=s/t;
writeln('selisih jaraknya adalah:',s:2:2);
writeln('selisih waktunya adalah :',t:2:2);
writeln('hasil kecepatan rata-rata adalah :',v:2:2);

end.

Rumus Turbo Pascal 3

uses wincrt;
Var
Nilai:Real;
Ket:string;
kembali:char;
label awal;

Begin
awal:
Write('masukkan nilai anda:');Readln(nilai);
if nilai>=77 then ket:='tuntas';
if nilai<=77 then ket:='remidi';
Writeln (ket);
Writeln('lagi:');
kembali :=Readkey;
if kembali='y' then goto awal;

end.

Rumus Turbo Pascal 2

uses wincrt;
Var
A1,A2,Hsl:real;
pilih:char;ket:string[6];

Begin

Write('masukkan angka kesukaan anda:');Readln(pilih);
if pilih='1' then ket:='jenius';
if pilih='2' then ket:='pintar';
if pilih='3' then ket:='cerdas';
if pilih='4' then ket:='sosial';
if pilih='5' then ket:='baik';
if pilih='6' then ket:='senyum';
if pilih='7' then ket:='marah2';
if pilih='8' then ket:='berani';
if pilih='9' then ket:='tegas2';
write (ket);

end.

Rumus Turbo Pascal 1

uses wincrt;

var

A1,A2,A3,Hsl1,Hsl2:real;

Begin

write ('masukkan angka pertama:');Readln (A1);

write ('masukkan angka kedua:');Readln (A2);

write ('masukkan angka ketiga:');Readln (A3);

Hsl1:=A1*A2*A3;

Hsl2:=sqr(hsl1);

writeln ('hasil kalinya adalah:',Hsl1:2:2);

writeln ('hasil kuadratnya adalah:',Hsl2:2:2);

end.