[GR]Askisi sxolikh PASCAL

[ProJecT]

program Askisi;

uses wincrt;

var arithmos, athroisma:real; erwthsh:char;

begin

      writeln("Dwse enan arithmo");

      readln(arithmos);

      writeln("Theleis na sunexiseis? An nai pata to koympi "y" an oxi pata to koympi "n"");

      readln(erwthsh);

          while erwthsh=:"y" do

                  writeln("Dwse enan arithmo");

                  readln(arithmos);

      athroisma:=athroisma+arithmos;

      writeln("Theleis na sunexiseis? An nai pata to koympi "y" an oxi pata to koympi "n"");

      readln(erwthsh);

      end; {while}

writeln("To athroisma ton arithmwn einai:", athroisma);

end.

[Hax0r]

Repeat..until καλύτερα για να κάνει πρώτα μια επανάληψη χωρίς να του κάνει ερώτηση, για να απαντήσει ναι ή όχι.

Ναι, ξέρω... απλά δεν την έχουν διδαχθεί ακόμη.

 

program Askisi;
uses wincrt;
var arithmos, athroisma:real; erwthsh:char;
begin
      athroisma:=0;
      erwthsh:="y";
while erwthsh="y"
      writeln("Dwse enan arithmo");
      readln(arithmos);
      athroisma:=athroisma+arithmos;
      writeln("Theleis na sunexiseis? An nai pata to koympi "y" an oxi pata to koympi "n"");
      readln(erwthsh);
   end;
writeln("To athroisma ton arithmwn einai:", athroisma);
end.

Έτσι πρέπει να συντάσσεται...

 

*Και αρχικοποίηση του athroisma.

[ProJecT]

Ναι, ξέρω... απλά δεν την έχουν διδαχθεί ακόμη.

 

program Askisi;
uses wincrt;
var arithmos, athroisma:real; erwthsh:char;
begin
      athroisma:=0;
      erwthsh:="y";
while erwthsh="y"
      writeln("Dwse enan arithmo");
      readln(arithmos);
      athroisma:=athroisma+arithmos;
      writeln("Theleis na sunexiseis? An nai pata to koympi "y" an oxi pata to koympi "n"");
      readln(erwthsh);
   end;
writeln("To athroisma ton arithmwn einai:", athroisma);
end.

Έτσι πρέπει να συντάσσεται...

 

*Και αρχικοποίηση του athroisma.

Ωραίος, δεν το είχα σκεφτεί έτσι!

[N3verσøft]

pedia exei kaneis apo esas to pascal gia na dokimasete to programa?gt exw katevasei merika alla dn doulevoun...

[Hax0r]

http://www.filecluster.com/Software-Development/Editors-Tools/Download-Turbo-Pascal-for-Windows.html

[N3verσøft]

Dn einai swsto.Exei ena error:

program Askisi;

uses wincrt;

var arithmos, athroisma:real; erwthsh:char;

begin

      athroisma:=0;

      erwthsh:="y";

while erwthsh="y"

      writeln("Dwse enan arithmo");

      readln(arithmos);

      athroisma:=athroisma+arithmos;

      writeln("Theleis na sunexiseis? An nai pata to koympi "y" an oxi pata to koympi "n"");

      readln(erwthsh);

  end;

writeln("To athroisma ton arithmwn einai:", athroisma);

end.

[Hax0r]

δοκίμασε με μονό εισαγωγικό... 'y'

[N3verσøft]

Tr stin apo katw error....kai dn fteei to idio...

[Hax0r]

Δοκίμασε αυτόν τον κώδικα.

program Askisi;

uses wincrt;

var arithmos, athroisma:real; erwthsh:char;

begin

      athroisma:=0;

      erwthsh:='y';

while erwthsh='y' do

  begin

      writeln("Dwse enan arithmo");

      readln(arithmos);

      athroisma:=athroisma+arithmos;

      writeln("Theleis na sunexiseis? An nai pata to koympi "y" an oxi pata to koympi "n"");

      readln(erwthsh);

  end;

writeln("To athroisma ton arithmwn einai:", athroisma);

end.

[N3verσøft]

program Askisi;

uses wincrt;

var arithmos, athroisma:real; erwthsh:char;

begin

      athroisma:=0;

      erwthsh:='y';

while erwthsh='y' do

  begin

      writeln("Dwse enan arithmo");

      readln(arithmos);

      athroisma:=athroisma+arithmos;

      writeln("Theleis na sunexiseis? An nai pata to koympi "y" an oxi pata to koympi "n"");

      readln(erwthsh);

  end;

writeln("To athroisma ton arithmwn einai:", athroisma);

end.

:p

[Hax0r]

Γενικά όπου βλέπεις 2πλα εισαγωγικά κάν'τα μονά.

[N3verσøft]

ok eftasa sto telos.nmzo einai ok...Apla dn eimai sigouros gt otan pataw run m vgazei ena minima kai dn ktlbenw t leei gt einai mia glwssa xs48αδαdu43r98 kati tetio.... :/

 

Dn pirazei ftanei p eftasa ws edw...

Sas euxaristw olous gia tin voitheia :)

[ProJecT]

Γενικά όπου βλέπεις 2πλα εισαγωγικά κάν'τα μονά.

Γιατί; Εμάς δούλευε με διπλά εισαγωγικά. Μήπως στις πιο μετά εκδόσεις το άλλαξαν;

[Hax0r]

ok eftasa sto telos.nmzo einai ok...Apla dn eimai sigouros gt otan pataw run m vgazei ena minima kai dn ktlbenw t leei gt einai mia glwssa xs48αδαdu43r98 kati tetio.... :/

 

Dn pirazei ftanei p eftasa ws edw...

Sas euxaristw olous gia tin voitheia :)

Σου βγάζει μήνυμα να πατήσεις y ή n;

[N3verσøft]

oxi...san error to vlepw..