program pascal

Diposting oleh Enggar Wira Kusuma
Posted: 26 Apr 2011 04:54 AM PDT
uses wincrt;
var n1,n2,p,h:real;
begin
writeln('Program Kalkulator');
writeln('==================');
write('Masukkan Nilai Pertama= ');readln(n1);
write('Masukkan Nilai Kedua= ');readln(n2);
writeln('Pilih Operasi:');
writeln('1 --> Perkalian');
writeln('2 --> Pembagian');
writeln('3 --> Penjumlahan');
writeln('4 --> Pengurangan');
write('Pilihan anda [1..4]= ');readln(p);
if p=1 then h:=n1*n2;
if p=2 then h:=n1/n2;
if p=3 then h:=n1+n2;
if p=4 then h:=n1-n2;
writeln('Hasil Operasinya Adalah= ',h:0:2);
readln;
end.

Hasil:
Posted: 26 Apr 2011 04:30 AM PDT
uses wincrt;
procedure Mean;
var
n,x,i,tot :integer;
Rata :real;
lagi :char;
begin
repeat
clrscr;
write('Masukkan bilangan :');readln(n);
tot:=0;
for i:=1 to n do
begin
write('Masukkan bilangan ke:',i,' ');readln(x);
tot:=tot+x;
end;
Rata:=tot/n;
Writeln('Rata-rata :',Rata:0:2);
writeln('Lagi....? [Y/T]');lagi:=upcase(readkey);
writeln(lagi);
until lagi <> 'Y';
end;
begin
Mean;
end.

Hasil:
Posted: 26 Apr 2011 04:22 AM PDT
Uses WinCrt;
Const
Rom : array [1..13] of String =
('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I');
Des : array [1..13] of integer =
(1000,900,500,400,100,90,50,40,10,9,5,4,1);
Var
Bil,i,Bil1 : Integer;
Roma : String;
Begin
Write('Masukkan Suatu Bilangan [1..3999] : ');
Readln(Bil);
Bil1 := Bil;
if (Bil > 0) and (Bil < 4000) then
Begin
For i:=1 to 13 do
Begin
while (Bil >= Des[i]) do
Begin
Bil := Bil - Des[i];
Roma := Roma + Rom[i]
End;
End;
Write('Desimal ',Bil1,' Romawinya ',Roma)
end
else
Writeln('Tidak Diketahui Simbol Romawinya.....');
End.

Hasil:
Posted: 26 Apr 2011 04:19 AM PDT
Uses Wincrt;
Function Pkt(X :real;n : integer):real;
var t : real;
m : integer;
Begin
m:=abs(n);
if (x<>0) and (n=0) then pkt:=1
else if n >0 then
pkt:=x*pkt(x,n-1)
else if (n < 0) then pkt := 1/(x*pkt(x,m-1));
end;
var x : real;
n : integer;
begin
write('Bilangan yang dipangkatkan : ');readln(x);
write('Bilangan pangkat : ');readln(n);
writeln(x:5:2,' Pangkat ',n,' = ',Pkt(x,n):8:3);
end.

Hasil:
Posted: 26 Apr 2011 04:24 AM PDT
uses wincrt;
var
faktor :real;
i,n :integer;
begin
write('Masukkan bilangan n =');readln(n);
faktor:=1;
for i:= 2 to n do{Menghitung n faktorial}
faktor:=faktor*i;
writeln(n,' Faktorial = ',faktor:0:0);
end.

Hasil:
Posted: 26 Apr 2011 03:42 AM PDT
uses wincrt;
var
nilai :integer;
lagi :char;
begin
repeat
clrscr;
Write('Masukkan nilai :');readln(nilai);
case nilai of
81..100 :writeln('A');
61..80 :writeln('B');
41..60 :writeln('C');
21..40 :writeln('D');
0..20 :writeln('E');
else
writeln('Salah nilai');
end;
write('Lagi.....[Y/T]');lagi:=upcase(readkey);
writeln(lagi);
until lagi <> 'Y';
end.

Hasil:
Posted: 26 Apr 2011 03:31 AM PDT
Program Konversi_Bilangan;
Uses WinCrt;
Var
des,desi : integer;
Bin : String;
Begin
Write('Masukkan Suatu Bilangan Desimal :');Readln(des);
desi:=des;
bin:='';
repeat
if(des mod 2 = 0) then bin:='0'+bin
else bin:='1' + bin;
des:=des div 2;
until des=0;
writeln('(',desi,') desimal =',bin,' (Biner)');
end.

