Turbo Pascal

Rumus Tabung

uses wincrt;
var
L,K,d,s:real;
begin
write ('Masukkan Sisi:') ; readln (s);
L:=s*s;
K:=4*s;
d:=sqrt (s*s+s*s);
writeln ('Luasnya :', L:4:2);
Writeln ('Kelilingnya:', K:4:2);
writeln ('Diagonalnya:', d:4:2);
end.

Untuk Download applikasi ini, Download disini


Rumus Persegi

uses wincrt;
var
L,K,d,s:real;
begin
write ('Masukkan Sisi:') ; readln (s);
L:=s*s;
K:=4*s;
d:=sqrt (s*s+s*s);
writeln ('Luasnya :', L:4:2);
Writeln ('Kelilingnya:', K:4:2);
writeln ('Diagonalnya:', d:4:2);
end.

Untuk Download applikasi ini, Download disini


Rumus Pola Bilangan

uses wincrt;
var
a:integer;
begin
a:=1;
while a < 7776 do
begin
a:=a*6;
writeln (a);
end;
end.

Untuk download applikasi ini, download disini

TERIMAKASIH :)

Komentar

Most Popular Post

Laporan kimia Organik - IDENTIFIKASI ALDEHID DAN KETON

Laporan Kimia Organik - ANALISIS KUALITATIF KARBOHIDRAT

Laporan Praktikum Kimia Organik - Analisis Kualitatif Protein