if schleife in einer konsohle

[justloosit]

alter wieviel ihr alle wisst :) aber was muss ich da bei (code ) eingeben?

[mkinzler]

Deinen Code von oben

[justloosit]

Delphi-Quellcode:

var a, b, c:integer;
strvar:string;
begin
writeln('Hallo dieses Programm berechnet ihnen die Summe, die Differnz, das Produkt');
writeln(', sowie den Quotienten aus zwei Zahlen!');
writeln('Nun gib bitte deine erste Zahl ein.');
readln(a);
writeln('Deine erste Zahl ist also ',a,' gib nun bitte deine zweite Zahl an!');
readln(b);
writeln('Deine Zahlen sind also ',a,' und ',b,' möchtest du fortfahren?');

readln(strvar);
repeat
(strvar)
until strvar = 'Yes'
begin
writeln('Deine beiden Zahlen sind also ',a,' und ',b,'');
writeln('die Summe der beiden Zahlen ist ',a+b,'');
writeln('Die Differenz der beiden Zahlen ist ',a-b,'');
writeln('Das Produkt der beiden Zahlen ist ',a*b,'');
writeln('Die Quotient aus den beiden Zahlen ist ',a/b,'');
readln;
end

und wo is da jetz der code und is das überhaupt richtig so?

[bigben37]

Zitat:

Zitat von justloosit

Delphi-Quellcode:

repeat
(strvar)
until strvar = 'Yes'

Das muss so sein:

Delphi-Quellcode:

repeat
  readln(strvar)
until strvar = 'Yes';

Das begin nach der repeat-Schleife braust du nicht mehr

[justloosit]

ah gut jetzt geht das programm zu mindest zu starten aber es geht nur weiter wenn man Yes eingibt ich dachte wenn man i-was anderes eingibt startet das programm von vorn in dem fall macht es jedoch nur einen absatz?

[Klaus01]

Zitat:

Zitat von justloosit

und wo is da jetz der code und is das überhaupt richtig so?

Du solltest auch das in die Schleife packen was Du wiederholen möchtest.

Delphi-Quellcode:

repeat
  begin
    ... Dein Code
  end
until strVar = 'Yes';

Grüße
Klaus

[Teekeks]

1.) nein so ist es nicht wirklich richtig.
Ich habe aber geade gesehen das du eigentlich nur eine If-Abfrage brauchst.
Also: Nach dem Readln(strvar); ein

Delphi-Quellcode:

if strvar='no' then exit; {hier kommt das hinn was du ausführen möchtest wenn strvar='yes' ist}

der befehl exit; beendet dein Programm wenn strvar='no' ist.

2.) Glaub mir: das ist Standardwissen was man können muss wenn man sich ernsthaft mit Delphi (in deinem Fall wohl eher Turbo Pascal (oder nicht?)) arbeiten möchte.

[justloosit]

na ich wollte ja das das programm von vorne started und nicht beendet geht das bzw wisst ihr wies geht?

[Klaus01]

Zitat:

Zitat von justloosit

na ich wollte ja das das programm von vorne started und nicht beendet geht das bzw wisst ihr wies geht?

Schleife benutzen, siehe mehrere Beiträge oben.
Und das Hirn einschalten und vielleicht mal in ein Programmierhandbuch schauen
und sich schlau machen was Schleifen sind und wie sie arbeiten.

Grüße
Klaus

[Teekeks]

ok. Dann doch repeat:

Delphi-Quellcode:

var a, b, c:integer;
strvar:string;
begin
readln(strvar);
repeat
writeln('Hallo dieses Programm berechnet ihnen die Summe, die Differnz, das Produkt');
writeln(', sowie den Quotienten aus zwei Zahlen!');
writeln('Nun gib bitte deine erste Zahl ein.');
readln(a);
writeln('Deine erste Zahl ist also ',a,' gib nun bitte deine zweite Zahl an!');
readln(b);
writeln('Deine Zahlen sind also ',a,' und ',b,' möchtest du fortfahren?');
readln(strvar);
until strvar = 'Yes';
writeln('Deine beiden Zahlen sind also ',a,' und ',b,'');
writeln('die Summe der beiden Zahlen ist ',a+b,'');
writeln('Die Differenz der beiden Zahlen ist ',a-b,'');
writeln('Das Produkt der beiden Zahlen ist ',a*b,'');
writeln('Die Quotient aus den beiden Zahlen ist ',a/b,'');
readln;
end.

Edit: Ich stimme Klaus01 voll und ganz zu...