Hasil:
Posted: 26 Apr 2011 03:29 AM PDT
uses wincrt;
var
bil,i,x :word;
prima :boolean;
batas :integer;
lagi :char;
begin
repeat
clrscr;
write('Masukkan bilangan :');read(bil);
batas:=round(sqrt(bil))+1;
prima:=true;
if (bil=2 ) or (bil=3) then
prima:=true
else
for i:= 2 to batas do
if bil mod i = 0 then
prima:=false;
if prima = true then
writeln(bil,' Adalah prima')
else
writeln(bil,' Bukan prima');
write('Lagi......[Y/T]');lagi:=upcase(readkey);
writeln(lagi);
until lagi <> 'Y';
end.

Hasil :
Posted: 26 Apr 2011 03:26 AM PDT
uses wincrt;
var
x:array[1..10] of integer;
i,n,jum,njum:integer;
rata:real;
begin
clrscr;
jum:=0;
write('Masukkan cacah data =');readln(n);
for i:= 1 to n do
begin
write('Masukkan data ke-',i, '=');readln(x[i]);
jum:=jum+x[i];
njum:=njum+1;
Rata:=jum/njum;
end;
writeln('Jumlah = ',jum);
writeln('Rata-rata = ',rata:0:2);
end.

Hasil:
Posted: 26 Apr 2011 03:20 AM PDT
uses wincrt;
 const sks:array[1..8] of integer=(2,2,2,2,2,2,1,1);
type
siswa=record
nim:string[5];
nama:string[15];
Nihur:array[1..8] of char;
end;
type kuliah=array[1..2] of siswa;
var kul:kuliah;
{--------------------------------------------------------------------}
function bobot(huruf:char):integer;
begin
case upcase(huruf) of
'E':bobot:=0;
'D':bobot:=1;
'C':bobot:=2;
'B':bobot:=3;
'A':bobot:=4;
end;
end;
{--------------------------------------------------------------------}

procedure masuk(var kul:kuliah);
var i,j,bbt,jumus,jumsks:integer;
ip:real;
begin
jumsks:=0;
gotoxy(20,1);writeln('PENGOLAHAN NILAI PRA TI 2011');
for i:=1 to 8 do
jumsks:=jumsks+sks[i];
gotoxy(1,3);writeln('No. No.Mhs Nama Mk1 Mk2 Mk3 Mk4 Mk5 Mk6 Mk7 Mk8 IP Ket');
for i:=1 to 19 do begin
jumus:=0;
gotoxy(1,3+i);writeln(i);
gotoxy(6,3+i);readln(kul[i].nim);
gotoxy(15,3+i);readln(kul[i].nama);
for j:=1 to 8 do begin
gotoxy(24+j*5,3+i);readln(kul[i].nihur[j]);
bbt:=bobot(kul[i].nihur[j]);
jumus:=jumus+bbt*sks[j];
end;
ip:=jumus/jumsks;
gotoxy(28+j*5,3+i);writeln(ip:0:2);
if ip>2.75 then begin
gotoxy(34+j*5,3+i);writeln('Lolos');
end
else begin
gotoxy(34+j*5,3+i);writeln('Gagal');
end;
end;
end;
{--------------------------------------------------------------------}
begin
masuk(kul);
Posted: 26 Apr 2011 03:00 AM PDT
bunyi atau suara adalah kompresi mekanikal atau gelombang longitudinal yang merambat melalui medium. Medium atau zat perantara ini dapat berupa zat cair, padat, gas. Jadi, gelombang bunyi dapat merambat misalnya di dalam air, batu bara, atau udara.

Kebanyakan suara adalah merupakan gabungan berbagai sinyal, tetapi suara murni secara teoritis dapat dijelaskan dengan kecepatan osilasi atau frekuensi yang diukur dalam Hertz (Hz) dan amplitudo atau kenyaringan bunyi dengan pengukuran dalam desibel.

