Perulangan mencetak data ke N dengan For to do
program sgt;
uses crt;
var
k:integer;
n:integer;
begin
writeln('masukkan berapa pengulangandari n=');readln(n);
writeln('Cetak urut 1...,',n);
for k:=1 to n do
writeln(k);
readln;
end.
Perulangan While do untuk menghitung penjumlahan
program contoh;
uses crt;
var
x,jumlah,k:real;
begin
jumlah:=0;
k:=1;
while k<3 do
begin
write('Masukkan nilai x:');readln(x);
jumlah:=jumlah+x;
k:=k+1;
end;
write('Jumlahnya adalah:',jumlah:2:2);
readln;
end.
Function Pangkat Dengan Menggunakan Exponen
function pangkat(x,y:integer):real;
begin
pangkat:=exp(ln(x)*y);
end;
var
a,b:integer;
begin
write('Tulis sebuah bilangan :');readln(a);
write('Mau di pangkatkan berapa :');readln(b);
writeln(a,'pangkat',b:3,'adalah',pangkat(a,b):3:0);
readln;
end.
Function Menghitung Nilai Maksimum 2 inputan
function nilai_maksimum(a,b:real):real;
begin
if a> b then
nilai_maksimum :=a
else
nilai_maksimum :=b;
end;
var
x,y:real;
begin
write('Nilai pertama :');readln(x);
write('Nilai kedua :');readln(y);
writeln('Nilai terbesar adalah',nilai_maksimum(x,y):6:2);readln;
end.
Menghitung Jari-jari Lingkaran
program sigit;
uses crt;
const phi=3.14;
var
r:integer;
hasil:real;
begin
writeln('masukkan jari-jarinya');readln(r);
hasil:=phi*r*r;
writeln('hasilnya adalah',hasil);
readln;
end.
Function Menghitung Pangkat
function pangkat3(n:integer):integer;
begin
pangkat3:=n*n*n;
write('Nilai dari pangkat ',n,' = ');
end;
var
n:integer;
begin
write('Masukkan nilai dari n= ');readln(n);
write(pangkat3(n));readln;
end.
Function Menghitung Kuadrat
function tanya_hitung:integer;
var
a:integer;
begin
writeln('masukkan nilai dari a :');readln(a);
tanya_hitung:=a*a;
write('hasilnya kuadrat ',a ,':');
end;
var
b:integer;
begin
writeln(tanya_hitung);readln;
end.
Program Exponen Sederhana
program contoh;
uses crt;
begin
writeln('Exp dari 4,6 = ',Exp(4.6):0:2);
readln;
end.
