Contoh program algoritma dan turbo Pascal

Contoh program algoritma dan turbo Pascal Contoh Program Turbo Pascal Mencari Luas Trapesium & Volume Bola.

Menentukan Luas Trapesium

Program Luas_Trapesium;
Uses crt;
Var
sisi_a,sisi_b,tinggi,luas:real;
Begin
clrscr;
write (‘masukkan sisi a:’);
readln (sisi_a);
write(‘masukkan sisi b:’);
readln(sisi_b);
write (‘masukkan tinggi:’);
readln(tinggi);
Luas:=(sisi_a+sisi_b)/2*tinggi;
writeln(‘Luas Trapesium adalah:’,Luas:8:2);
readln;
end.

Menentukan Volume Bola

Program Volume_Bola;
Uses crt;
Var
jari_jari,volume:real;
Begin
clrscr;
write (‘masukkan jari-jari:’);
readln (jari_jari);
volume:=jari_jari*jari_jari*4/3*pi;
writeln(‘Volume Bola adalah:’,volume:8:2);
readln;
end.

contoh program algoritma increment :

#include <iostream.h>
#include <conio.h>
void main ()
{
int r,s;
r = 10;
s = 10 + ++r;
//r++;
cout << "Nilai r = "<< r << "\n";
cout << "Nilai s = "<< s << "\n";
getch();
}