Manusia mendengar bunyi saat gelombang bunyi, yaitu getaran di udara atau medium lain, sampai ke gendang telinga manusia. Batas frekuensi bunyi yang dapat didengar oleh telinga manusia kira-kira dari 20 Hz sampai 20 kHz pada amplitudo umum dengan berbagai variasi dalam kurva responsnya. Suara di atas 20 kHz disebut ultrasonik dan di bawah 20 Hz disebut infrasonik.

Source : wikipedia
Posted: 26 Apr 2011 02:54 AM PDT
uses wincrt;
type
ptr=^data;
data =record
nilai:char;
ekor:ptr;
end;
var
erwin,baru,B:ptr;
lagi,x,y :char;
{=============== Memasukkan Pointer baru kedalam Link List ===========}
begin
new(erwin);
erwin:=nil;
repeat
write('Masukkan data :');readln(x);
if x <> #13 then
begin
new(baru);
baru^.nilai:=x;
baru^.ekor:=nil;
if erwin=nil then
erwin:=baru
else
begin
b:=erwin;
while b^.ekor<>nil do
b:=b^.ekor;
b^.ekor:=baru;
b:=baru;
end;
{write('Lagi .......[Y/T] ');lagi:=upcase(readkey);
writeln(lagi); }
end;
until x=#13;{lagi <> 'Y';}
{================Menampilkan isi Link List Pointer ===================}
b:=erwin;
while (b<> nil) and (b^.nilai <> ' ') do
begin
write(b^.nilai,' ');
b:=b^.ekor;
end;
writeln;
{==============Menyisip data baru kedalam Link List Pointer ==========}
write('Masukkan data yang akan disisip :');readln(x);
write('Disisip setelah huruf apa ..? :');readln(y);
new(baru);
baru^.nilai:=x;
baru^.ekor:=nil;
b:=erwin;
while (b<> nil) and (b^.nilai <> ' ') do
begin
writeln(b^.nilai);readkey;
if b^.nilai <> y then
b:=b^.ekor
else
begin
baru^.ekor:=b^.ekor;
b^.ekor:=baru;
b:=b^.ekor;
end
end;
{==================Menampilkan isi Link List Pointer =================}
b:=erwin;
while (b<> nil) and (b^.nilai <> ' ') do
begin
write(b^.nilai,' ');
b:=b^.ekor;
end;
writeln;
end.

Hasil:
Posted: 26 Apr 2011 03:38 AM PDT
Bagian ini akan menjelaskan beberapa sifat sinyal suara atau sinyal ucapan dan bagaimana sinyal tersebut diproduksi. Sanneck (2000) menjelaskan bahwa sinyal suara bersifat tidak stasioner atau time invariant dan diasumsikan sebagai sinyal quasi-periodic di dalam perioda waktu yang singkat sehingga sulit untuk dapat diprediksikan secara tepat. Secara umum sinyal suara dibedakan ke dalam dua jenis yaitu i) suara voiced dan ii) suara unvoiced.

Fellbaum menjelaskan bahwa suara manusia dihasilkan oleh perpaduan antara paru-paru, katup tenggorokan (epiglottis) dengan pita suara (vocal cord), dan artikulasi yang diakibatkan oleh adanya rongga mulut (mouth cavity) dan rongga hidung (nose cavity).

Suara Voiced
Suara voiced dihasilkan dari udara yang dihembuskan oleh paru-paru melewati katup tenggorokan, sementara pita suara dalam keadaan tegang yang menjadikannya bergetar dan menginterupsi aliran udara sehingga menghasilkan pulsa-pulsa quasi-periodic yang akan mengeksitasi vocal tract. Oleh karena itu, suara voiced dapat dimodelkan dengan cara mengeksitasi sebuah model filter vocal tract menggunakan sinyal quasi-periodic yang mencerminkan pulsa-pulsa udara yang diproduksi oleh pita suara.

Laju getaran dari aktifitas membuka dan menutupnya pita suara didefinisikan sebagai frekuensi fundamental atau frekuensi pitch. Frekuensi suara didefinisikan sebagai seberapa sering pita suara bergetar ketika aliran udara melewatinya yang diukur dalam satuan Hertz (Hz), di mana 1 Hz = 1 getaran per detik. Seringkali frekuensi pitch direpresentasikan ke dalam besaran perioda pitch yaitu waktu yang diperlukan oleh pita suara untuk melakukan satu kali getaran.

