Contoh Program Turbo Pascal

      Assalamulaikum...
Langsung saja ke topik pembicaraan saya ingin berbagi ilmu yang saya da[at dari sekolah saya..hanya sekedar inginmembantu temen-temen sekalian..
ini saya punya beberapa Program Turbo Pascal..di jamin program ini jalan gan.. Langsung aja deh...>>

1.    program cari suku fibonacci

program cari_suku_fibonacci;

uses wincrt;

var

x:array[1..50] of integer;

i,n:integer;

begin

x[1]:=1; x[2]:=1;

write('anda mencari suku ke =');readln(n);

write(x[1],' ');

write(x[1],' ');

for i:= 3 to n do

begin

x[i]:=x[i-1]+x[i-2];

write(x[i],' ');

end;

writeln;

writeln('suku ke ',i,'=',x[i]);

readln;

readln;

donewincrt;

end.

2.    program Tukar Nilai

program Tukar_Nilai;

uses wincrt;

type larik=array[1..100] of integer;

var

A,B : larik;

i,x,m :Byte;

procedure tukar;

var

T:integer;

begin

x:=0;

for i:=1 to m do

begin

T:=A[i];

A[i]:=B[i];

B[i]:=T;

gotoxy(15+x,6);writeln(A[i]);

gotoxy(15+x,7);writeln(B[i]);

x:=x+2;

end;

end;

procedure

input;

var

x:Byte;

begin

randomize;

x:=0;

for i:=1 to m do

begin

A[i]:=random(10);

B[i]:=random(10);

gotoxy(15+x,12);write(A[i]);

gotoxy(15+x,13);write(B[i]);

x:=x+2;

end;

end;

begin

gotoxy(21,1);write('program menukarnilailarik A & B');

gotoxy(21,2);write('********************************');

gotoxy(1,4);write('jumlah data');readln(m);

gotoxy(5,6);write('nilai A');

gotoxy(5,7);write('nilai B');

input;

gotoxy(1,9);write('setelah ditukar');

gotoxy(1,10);write('***********************************');

gotoxy(5,12);write('nilai A');

gotoxy(5,13);write('nilai B');

tukar;

readln;

donewincrt;

end.

3.     Program Konversi waktu

program konversi_waktu;

Uses wincrt;

var j,m,dm,d,sisa,sisal:integer;

begin

writeln('program konversiwwaktu 1');

writeln('=========================');

writeln;

write('masukkan jumlah detik:');readln(dm);

if(dm/3600)>0 then

begin

j:=dm div 3600;

sisa:=dm-(j*3600);

end

else

begin

j:=0;

sisa:=dm;

end;

if (sisa/60)>0 then

begin

m:=sisa div 60;

sisal :=sisa-(m*60);

end

else

begin

m:=0;

sisal:=sisa;

end;

d:=sisal;

writeln;

writeln('hasil=>',j , 'jam',m , 'menit',d , 'detik');

readln;

donewincrt;

end.