Procedure fout.

[Verwijderd]

Mensen ik ben een programma aan schrijven die kan decrypten. Het gaat me redelijk af alleen nu heb ik het volgende probleem.

ROGRAM Decryptie;

USES crt;

VAR
regelwoord : ARRAY [1..99, 1..99] OF STRING[10];
letter : ARRAY [1..5] OF CHAR;
Bestandsvariabele : TEXT;

PROCEDURE Open_Bestand_om_eruit_te_Lezen (VAR Bestandsvar: TEXT);
BEGIN
Assign (Bestandsvar, 'C:\WinNT\eula.txt');
Reset (Bestandsvar);
END;

PROCEDURE Lees_Tekst_uit_Bestand (VAR Bestandsvar : TEXT);
VAR WoordTeller: SHORTINT; RegelTeller: SHORTINT;
BEGIN
RegelTeller:=1;
WHILE NOT EOF (bestandsvar) do
BEGIN
WoordTeller:=0;

BEGIN
INC WoordTeller;
Read (Bestandsvar, regelwoord[RegelTeller,WoordTeller]);
END;
UNTIL regelwoord[RegelTeller, WoordTeller] = ""
ReadLn (Bestandsvar);
INC RegelTeller;
END;
END;

dit is mijn code tot nu toe. Alleen hij blijft maar een error geven dat hij een Woordteller vind waar hij het niet verwacht. (bij begin INC woordteller;)
Wat ken het zijn. Ik heb hem toch gedefineerd...

[Exirion]

Verwijderd schreef op 04 december 2003 @ 08:55:
UNTIL regelwoord[RegelTeller, WoordTeller] = ""

Waar is je repeat?

[Verwijderd]

repeat... moet die er bij dan? sorry ben niet echt zo goed in dit.
geef eens een voor beeld

[Exirion]

Verwijderd schreef op 04 december 2003 @ 09:04:
repeat... moet die er bij dan? sorry ben niet echt zo goed in dit.
geef eens een voor beeld

Sorry, maar je moet maar even een boek "Pascal voor beginners" gaan lezen

[Verwijderd]

JAH DAS MIJN PROBLEEM, DIE LICHT THUIS! en ik ben een week bij me vriend. snif.
Ik weet dat bij de until een do hoort maar als ik die er tussen plaats dus tussen

BEGIN
WoordTeller:=0;

DO
BEGIN
INC WoordTeller;

dan geeft hij een andere error. Dan is de begin der onder een Illegal expression....

[Verwijderd]

het is inc(WoordTeller),

prbeer her volgende eens met je code
]code=delphi[
hier je code typen
]/code]

moet je wel ff de ] en [ omdraaien krijg je dit

Delphi:

var
  idxWoord, cntWoord : integer;
begin
   cntWoord := TelWoorden(uitvar);
    repeat:
       { do iets met woord}
       inc(idxWoord);
   until (idxWoord > cntWoord);
end;

ps. Is dit huiswerk? Encryptie schrijven lijkt me een beetje hoog gegrepen gezien je programmeer ervaring?

ik zal voor de andere lezers dit 's ff doen met jouw code:

code:

PROGRAM Decryptie;

USES crt;

VAR
  regelwoord : ARRAY [1..99, 1..99] OF STRING[10];
  letter : ARRAY [1..5] OF CHAR;
  Bestandsvariabele : TEXT;

PROCEDURE Open_Bestand_om_eruit_te_Lezen (VAR Bestandsvar: TEXT);
BEGIN 
   Assign (Bestandsvar, 'C:\WinNT\eula.txt');
   Reset (Bestandsvar);
END;

PROCEDURE Lees_Tekst_uit_Bestand (VAR Bestandsvar : TEXT);
VAR 
  WoordTeller: SHORTINT; 
  RegelTeller: SHORTINT;

BEGIN
     RegelTeller:=1;
     WHILE NOT EOF (bestandsvar) do
     BEGIN
       WoordTeller:=0;

        BEGIN
            INC WoordTeller;
            Read (Bestandsvar, regelwoord[RegelTeller,WoordTeller]);
         END;
      UNTIL regelwoord[RegelTeller, WoordTeller] = ""
      ReadLn (Bestandsvar);
      INC RegelTeller;
   END;
END;

[ Voor 48% gewijzigd door Verwijderd op 04-12-2003 09:16 ]

[Verwijderd]

ben weer wat verder... dit is nu mijn code.

BEGIN
Assign (Bestandsvar, 'C:\WinNT\eula.txt');
Reset (Bestandsvar);
END;

PROCEDURE Lees_Tekst_uit_Bestand (VAR Bestandsvar : TEXT);
VAR WoordTeller: SHORTINT; RegelTeller: SHORTINT;
BEGIN
RegelTeller:=1;
WHILE NOT EOF (bestandsvar) do
BEGIN
WoordTeller:=0;
do
INC (WoordTeller);
Read (Bestandsvar, regelwoord[RegelTeller,WoordTeller]);

UNTIL regelwoord[RegelTeller, WoordTeller] = ""
ReadLn (Bestandsvar);
INC (RegelTeller);
END;

Maar nu blijft hij hangen op de INC....

[whoami]

Lees even dit:
***** Lees dit! Over topictitels in P&W *****

En lees ook even onze Quickstart

En debuggen van code kan je wel zelf lijkt me... P&W is geen service waar anderen voor jou jouw code gaan debuggen.
Daarnaast kan je op internet ook een hele hoop tutorials vinden over pascal.

[ Voor 32% gewijzigd door whoami op 04-12-2003 09:38 ]