🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #15440

Re: Pasal programma

#15440
From: Duvel (33cl)
Date: Tue, 03 Oct 2000 00:00
29 lines
1130 bytes
In Pascal kan dit ook :-)

"Luc Kumps" <kumps@pandora.be> schreef in bericht
news:d3rC5.48125$nQ2.899730@afrodite.telenet-ops.be...
> > Schrijf een programma dat de inhoud van 2 variabelen verwisselt,m.a.w.
na
> > deze operatie moet de nieuwe waarde de oude waarde van de andere
variable
> > zijn.
>
> Om a en b om te wisselen (veronderstellende dat dit numerieke variabelen
> zijn)
>
> 1. Met gebruik van derde variabele
>   c := a;
>   a: = b;
>   b := c;
>
> 2. Zonder gebruik van een derde variable
>
>   b := a+b;
>   a := b-a;
>   b := b-a;
>
> Luc
>
>
>
>
Technical Details
Message-ID: <8rdg31$afe$1@fb1.euro.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <8rdcqs$val$1@news.planetinternet.be> <d3rC5.48125$nQ2.899730@afrodite.telenet-ops.be>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,6a20c0101c24de31
X-Google-Attributes: gidfcea4,public
From: "Duvel \(33cl\)" <Duvel@pandora.be>
Subject: Re: Pasal programma
Date: 2000/10/03
Message-ID: <8rdg31$afe$1@fb1.euro.net>
X-Deja-AN: 677182746
References: <8rdcqs$val$1@news.planetinternet.be> <d3rC5.48125$nQ2.899730@afrodite.telenet-ops.be>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Organization: EuroNet Internet
X-MSMail-Priority: Normal
Newsgroups: be.comp.programming