C++ Translation to Pascal

Joseph Lazarus

Delphi Developer

Fri, 17 Oct 2003 06:30:34 GMT

C++ Translation to Pascal

Can anyone help me translate this code written in C++ into Pascal:

#include <iostream.h>

void main()

{
int sum = 0;
int x;
cout<< "Enter a number: ";

cin>> x;

for (int i = 1; i <= x; ++i)

sum = sum + i;

cout <<sum <<endl;

Quote

}

Marco van de Voo

Delphi Developer

Fri, 17 Oct 2003 06:54:13 GMT

Re:C++ Translation to Pascal

In article <eC0H6.41194$RF1.3501...@bgtnsc06-news.ops.worldnet.att.net>,

Quote

Joseph Lazarus wrote:
> Can anyone help me translate this code written in C++ into Pascal:

> #include <iostream.h>

> void main()

> {
> int sum = 0;
> int x;
> cout<< "Enter a number: ";

> cin>> x;

> for (int i = 1; i <= x; ++i)

> sum = sum + i;

> cout <<sum <<endl;

> }

{untested:}
Program somesum;

var sum,x,i : longint;

begin
sum:=0;
writeln('Enter a number: '); read(x);
for i:=1 to x do
inc(sum,i);
writeln(sum);
end.

Huub van Doore

Delphi Developer

Fri, 17 Oct 2003 09:58:03 GMT

Re:C++ Translation to Pascal

Joseph Lazarus schreef:

Quote

> Can anyone help me translate this code written in C++ into Pascal:

> #include <iostream.h>

> void main()

> {
> int sum = 0;
> int x;
> cout<< "Enter a number: ";

> cin>> x;

> for (int i = 1; i <= x; ++i)

> sum = sum + i;

> cout <<sum <<endl;

> }

Yes.

program void;
var sum,i,x:longint;
begin
sum:=0;
write('Enter a number: ');
read(x);
i:=1;
while (i<=x) do
begin
sum:=sum+i;
i:=i+1
end;
writeln(sum)
end.

Huub.

The Scarlet Manuk

Delphi Developer

Fri, 17 Oct 2003 13:37:24 GMT

Re:C++ Translation to Pascal

"Huub van Dooren" <hvdoo...@iae.nl> wrote in message
news:3AECC6AB.BB90AC11@iae.nl...

Quote

> Joseph Lazarus schreef:

> > for (int i = 1; i <= x; ++i)
> > sum = sum + i;

> i:=1;
> while (i<=x) do
> begin
> sum:=sum+i;
> i:=i+1
> end;

Doesn't ++i increment the counter before loop
execution, rather than after it?

--
The Scarlet Manuka

Rudolf Polz

Delphi Developer

Fri, 17 Oct 2003 17:02:04 GMT

Re:C++ Translation to Pascal

The Scarlet Manuka <sa...@maths.uwa.edu.au> wrote:

Quote

> "Huub van Dooren" <hvdoo...@iae.nl> wrote in message
> news:3AECC6AB.BB90AC11@iae.nl...
> > Joseph Lazarus schreef:

> > > for (int i = 1; i <= x; ++i)
> > > sum = sum + i;

> > i:=1;
> > while (i<=x) do
> > begin
> > sum:=sum+i;
> > i:=i+1
> > end;

> Doesn't ++i increment the counter before loop
> execution, rather than after it?

No. You switched something:

++i is like:
function preinc (var x: integer): integer;
begin
x := x + 1;
preinc := x;
end;

i++ is like
function postinc (var x: integer): integer;
begin
postinc := x;
x := x + 1;
end;

