pascalprobleem

Article View: be.comp.programming

Article #13719

Back to be.comp.programming Previous Next

#13719

From: Marc Claeys
Date: Thu, 14 Jun 2001 08:57

26 lines
1713 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: <d0%V6.33386$mR5.4120586@afrodite.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!newsfeed.icl.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,6d42b211b401317f,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-06-14 01:57:47 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!newsfeed.icl.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: pascalprobleem
Lines: 28
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: <d0%V6.33386$mR5.4120586@afrodite.telenet-ops.be>
Date: Thu, 14 Jun 2001 08:57:45 GMT
NNTP-Posting-Host: 213.118.1.205
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 992509065 213.118.1.205 (Thu, 14 Jun 2001 10:57:45 MET DST)
NNTP-Posting-Date: Thu, 14 Jun 2001 10:57:45 MET DST
Organization: Telenet Internet