program fungsi;
uses wincrt;
var
hasil_tambah : integer;
hasil_kali : integer;
hasil_bagi : real;
hasil_kurang : integer;
hasil_gabungan : real;
a,b : integer;
function tambah(a,b : integer) : integer;
begin
tambah := (2+a+b) + (2+a+b);
end;
function kali(a,b : integer) : integer;
begin
kali := (2*a*b) + (2*a*b);
end;
function bagi(a,b : integer) : real;
begin
bagi := (2*a/b) + (2*a/b);
end;
function kurang(a,b : integer) : integer;
begin
kurang := (2*a-b) + (2*a-b);
end;
function gabungan(a,b : integer) : real;
begin
gabungan := (2*a-b) + (2*a/b);
end;
begin
writeln(' PROGRAM ARITMATIKA');
writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
write('input nilai a : ');readln(a);
write('input nilai b : ');readln(b);
writeln;
hasil_tambah := tambah(a,b);
hasil_kali := kali(a,b);
hasil_bagi := bagi(a,b);
hasil_kurang := kurang(a,b);
hasil_gabungan := gabungan(a,b);
writeln('Rumus = (2+a+b)+(2+a+b)');
writeln('Hasil penjumlahan (2+',a,'+',b,') + (2+',a,'+',b,'): ',hasil_tambah);
writeln;
writeln('Rumus = (2*a*b) + (2*a*b)');
writeln('Hasil perkalian (2*',a,'*',b,') + (2*',a,'*',b,'): ',hasil_kali);
writeln;
writeln('Rumus = (2*a/b) + (2*a/b)');
writeln('Hasil pembagian (2*',a,'/',b,') + (2*',a,'/',b,'): ',hasil_bagi:0:2);
writeln;
writeln('Rumus = (2*a-b) + (2*a-b)');
writeln('Hasil pengurangan (2*',a,'-',b,') + (2*',a,'-',b,'): ',hasil_kurang);
writeln;
writeln('Rumus = (2*a-b) + (2*a/b)');
writeln('Hasil rumus gabungan (2*',a,'-',b,') + (2*',a,'/',b,'): ',hasil_gabungan:0:2);
writeln;
writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
readln;
donewincrt;
end.
Halaman
▼
Minggu, 27 Desember 2009
Selasa, 15 Desember 2009
contoh 3, program prosedur (turbo pascal)
program prosedur;
uses
wincrt;
var
pilihan:integer;
ulang:string;
procedure judul;
begin
writeln('program anak putera batam 2009/2010');
writeln('===================================');
end;
procedure menupilihan;
begin
writeln('-----menu pilihan-----');
writeln(' 1. persegi panjang ');
writeln(' 2. segitiga ');
writeln(' 3. lingkaran ');
writeln(' 4. jajaran genjang ');
writeln(' 5. bujur sangkar ');
end;
procedure p_panjang;
var
pa,le,lu:integer;
begin
writeln('prosedur I');
writeln('program persegi panjang');
write('input panjang : ');readln(pa);
write('input lebar : ');readln(le);
lu:=pa*le;
writeln('luas persegi panjang = ',lu);
end;
procedure segitiga;
var
a,ti,lu:real;
begin
writeln('prosedur II');
writeln('program luas segitiga');
write('input alas: ');readln(a);
write('input tinggi : ');readln(ti);
lu:=a*ti/2;
writeln('luas segitiga = ',lu:0:2);
end;
procedure lingkaran;
var
jari,lu,ke:real;
begin
writeln('prosedur III');
writeln('program luas dan keliling lingkaran');
write('input jari-jari : ');readln(jari);
lu:=3.14*jari*jari;
ke:=2*3.14*jari;
writeln('luas lingkaran = ',lu:0:2);
writeln('keliling lingkaran = ',ke:0:2);
end;
procedure jjrn_genjang;
var
alas,ti,luas:real;
begin
writeln('prosedur IV');
writeln('program jajaran genjang');
write('input alas : ');readln(alas);
write('input tinggi : ');readln(ti);
luas:=alas*ti;
writeln('luas jajaran genjang = ',luas:0:2);
end;
procedure bujur_sangkar;
var
sisi,luas:real;
begin
writeln('prosedur V');
writeln('program bujur sangkar');
write('sisi : ');readln(sisi);
luas:=sisi*sisi;
writeln('luas bujur sangakar = ',luas:0:2);
end;
begin
ulang:= 'YA';
while (ulang= 'YA') or (ulang= 'ya') do
begin
judul;
menupilihan;
write('silahkan anda pilih (1/2/3/4) dimenu pilihan: ');readln(pilihan);
case pilihan of
1:p_panjang;
2:segitiga;
3:lingkaran;
4:jjrn_genjang;
5:bujur_sangkar;
end;
write('mau mengulang lagi tekan YA: ');readln(ulang);
end;
readln;
donewincrt;
end.
uses
wincrt;
var
pilihan:integer;
ulang:string;
procedure judul;
begin
writeln('program anak putera batam 2009/2010');
writeln('===================================');
end;
procedure menupilihan;
begin
writeln('-----menu pilihan-----');
writeln(' 1. persegi panjang ');
writeln(' 2. segitiga ');
writeln(' 3. lingkaran ');
writeln(' 4. jajaran genjang ');
writeln(' 5. bujur sangkar ');
end;
procedure p_panjang;
var
pa,le,lu:integer;
begin
writeln('prosedur I');
writeln('program persegi panjang');
write('input panjang : ');readln(pa);
write('input lebar : ');readln(le);
lu:=pa*le;
writeln('luas persegi panjang = ',lu);
end;
procedure segitiga;
var
a,ti,lu:real;
begin
writeln('prosedur II');
writeln('program luas segitiga');
write('input alas: ');readln(a);
write('input tinggi : ');readln(ti);
lu:=a*ti/2;
writeln('luas segitiga = ',lu:0:2);
end;
procedure lingkaran;
var
jari,lu,ke:real;
begin
writeln('prosedur III');
writeln('program luas dan keliling lingkaran');
write('input jari-jari : ');readln(jari);
lu:=3.14*jari*jari;
ke:=2*3.14*jari;
writeln('luas lingkaran = ',lu:0:2);
writeln('keliling lingkaran = ',ke:0:2);
end;
procedure jjrn_genjang;
var
alas,ti,luas:real;
begin
writeln('prosedur IV');
writeln('program jajaran genjang');
write('input alas : ');readln(alas);
write('input tinggi : ');readln(ti);
luas:=alas*ti;
writeln('luas jajaran genjang = ',luas:0:2);
end;
procedure bujur_sangkar;
var
sisi,luas:real;
begin
writeln('prosedur V');
writeln('program bujur sangkar');
write('sisi : ');readln(sisi);
luas:=sisi*sisi;
writeln('luas bujur sangakar = ',luas:0:2);
end;
begin
ulang:= 'YA';
while (ulang= 'YA') or (ulang= 'ya') do
begin
judul;
menupilihan;
write('silahkan anda pilih (1/2/3/4) dimenu pilihan: ');readln(pilihan);
case pilihan of
1:p_panjang;
2:segitiga;
3:lingkaran;
4:jjrn_genjang;
5:bujur_sangkar;
end;
write('mau mengulang lagi tekan YA: ');readln(ulang);
end;
readln;
donewincrt;
end.
contoh 2, program prosedur (turbo pascal)
program prosedur;
uses
wincrt;
var
pilihan:integer;
ulang:string;
procedure judul;
begin
writeln('program anak putera batam 2009/2010');
writeln('===================================');
end;
procedure menupilihan;
begin
writeln('-----menu pilihan-----');
writeln(' 1. persegi panjang ');
writeln(' 2. segitiga ');
writeln(' 3. lingkaran ');
end;
procedure p_panjang;
var
pa,le,lu:integer;
begin
writeln('prosedur I');
writeln('program persegi panjang');
write('input panjang : ');readln(pa);
write('input lebar : ');readln(le);
lu:=pa*le;
writeln('luas persegi panjang = ',lu);
end;
procedure segitiga;
var
a,ti,lu:real;
begin
writeln('prosedur II');
writeln('program luas segitiga');
write('input alas: ');readln(a);
write('input tinggi : ');readln(ti);
lu:=a*ti/2;
writeln('luas segitiga = ',lu:0:2);
end;
procedure lingkaran;
var
jari,lu,ke:real;
begin
writeln('prosedur III');
writeln('program luas dan keliling lingkaran');
write('input jari-jari : ');readln(jari);
lu:=3.14*jari*jari;
ke:=2*3.14*jari;
writeln('luas lingkaran = ',lu:0:2);
writeln('keliling lingkaran = ',ke:0:2);
end;
begin
ulang:= 'YA';
while (ulang= 'YA') or (ulang= 'ya') do
begin
judul;
menupilihan;
write('silahkan anda pilih (1/2/3) dimenu pilihan: ');readln(pilihan);
case pilihan of
1:p_panjang;
2:segitiga;
3:lingkaran;
end;
write('mau mengulang lagi tekan YA: ');readln(ulang);
end;
readln;
donewincrt;
end.
uses
wincrt;
var
pilihan:integer;
ulang:string;
procedure judul;
begin
writeln('program anak putera batam 2009/2010');
writeln('===================================');
end;
procedure menupilihan;
begin
writeln('-----menu pilihan-----');
writeln(' 1. persegi panjang ');
writeln(' 2. segitiga ');
writeln(' 3. lingkaran ');
end;
procedure p_panjang;
var
pa,le,lu:integer;
begin
writeln('prosedur I');
writeln('program persegi panjang');
write('input panjang : ');readln(pa);
write('input lebar : ');readln(le);
lu:=pa*le;
writeln('luas persegi panjang = ',lu);
end;
procedure segitiga;
var
a,ti,lu:real;
begin
writeln('prosedur II');
writeln('program luas segitiga');
write('input alas: ');readln(a);
write('input tinggi : ');readln(ti);
lu:=a*ti/2;
writeln('luas segitiga = ',lu:0:2);
end;
procedure lingkaran;
var
jari,lu,ke:real;
begin
writeln('prosedur III');
writeln('program luas dan keliling lingkaran');
write('input jari-jari : ');readln(jari);
lu:=3.14*jari*jari;
ke:=2*3.14*jari;
writeln('luas lingkaran = ',lu:0:2);
writeln('keliling lingkaran = ',ke:0:2);
end;
begin
ulang:= 'YA';
while (ulang= 'YA') or (ulang= 'ya') do
begin
judul;
menupilihan;
write('silahkan anda pilih (1/2/3) dimenu pilihan: ');readln(pilihan);
case pilihan of
1:p_panjang;
2:segitiga;
3:lingkaran;
end;
write('mau mengulang lagi tekan YA: ');readln(ulang);
end;
readln;
donewincrt;
end.
contoh 1, program prosedur (turbo pascal)
program prosedur;
uses
wincrt;
procedure p_panjang
var
pa,le,lu:integer;
begin
writeln('prosedur I');
writeln('program persegi panjang');
write('input panjang : ');readln(pa);
write('input lebar : ');readln(le);
lu:=pa*le;
writeln('luas persegi panjang = ',lu);
end;
procedure segitiga;
var
a,ti,lu:real;
begin
writeln('prosedur II');
writeln('program luas segitiga');
write('input alas: ');readln(a);
write('input tinggi : ');readln(ti);
lu:=a*ti/2;
writeln('luas segitiga = ',lu:0:2);
end;
procedure lingkaran;
var
jari,lu,ke:real;
begin
writeln('prosedur III');
writeln('program luas dan keliling lingkaran');
write('input jari-jari : ');readln(jari);
lu:=3.14*jari*jari;
ke:=2*3.14*jari;
writeln('luas lingkaran = ',lu:0:2);
writeln('keliling lingkaran = ',ke:0:2);
end;
begin
p_panjang;
writeln;
segitiga;
writeln;
lingkaran;
readln;
donewincrt;
end.
uses
wincrt;
procedure p_panjang
var
pa,le,lu:integer;
begin
writeln('prosedur I');
writeln('program persegi panjang');
write('input panjang : ');readln(pa);
write('input lebar : ');readln(le);
lu:=pa*le;
writeln('luas persegi panjang = ',lu);
end;
procedure segitiga;
var
a,ti,lu:real;
begin
writeln('prosedur II');
writeln('program luas segitiga');
write('input alas: ');readln(a);
write('input tinggi : ');readln(ti);
lu:=a*ti/2;
writeln('luas segitiga = ',lu:0:2);
end;
procedure lingkaran;
var
jari,lu,ke:real;
begin
writeln('prosedur III');
writeln('program luas dan keliling lingkaran');
write('input jari-jari : ');readln(jari);
lu:=3.14*jari*jari;
ke:=2*3.14*jari;
writeln('luas lingkaran = ',lu:0:2);
writeln('keliling lingkaran = ',ke:0:2);
end;
begin
p_panjang;
writeln;
segitiga;
writeln;
lingkaran;
readln;
donewincrt;
end.
Sabtu, 12 Desember 2009
contoh 7, program nested_for (turbo pascal)
program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:char;
BEGIN
PILIHAN:='y';
WHILE (PILIHAN= 'y')OR (PILIHAN= 'y') do
BEGIN
clrscr;
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
BEGIN
FOR KOLOM:= 1TO BARIS DO
WRITE(KOLOM, ' ');
WRITELN;
WRITELN;
END;
write('apakah anda mau mengulang (ya/no): ');readln(pilihan);
end;
READLN;
DONEWINCRT;
END.
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:char;
BEGIN
PILIHAN:='y';
WHILE (PILIHAN= 'y')OR (PILIHAN= 'y') do
BEGIN
clrscr;
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
BEGIN
FOR KOLOM:= 1TO BARIS DO
WRITE(KOLOM, ' ');
WRITELN;
WRITELN;
END;
write('apakah anda mau mengulang (ya/no): ');readln(pilihan);
end;
READLN;
DONEWINCRT;
END.
contoh 6, program nested_for (turbo pascal)
program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:char;
BEGIN
PILIHAN:='y';
WHILE (PILIHAN= 'y')OR (PILIHAN= 'y') do
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
BEGIN
FOR KOLOM:= 1TO BARIS DO
WRITE(KOLOM, ' ');
WRITELN;
WRITELN;
END;
write('apakah anda mau mengulang (ya/no): ');readln(pilihan);
end;
READLN;
DONEWINCRT;
END.
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:char;
BEGIN
PILIHAN:='y';
WHILE (PILIHAN= 'y')OR (PILIHAN= 'y') do
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
BEGIN
FOR KOLOM:= 1TO BARIS DO
WRITE(KOLOM, ' ');
WRITELN;
WRITELN;
END;
write('apakah anda mau mengulang (ya/no): ');readln(pilihan);
end;
READLN;
DONEWINCRT;
END.
contoh 5, program nested_for (turbo pascal)
program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:STRING;
BEGIN
PILIHAN:='YA';
WHILE (PILIHAN= 'YA')OR (PILIHAN= 'ya') do
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
BEGIN
FOR KOLOM:= 1TO BARIS DO
WRITE(KOLOM, ' ');
WRITELN;
WRITELN;
END;
write('apakah anda mau mengulang (ya/no): ');readln(pilihan);
end;
READLN;
DONEWINCRT;
END.
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:STRING;
BEGIN
PILIHAN:='YA';
WHILE (PILIHAN= 'YA')OR (PILIHAN= 'ya') do
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
BEGIN
FOR KOLOM:= 1TO BARIS DO
WRITE(KOLOM, ' ');
WRITELN;
WRITELN;
END;
write('apakah anda mau mengulang (ya/no): ');readln(pilihan);
end;
READLN;
DONEWINCRT;
END.
contoh 4, program nested_for (turbo pascal)
program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=BARIS DOWNTO 1 DO
BEGIN
FOR KOLOM:= 1TO KOLOM DO
WRITE(KOLOM, ' ');
WRITELN;
WRITELN;
END;
READLN;
DONEWINCRT;
END.
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=BARIS DOWNTO 1 DO
BEGIN
FOR KOLOM:= 1TO KOLOM DO
WRITE(KOLOM, ' ');
WRITELN;
WRITELN;
END;
READLN;
DONEWINCRT;
END.
contoh 3, program nested_for (turbo pascal)
program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=BARIS DOWNTO 1 DO
BEGIN
FOR KOLOM:= 1TO KOLOM DO
WRITE(BARIS, ' ');
WRITELN;
END;
END.
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=BARIS DOWNTO 1 DO
BEGIN
FOR KOLOM:= 1TO KOLOM DO
WRITE(BARIS, ' ');
WRITELN;
END;
END.
contoh 2, program nested_for (turbo pascal)
program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
BEGIN
FOR KOLOM:= 1TO BARIS DO
WRITE(BARIS, ' ');
WRITELN;
WRITELN;
END;
READLN;
DONEWINCRT;
END.
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
BEGIN
FOR KOLOM:= 1TO BARIS DO
WRITE(BARIS, ' ');
WRITELN;
WRITELN;
END;
READLN;
DONEWINCRT;
END.
contoh 1, program nested_for (turbo pascal)
program nested_for;
USES
WINCRT;
var
I,K:INTEGER;
BEGIN
FOR I:=1 to 3 DO
BEGIN
FOR K:=1 TO 5 DO
WRITE(K, ' ');
WRITELN;
END;
END.
USES
WINCRT;
var
I,K:INTEGER;
BEGIN
FOR I:=1 to 3 DO
BEGIN
FOR K:=1 TO 5 DO
WRITE(K, ' ');
WRITELN;
END;
END.
Selasa, 08 Desember 2009
contoh program while_do(turbo pascal)
program while_do;
uses wincrt;
var
i,n:integer;
begin
write('input banyak perulangan: ');readln(n);
i:=1;
while i<=n do
begin
writeln(i, 'batam');
i:=i+1;
end;
readln;
donewincrt;
end.
uses wincrt;
var
i,n:integer;
begin
write('input banyak perulangan: ');readln(n);
i:=1;
while i<=n do
begin
writeln(i, 'batam');
i:=i+1;
end;
readln;
donewincrt;
end.
contoh program while_do(turbo pascal)
program while_do;
uses wincrt;
var
i,n,jum:integer;
rata:real;
begin
write('input banyak perulangan: ');readln(n);
i:=1;
while i<=n do
begin
writeln(i, 'batam');
i:=i+1;
end;
i:=1;
jum:=0;
rata:=0;
while i<=n do
begin
jum:=jum+i;
rata:=jum/n;
i:=i+1;
end;
writeln('hasil penjumlahan deret perulangan : ',jum);
writeln('hasil rata-rata deret perulangan : ',rata:0:2);
readln;
donewincrt;
end.
uses wincrt;
var
i,n,jum:integer;
rata:real;
begin
write('input banyak perulangan: ');readln(n);
i:=1;
while i<=n do
begin
writeln(i, 'batam');
i:=i+1;
end;
i:=1;
jum:=0;
rata:=0;
while i<=n do
begin
jum:=jum+i;
rata:=jum/n;
i:=i+1;
end;
writeln('hasil penjumlahan deret perulangan : ',jum);
writeln('hasil rata-rata deret perulangan : ',rata:0:2);
readln;
donewincrt;
end.
contoh program for_do(turbo pascal)
program for_do;
uses wincrt;
var
jum,i,n:integer;
rata:real;
begin
jum:=0;
rata:=0;
write('input banyak perulangan ======> ');readln(n);
for i:=1 to n do
writeln ('urutan perulangan==========>' ,i);
for i:=1 to n do
jum:=jum+i;
rata:=jum/n;
writeln('hasil penjumlahan bil ======> ',jum);
writeln('hasil rata-rata ======> ',rata:0:2);
readln;
donewincrt;
end.
uses wincrt;
var
jum,i,n:integer;
rata:real;
begin
jum:=0;
rata:=0;
write('input banyak perulangan ======> ');readln(n);
for i:=1 to n do
writeln ('urutan perulangan==========>' ,i);
for i:=1 to n do
jum:=jum+i;
rata:=jum/n;
writeln('hasil penjumlahan bil ======> ',jum);
writeln('hasil rata-rata ======> ',rata:0:2);
readln;
donewincrt;
end.
contoh program for_do(turbo pascal)
program for_do;
uses wincrt;
var
a,b,c,d,n,e:integer;
bagi:real;
begin
write ('input banyak perulangan : ');readln(n);
writeln ('---------------------------------------------------------');
writeln (' a a*a a*a*a a*a*a*a 1/a ');
writeln ('---------------------------------------------------------');
for a:=1 to n do
begin
b:=a*a;
c:=a*a*a;
d:=a*a*a*a;
bagi:=1/a;
writeln ( a:5, b:10, c:12, d:11, bagi:14:2);
end;
writeln ('--------------------------------------------------------');
readln;
donewincrt;
end.
uses wincrt;
var
a,b,c,d,n,e:integer;
bagi:real;
begin
write ('input banyak perulangan : ');readln(n);
writeln ('---------------------------------------------------------');
writeln (' a a*a a*a*a a*a*a*a 1/a ');
writeln ('---------------------------------------------------------');
for a:=1 to n do
begin
b:=a*a;
c:=a*a*a;
d:=a*a*a*a;
bagi:=1/a;
writeln ( a:5, b:10, c:12, d:11, bagi:14:2);
end;
writeln ('--------------------------------------------------------');
readln;
donewincrt;
end.
contoh program pengulangan for_do(turbo pascal)
program pengulangan(for_do);
uses
wincrt;
var
jum,n,i:integer;
rata:real;
begin
writeln('input banyak perulangan: ');readln(n);
for i:=1 to n do
writeln(i);
for i:=1 to n do
jum:=jum+i;
rata:=jum/n;
writeln('hasil penjumlahan bil ', jum);
writeln('hasil rata-rata ',rata:0:2);
readln;
donewincrt;
end.
uses
wincrt;
var
jum,n,i:integer;
rata:real;
begin
writeln('input banyak perulangan: ');readln(n);
for i:=1 to n do
writeln(i);
for i:=1 to n do
jum:=jum+i;
rata:=jum/n;
writeln('hasil penjumlahan bil ', jum);
writeln('hasil rata-rata ',rata:0:2);
readln;
donewincrt;
end.
contoh program luas_ling(turbo pascal)
program luas_ling;
uses WinCrt;
const
phi=3.14;
var
jari_jari:real;
luas_lingkaran:real;
begin
write(' input nilai jari-jari = cm ');readln(jari_jari);
luas_lingkaran:=phi*jari_jari*jari_jari;
writeln('luas lingkaran adalah = cm ' ,luas_lingkaran:0:2);
readln;
donewincrt;
end.
uses WinCrt;
const
phi=3.14;
var
jari_jari:real;
luas_lingkaran:real;
begin
write(' input nilai jari-jari = cm ');readln(jari_jari);
luas_lingkaran:=phi*jari_jari*jari_jari;
writeln('luas lingkaran adalah = cm ' ,luas_lingkaran:0:2);
readln;
donewincrt;
end.
contoh program bilangan_terbesar(turbo pascal)
program bilangan_terbesar;
uses
WinCrt;
var
a,b,c:real;
begin
writeln(' Program Bilangan Terbesar');
writeln(' =========================');
write('input bilangan a: ');readln(a);
write('input bilangan b: ');readln(b);
write('input Bilangan c: ');readln(c);
if (a>b) and (a>c)then
writeln('bilangan terbesar',a:0:2)
else
if (b>a) and (b>c)then
writeln( 'bilangan terbesar',b:0:2)
else
if (c>a) and (c>b)then
writeln(' bilangan terbesar',c:0:2)
else
if (a=b) and (a=c) then
if (b=a) and (b=c) then
if (c=a) and (c=b) then
writeln(' nilai bilangan a,b,c sama');
readln;
donewincrt;
end.
uses
WinCrt;
var
a,b,c:real;
begin
writeln(' Program Bilangan Terbesar');
writeln(' =========================');
write('input bilangan a: ');readln(a);
write('input bilangan b: ');readln(b);
write('input Bilangan c: ');readln(c);
if (a>b) and (a>c)then
writeln('bilangan terbesar',a:0:2)
else
if (b>a) and (b>c)then
writeln( 'bilangan terbesar',b:0:2)
else
if (c>a) and (c>b)then
writeln(' bilangan terbesar',c:0:2)
else
if (a=b) and (a=c) then
if (b=a) and (b=c) then
if (c=a) and (c=b) then
writeln(' nilai bilangan a,b,c sama');
readln;
donewincrt;
end.
contoh program operator_aritmatika(turbo pascal)
program operator_aritmatika;
uses WinCrt;
var
x,y:integer;
begin
write(' masukkan nilai x = ');readln(X);
write(' masukkan nilai y =');readln (y);
writeln;
writeln(' x > y = ',x > y);
writeln(' x >= y = ',x >= y);
writeln(' x < y = ',x < y);
writeln(' X <= y =',x <= y);
writeln(' x = y =',x = y);
writeln(' x <> y =',x <> y);
writeln;
readln;
donewincrt;
end.
uses WinCrt;
var
x,y:integer;
begin
write(' masukkan nilai x = ');readln(X);
write(' masukkan nilai y =');readln (y);
writeln;
writeln(' x > y = ',x > y);
writeln(' x >= y = ',x >= y);
writeln(' x < y = ',x < y);
writeln(' X <= y =',x <= y);
writeln(' x = y =',x = y);
writeln(' x <> y =',x <> y);
writeln;
readln;
donewincrt;
end.
contoh program operator_aritmatika(turbo pascal)
program operator_aritmatika;
uses WinCrt;
var
x,y:integer;
begin
write(' masukkan nilai x = ');readln(x);
write(' masukkan nilai y =');readln (y);
writeln;
writeln(' x + y = ',x + y);
writeln(' x - y = ',x - y);
writeln(' x / y = ',x / y:0:2);
writeln(' X div y =',x div y);
writeln(' x mod y =',x mod y);
readln;
donewincrt;
end.
uses WinCrt;
var
x,y:integer;
begin
write(' masukkan nilai x = ');readln(x);
write(' masukkan nilai y =');readln (y);
writeln;
writeln(' x + y = ',x + y);
writeln(' x - y = ',x - y);
writeln(' x / y = ',x / y:0:2);
writeln(' X div y =',x div y);
writeln(' x mod y =',x mod y);
readln;
donewincrt;
end.
contoh program logika_and(turbo pascal)
program logika_and;
uses WinCrt;
begin;
writeln('benar and benar =',true and true);
writeln('benar and salah =',true and false);
writeln('salah and benar =',false and true);
writeln('salah and salah =',false and false);
writeln;
writeln('benar or benar =',true or true);
writeln('benar or salah =',true or false);
writeln('salah or benar =',false or true);
writeln('salah or salah =',false or false);
writeln;
writeln('benar xor benar =',true xor true);
writeln('benar xor salah =',true xor false);
writeln('salah xor benar =',false xor true);
writeln('salah xor salah =',false xor false);
readln;
donewincrt;
end.
uses WinCrt;
begin;
writeln('benar and benar =',true and true);
writeln('benar and salah =',true and false);
writeln('salah and benar =',false and true);
writeln('salah and salah =',false and false);
writeln;
writeln('benar or benar =',true or true);
writeln('benar or salah =',true or false);
writeln('salah or benar =',false or true);
writeln('salah or salah =',false or false);
writeln;
writeln('benar xor benar =',true xor true);
writeln('benar xor salah =',true xor false);
writeln('salah xor benar =',false xor true);
writeln('salah xor salah =',false xor false);
readln;
donewincrt;
end.
contoh program data pribadi(turbo pascal)
program nama_pribadi;
uses
WinCrt;
var
nama:string[15];
umur:string[3];
tanggal_lahir:string[20];
alamat:string[30];
begin
Write('masukan nama anda : ');
readln(nama);
write('masukan umur : ');
readln(umur);
write('masukan tanggal_lahir : ');
readln(tanggal_lahir);
write('masukan alamat anda : ');
readln(alamat);
WRITELN;
writeln;
writeln(' <<>>');
writeln;
writeln('nama anda adalah : ',nama);
write;
write('umur SAYA adalah : ',umur);
writeln;
writeln('tanggal lahir saya adalah : ',tanggal_lahir);
writeln('alamat saya adalah : ',alamat);
readln;
DONEWINCRT
end.
uses
WinCrt;
var
nama:string[15];
umur:string[3];
tanggal_lahir:string[20];
alamat:string[30];
begin
Write('masukan nama anda : ');
readln(nama);
write('masukan umur : ');
readln(umur);
write('masukan tanggal_lahir : ');
readln(tanggal_lahir);
write('masukan alamat anda : ');
readln(alamat);
WRITELN;
writeln;
writeln(' <<>>');
writeln;
writeln('nama anda adalah : ',nama);
write;
write('umur SAYA adalah : ',umur);
writeln;
writeln('tanggal lahir saya adalah : ',tanggal_lahir);
writeln('alamat saya adalah : ',alamat);
readln;
DONEWINCRT
end.