Hallo, saya belajar pemprogramman pascal, di linux dengan freepascal, dibawah ini adalah source kode yang saya tulis untuk belajar procedure. Hasil nya tidak sesuai dengan yang saya harapkan, yaitu variable didalam procedure tidak terkoneksi antara procedure "proses" dan prosedure "tampil". Mohon bantuan rekan-rekan untuk koreksi dimana kekurangan program saya tersebut.
Terima kasih. -------kode--------- uses crt; procedure isi(var n :byte); var kata : array[1..100] of string[50]; a : byte; begin write('Jumlah array ?'); readln(n); for a := 1 to n do begin write('kata array ke-', a, '-> '); readln(kata[a]); end; end; procedure proses(var n, v, k :byte; var vok, kon :string); var kata : array[1..100] of string[50]; huruf : array[1..100] of string[1]; tkata : string; a,b,l : byte; begin vok := ''; kon := ''; v := 0; k := 0; writeln(n); for a := 1 to n do begin tkata := ''; tkata := kata[a]; l := 0; l := length(kata[a]); for b := 1 to l do begin huruf[b] := tkata[b]; if (huruf[b]='a') or (huruf[b]='i') or (huruf[b]='u') or (huruf[b]='e') or (huruf[b]='o') then begin inc(v); vok := vok+huruf[b]; end else begin inc(k); kon := kon+huruf[b]; end; end; end; end; procedure tampil(var v, k :byte; var vok, kon :string); begin writeln; writeln('vokal = ', v, '-> ', vok); writeln('konsonan = ', k, '-> ', kon); end; var vok, kon : string; h, i, j : byte; begin clrscr; isi(h); proses(h, i, j, vok, kon); tampil(i, j, vok, kon); readln; end. -- www.binhatta.com -- Berhenti langganan: linux-programming-unsubscr...@linux.or.id Arsip dan info: http://linux.or.id/milis