Suara Unvoiced
Suara unvoiced dihasilkan dari udara yang dihembuskan oleh paru-paru melewati katup pernapasan, sementara pita suara dalam keadaan lemas dan menutup jalan pernapasan yang mengakibatkan ternjadinya turbulensi aliran udara. Suara unvoiced memiliki kemiripan dengan sinyal random yang memiliki spektrum lebar di domain frekuensi. Oleh karena itu, sinyal random atau white noise sering digunakan untuk memodelkan sinyal unvoiced.
Posted: 25 Apr 2011 10:26 PM PDT
uses wincrt;
var nama_barang : array[1..20] of string;
harga : array[1..20] of real;
banyak : array[1..20] of byte;
kata,grs :string;
x,y,i,j :byte;
Jum_Harga,Total_Harga,disc,Total_Bayar,uang :real;
begin
clrscr;
grs:='===============================================================';
kata:='Program Kasir';
x:=round((78-length(kata))/2);
gotoxy(x,2);writeln(kata);
x:=round((78-length(grs))/2);
gotoxy(x,3);write(grs);
{-----------------------------}
gotoxy(x,4);write('Data Belanja');
gotoxy(x,5);write(grs);
gotoxy(x,6);writeln('| No | Nama Barang | Harga Satuan |
Banyak | Jumlah Harga |');
gotoxy(x,7);write(grs);
{--------------------------------------------------------------------}
i:=0;
Total_Harga:=0;
repeat
i:=i+1;
gotoxy(x,7+i);write('| ',i);
gotoxy(x+5,7+i);write('|');
gotoxy(x+7,7+i);readln(Nama_barang[i]);
if Nama_Barang[i] <>'' then begin
gotoxy(x+25,7+i);write('|');
gotoxy(x+28,7+i);readln(Harga[i]);
gotoxy(x+28,7+i);writeln(Harga[i]:10:2);
gotoxy(x+41,7+i);write('|');
gotoxy(x+44,7+i);readln(Banyak[i]);
gotoxy(x+50,7+i);write('|');
Jum_Harga:=Harga[i]*Banyak[i];
gotoxy(x+53,7+i);writeln(Jum_Harga:10:2);
gotoxy(x+65,7+i);writeln('|');
Total_Harga:=Total_Harga+Jum_Harga ; end;
until nama_barang[i]='';
{--------------------------------------------------------------------}
disc:=0;
if (Total_Harga > 10000) and (Total_Harga <100000) then
disc:=0.05 * Total_Harga
else
if (Total_Harga >= 100000 ) then
disc:=0.1 *Total_Harga;
{--------------------------------------------------------------------}
kata:='Faktur Penjualan';
y:=round((78-length(kata))/2);
gotoxy(y,2);writeln(kata);
j:=i-1;
gotoxy(x,8+j);write(grs);
gotoxy(x,8+j+1);write('Total Belanja :');
gotoxy(x+53,8+j+1);write(Total_Harga:10:2);
gotoxy(x,8+j+2);write('Discount :');
gotoxy(x+53,8+j+2);write(disc:10:2);
gotoxy(x,8+j+3);write(grs);
gotoxy(x,8+j+4);write('Total Bayar setelah discount :');
Total_Bayar:=Total_Harga-disc;
gotoxy(x+53,8+j+4);write(Total_Bayar:10:2);
gotoxy(x,8+j+5);write('Uang diBayar');
gotoxy(x+53,8+j+5);readln(Uang);
gotoxy(x+53,8+j+5);writeln(Uang:10:2);
gotoxy(x,8+j+6);Write(grs);
gotoxy(x,8+j+7);write('Uang Kembali');
gotoxy(x+53,8+j+7);write(Uang-Total_Bayar:10:2);
end.

Hasil:
Posted: 25 Apr 2011 10:17 PM PDT
uses wincrt;
var
x:array[1..10] of integer;
i,jum,n : integer;
begin
clrscr;
jum:=0;
write('Masukkan data =');readln(n);
for i:= 1 to n do
begin
write('Data ke-',i ,'=');readln(x[i]);
jum:=jum+x[i];
end;
writeln('Jumlah = ',jum);
end.

Hasil:
Posted: 25 Apr 2011 10:11 PM PDT
uses wincrt;
var n:array[1..26] of integer;
i,j:integer;
kata : String;
begin
for i:=1 to 26 do n[i]:=0;
write('Ketikkan sebuah kalimat : ');readln(kata);
for i:=1 to length(kata) do
for j:=1 to 26 do
if ord(upcase(kata[i]))=64+j then
inc(n[j]);
for i:=1 to 13 do
writeln(chr(64+2*i-1),' = ',n[2*i-1],' ',chr(64+2*i),' =
',n[2*i]);
end.

Hasil:
Posted: 25 Apr 2011 10:08 PM PDT
uses wincrt;
var
nama :string;
i,vok :integer;
BEGIN
clrscr;
vok:=0;
write('Banyak Vokal dalam kalimat berikut =');readln(nama);
for i:=1 to length(nama) do
case nama[i] of
'A','a','U','u','I','i','E','e','O','o':vok:=vok+1;
end;
writeln('Jumlah Vokalnya :',vok);
READLN;
END.

Hasil:
Posted: 25 Apr 2011 10:06 PM PDT
uses wincrt;
var
i,k,v,a: integer;
s:string;
begin
clrscr;
write('Masukkan Satu Kalimat ');readln(s);
for i:= 1 to length(s) do
case s[i] of
'a':s[i]:='u';
'i':s[i]:='e';
'e':s[i]:='a';
'o':s[i]:='i';
'u':s[i]:='o';
'b':s[i]:='n';
'k':s[i]:='b';
'n':s[i]:='k';
end;
begin
writeln('Kode datanya adalah=',s )
end;
end.

Hasil:
Posted: 25 Apr 2011 10:01 PM PDT
uses wincrt;
var
dafbil:array[1..100] of integer;
terbesar :integer;
terkecil :integer;
i,n :integer;
begin
write('Masukkan cacah bilangan =');readln(n);
{terbesar:=-999;
terkecil:=999;- -->ini hanya berlaku apabila nilai bilangan
antara -999 s/d 999}
{terbesar:=dafbil[1];
terkecil:=dafbil[1];--> akan menyebabkan yang terkecil selalu
0(nol) apabila nilai semua bilangan lebih besar dari 0(nol)}
for i:= 1 to n do
begin
write('Bilangan ke ',i,' = ');readln(dafbil[i]);
end;
terbesar:=dafbil[1];
terkecil:=dafbil[1];
for i:= 2 to n do
if dafbil[i] > terbesar then
terbesar:=dafbil[i]
{for i:= 2 to n do}
else
if dafbil[i] < terkecil then
terkecil:=dafbil[i];
writeln('Bilangan terbesar =',terbesar);
writeln('Bilangan terkecil =',terkecil);
end.

Hasil:
Posted: 25 Apr 2011 09:55 PM PDT
uses WinCrt;
var a,j,i,k : integer;
ada : boolean;
b : array[1..10] of integer;
begin
Randomize;
k:=1;
repeat
A := Random(10)+1;
ada:=False;
for i:=1 to k do
if A=B[i] then Begin ada:=True; i:=k; end;
if not(ada) then
Begin
B[k]:=A;
write(b[k]:4);
k:=k+1;
end;
until k=6;{KeyPressed;}
end.

Hasil:

2 6 8 3 10
Posted: 25 Apr 2011 05:21 PM PDT
type pas=array[1..20,1..20] of longint;
var pascal:pas;
i,j,n:integer;
begin
pascal[1,1]:=1;
write('banyak level : ');readln(n);{:=10;}
for i:=2 to n do
begin
pascal[i,1]:=1;
pascal[i,i]:=1;
for j:=2 to i-1 do
pascal[i,j]:=pascal[i-1,j-1]+pascal[i-1,j];
end;
{write(pascal[2,1],' ');
writeln;}
for i:=1 to n do
begin
for j:=1 to i do
write(pascal[i,j],' ');
writeln;
end;
end.


Hasil:
Posted: 25 Apr 2011 05:19 PM PDT
uses wincrt;
type
ptr=^Simpul;
simpul=record
data:integer;
kanan,kiri:ptr;
end;
{--------------------------------------------------------------------}
procedure Init(var p:ptr);
begin
p:=nil;
end;
{--------------------------------------------------------------------}
procedure masukdata(var p:ptr; d:integer);
begin
if p=nil then
begin
new(p);
p^.data:=d;
p^.kiri:=nil;
p^.kanan:=nil;
end
else
if p^.data < d then
masukdata(p^.kanan,d)
else
masukdata(p^.kiri,d);
end;
{--------------------------------------------------------------------}
procedure preorder(p:ptr);
begin
if p<>nil then
begin
writeln(p^.data);
preorder(p^.kiri);
preorder(p^.kanan);
end;
end;
{--------------------------------------------------------------------}
var
pohon:ptr;
dt :integer;
begin
init(pohon);
repeat
write('Data masuk ke :');readln(dt);
if dt >= 0 then
masukdata(pohon,dt);
until dt<0;
preorder(pohon);
end.

Hasil:
Posted: 25 Apr 2011 05:15 PM PDT
Uses WinCrt;
Type
Larik = array [1..50] of integer;
Var
i,n,b,k : integer;
ada : boolean;
x : Larik;
Begin
clrscr;
Write('Masukkan Bilangan : ');Readln(n);
k:=1;
Repeat
Write('Masukkan Data : ');Readln(b);
ada:=False;
for i:=1 to k do
if b=x[i] then
Begin
ada:=True; i:=k;
end;
if not(ada) then
Begin
x[k]:=b; k:=k+1;
end
else
Writeln('Data Sudah ada...');
until k>n;
for i:=1 to n do
writeln(x[i]);
end.

Hasil:
Posted: 25 Apr 2011 05:09 PM PDT
uses wincrt;
type
siswa=record
nim:string[5];
nama:string[15];
krs:array[1..4,1..5] of integer;
end;
type kuliah=array[1..20] of siswa;
var kul:kuliah;
{--------------------------------------------------------------------}
function huruf(bobot:integer):char;
begin
case bobot of
0:huruf:='E';
1:huruf:='D';
2:huruf:='C';
3:huruf:='B';
4:huruf:='A';
end;
end;
{--------------------------------------------------------------------}
procedure khs(n:integer;kul:kuliah);
var jumsks,usaha,i,j:integer;
ipnya:real;
begin
for i:=1 to n do
begin
Writeln('Nim : ',kul[i].nim);
Writeln('Nama : ',kul[i].nama);
writeln;
writeln('Kode sks nilai');
jumsks:=0;usaha:=0;
for j:=1 to 2 do
begin
writeln(kul[i].krs[1,j]:3,' ',kul[i].krs[2,j]:3,'
',huruf(kul[i].krs[4,j]):5);
jumsks:=jumsks+kul[i].krs[2,j];
usaha:=usaha + kul[i].krs[2,j]*kul[i].krs[4,j];
end;
if jumsks<>0 then
ipnya:=usaha/jumsks;
writeln;
writeln('IP = ',ipnya:0:2);
readkey;
end;
end;
{--------------------------------------------------------------------}
function bobot(nilai:integer):integer;
begin
if nilai<40 then bobot:=0
else
if (nilai>=40) and (nilai<55) then bobot:=1
else
if (nilai>=55) and (nilai<65) then bobot:=2
else
if (nilai>=65) and (nilai<76) then bobot:=3
else
bobot:=4;
end;
{--------------------------------------------------------------------}
procedure masukdata(var kul:kuliah;var n:integer);
var i,j:integer;
begin
clrscr;
write('Banyak mahasiswa = ');readln(n);
for i:=1 to n do
begin
write('Nim : ');readln(kul[i].nim);
write('Nama : ');readln(kul[i].nama);
writeln;
for j:=1 to 2 do
begin
write('Kode : ');readln(kul[i].krs[1,j]);
write('Sks : ');readln(kul[i].krs[2,j]);
write('Nilai : ');readln(kul[i].krs[3,j]);
writeln('Bobot : ',bobot(kul[i].krs[3,j]));
kul[i].krs[4,j]:=bobot(kul[i].krs[3,j]);
writeln('huruf : ',huruf(bobot(kul[i].krs[3,j])));
writeln;
end;
end;
end;
var n:integer;
begin
masukdata(kul,n);
readkey;
khs(n,kul);
end.

Hasil :
Posted: 25 Apr 2011 05:05 PM PDT
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[2],' ');
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]);
end.

Hasil:

2 komentar:

Langganan: Posting Komentar (Atom)