sorry, bekijk dit eens ipv vorige pascalprobleem

Article View: be.comp.programming

Article #13720

Back to be.comp.programming Previous Next

#13720

From: Marc Claeys
Date: Thu, 14 Jun 2001 09:01

26 lines
1737 bytes

Waar zit mijn fout ?????
4e laatste regel krijg ik  TYPE Mismatch
wat deed ik verkeerd ????????????
Program wachtwoord;
uses crt;
var password,teller,a,b,c : integer;
Procedure som;
        begin
             writeln('Geef uw eerste getal in');
             readln(b);
             writeln('Geef uw tweede getal in');
             readln(c);
             writeln('De som van ingegeven getallen is ',b+c);
        end;
{Hoofdprogramma}
Begin
     teller:=0;
     write('Geef uw password in');
     readln(a);
     repeat
           password := a;
     teller := teller + 1;
     until (password = 'hallo' )or (teller = 3);
     if password = 'hallo' then som
     else write ('Sorry, wrong password');
End.

Technical Details

Message-ID: <34%V6.33392$mR5.4121412@afrodite.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!isdnet!wanadoo.fr!opentransit.net!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,53099791200c10aa,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-06-14 02:01:53 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!isdnet!wanadoo.fr!opentransit.net!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail
From: "Marc Claeys" <marc.claeys1@pandora.be>
Newsgroups: be.comp.programming
Subject: sorry, bekijk dit eens ipv vorige pascalprobleem
Lines: 30
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2462.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2462.0000
Message-ID: <34%V6.33392$mR5.4121412@afrodite.telenet-ops.be>
Date: Thu, 14 Jun 2001 09:01:51 GMT
NNTP-Posting-Host: 213.118.1.205
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 992509311 213.118.1.205 (Thu, 14 Jun 2001 11:01:51 MET DST)
NNTP-Posting-Date: Thu, 14 Jun 2001 11:01:51 MET DST
Organization: Telenet Internet