and for(A;B;C) {D} is like
label CONTINUE, BREAK;
A;
while B do
begin
D; { break => goto BREAK; continue => goto CONTINUE;
CONTINUE:
C;
end;
BREAK:

--
#!/usr/bin/perl -W -- WARNING: This will print 22,307 bytes! <strictsafe!>
use strict;for(my$y=-1;$y<1;$y+=.1){for(my$x=-1.9;$x<.4;$x+=.03){print'+';
my$X=my$Y=0;for(0..99){($X,$Y)=($X*$X-$Y*$Y+$x,2*$X*$Y+$y);print"\b "if$X*
$X+$Y*$Y>9;}}print"\n"};print''.reverse"\nHPAJ \a!rezloP .R yb torblednaM"

The Scarlet Manuk

Delphi Developer

Fri, 17 Oct 2003 16:46:40 GMT

Re:C++ Translation to Pascal

Quote

"Rudolf Polzer" <e...@durchnull.de> wrote in message

news:slrn9eqagc.5jn.eins@www42.t-offline.de...

Quote

> The Scarlet Manuka <sa...@maths.uwa.edu.au> wrote:

> > Doesn't ++i increment the counter before loop
> > execution, rather than after it?

> No. You switched something:

Hmmm. I had the impression that it also applied to
loop control... did that change between C and C++,
or am I just imagining things again?

--
The Scarlet Manuka

Rudolf Polz

Delphi Developer

Fri, 17 Oct 2003 17:00:44 GMT

Re:C++ Translation to Pascal

The Scarlet Manuka <sa...@maths.uwa.edu.au> wrote:

Quote

> "Rudolf Polzer" <e...@durchnull.de> wrote in message
> news:slrn9eqagc.5jn.eins@www42.t-offline.de...
> > The Scarlet Manuka <sa...@maths.uwa.edu.au> wrote:

> > > Doesn't ++i increment the counter before loop
> > > execution, rather than after it?

> > No. You switched something:

> Hmmm. I had the impression that it also applied to
> loop control... did that change between C and C++,
> or am I just imagining things again?

The latter one. It is exactly the same in C, C++, Perl, JavaScript and
Java.

--
#!/usr/bin/perl -W -- WARNING: This copies a random file from
use strict;my$s;my$n=0;for # the current directory to your
(<*>){++$n;int rand$n or$s # signature file. Use at your
=$_};`cp $s ~/.signature`; # own risk! (c) 2001 Rudolf Polzer

Joseph Lazaru

Delphi Developer

Sat, 18 Oct 2003 10:24:06 GMT

Re:C++ Translation to Pascal

Thanks guys!

Quote

"Joseph Lazarus" <bren...@worldnet.att.net> wrote in message

news:eC0H6.41194$RF1.3501248@bgtnsc06-news.ops.worldnet.att.net...

Quote

> Can anyone help me translate this code written in C++ into Pascal:

> #include <iostream.h>

> void main()

> {
> int sum = 0;
> int x;
> cout<< "Enter a number: ";

> cin>> x;

> for (int i = 1; i <= x; ++i)

> sum = sum + i;

> cout <<sum <<endl;

> }

The Scarlet Manuk

Delphi Developer

Sat, 18 Oct 2003 11:09:57 GMT

Re:C++ Translation to Pascal

Quote

"Rudolf Polzer" <e...@durchnull.de> wrote in message

news:slrn9eqads.mm4.eins@www42.t-offline.de...

Quote

> The Scarlet Manuka <sa...@maths.uwa.edu.au> wrote:

> > loop control... did that change between C and C++,
> > or am I just imagining things again?

> The latter one. It is exactly the same in C, C++, Perl, JavaScript and
> Java.

Oh, that's okay then, I'm just going crazy. No problem there.

--
The Scarlet Manuka

Other Threads

1. Pascal --> C++ translation

2. C++ Translation PLEASE!!

3. C++ translation (one more please :)

4. Help with a C++ translation...

5. C++ -> Delphi Component Translation help

6. Shell Namespace again! (C++ translation)

7. C++ to Delphi translation help

8. C/C++ to Delphi translation?

9. Translation of ChartFX98 sample code to C++

10. HP Pascal Language Translation