Contoh Program Dasar

CONTOH PROGRAM PENJUMLAHAN

program penjumlahan_sederhana;
uses wincrt ;
var
   a,b,hasil :integer;

begin
 write('a= '); readln(a);
 write('b= '); readln(b);  
 hasil:=a+b;
 writeln('a + b = ',hasil);
end.


CONTOH PROGRAM PEMBAGIAN

program pembagian;
uses wincrt ;
var

A,B,hasil :real;
 begin
     write('masukkan nilai A = ');
     readln (A);
     write('masukkan nilai B = ');
     readln (B);
     hasil:=(A/B);
     write('hasil = ');
     writeln(hasil);
end.


CONTOH PROGRAM MENGHITUNG UMUR

program menghitung_umur;
uses wincrt;
var
nama:string[25];
tahun,umur:integer;

begin
writeln('nama : '); readln(nama);
writeln('tahun lahir : '); readln(tahun);
umur:=2011-tahun;
writeln('umur : ',umur,' tahun');
end.


CONTOH PROGRAM OPERASI DUA BILANGAN

Program Operasi_Bilangan;
uses wincrt;
var
a,b,c,d,e,h:integer;
f,g:real;
begin
write('masukkan nilai pertama = ');readln(a);
write('masukkan nilai kedua = ');readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
g:=a div b;
h:=a mod b;
writeln('hasil penjumlahan = ',c);
writeln('hasil pengurangan = ',d);
writeln('hasil perkalian = ',e);
writeln('hasil pembagian = ',f:0:2);
writeln('hasil pembagian bulat = ',g:0:2);
writeln('sisa hasil bagi = ',h);
end.


CONTOH PROGRAM LUAS PERSEGI PANJANG

program luas_persegi_panjang;
uses wincrt;
var
panjang,lebar,luas:integer;
begin
writeln('panjang = '); readln(panjang);
writeln('lebar = '); readln(lebar);
luas:=panjang*lebar;
writeln('luas = ',luas);
end.


CONTOH PROGRAM GANJIL GENAP
Program mengetahui_bilangan_ganjil_atau_genap;
uses wincrt;
var    
  b:integer;

begin
     write ('bilangan = '); readln (b);
     if (b mod 2)=1 then
     write ('ganjil')
     else
     write (' genap');

end.


CONTOH PROGRAM MENCARI TITIK KOORDINAT

Program Koordinat_Titik_Tengah;
uses wincrt;
var
x1, x2, y1, y2, a, b, titik_tengah_x, titik_tengah_y:real;
begin
write('masukkan nilai x1 =');readln(x1);
write('masukkan nilai x2 =');readln(x2);
write('masukkan nilai y1 =');readln(y1);
write('masukkan nilai y2 =');readln(y2);
titik_tengah_x:=((x1+x2)/2);
titik_tengah_y:=((y1+y2)/2);
writeln('titik_tengah_x=',titik_tengah_x:10:2);
writeln('titik_tengah_y=',titik_tengah_y:10:2);
end.


CONTOH PROGRAM HURUF VOKAL

program huruf_vokal_besar_kecil;
uses wincrt;
var
data:char;
begin
readln(data);
case data of
'A','I','U','E','O':writeln('huruf besar vokal');
'a','i','u','e','o':writeln('huruf kecil vokal');
else writeln ('bukan huruf vokal');
end;


CONTOH PROGRAM LUAS DAN VOLUME KUBUS

Program Volume_Kubus_dan_Luas_Permukaan_Kubus;
uses wincrt;
var
alas, volume, luas_permukaan:real;
begin
write('masukkan luas alas =');readln(alas);
volume:=alas*alas*alas;
luas_permukaan:=6*(alas*alas);

writeln('volume=',volume:5:2);
writeln('luas_permukaan=',luas_permukaan:5:2);
end.
end.


CONTOH PROGRAM LUAS DAN KELILING LINGKARAN
Program Luas_Lingkaran_dan_Keliling_Lingkaran;
uses wincrt;
const
phi=3.142857;
var
r, Luas, Keliling:real;
begin
write ('masukkan jari-jari lingkaran: ');readln(r);
Luas:=(phi*r*r);
Keliling:=(phi*2*r);

writeln ('luas:', Luas:10:3);
writeln ('keliling:', Keliling:10:3);
end.


CONTOH PROGRAM LUAS PERMUKAAN TABUNG DAN KERUCUT
Program Luas_Permukaan_Tabung_dan_Kerucut;
uses wincrt;
const
phi=3.142857;
var
r, t, s, luas_permukaan_tabung, luas_permukaan_kerucut:real;
begin
write('masukkan jari-jari =');readln(r);
write('masukkan tinggi =');readln(t);
write('masukkan selimut_kerucut =');readln(s);
luas_permukaan_tabung:=((2*phi*r*r)+(2*phi*r*t));
luas_permukaan_kerucut:=((phi*r*r)+(phi*r*s));
writeln('luas_permukaan_tabung=',luas_permukaan_tabung:5:2);
writeln('luas_permukaan_kerucut=',luas_permukaan_kerucut:5:2);
end.