if schleife in einer konsohle

[mkinzler]

Mehrere Befehle (Sequenz) schliesst man in begin..end ein.

[Teekeks]

Delphi-Quellcode:

var a, b, c:integer;
strvar = readln();
begin
writeln('Hallo dieses Programm berechnet ihnen die Summe, die Subtraktion, das Produkt'); 
{...}

müsste so aussehen:

Delphi-Quellcode:

var a, b, c:integer;
    strvar:string;
begin
writeln('Hallo dieses Programm berechnet ihnen die Summe, die Subtraktion, das Produkt'); 
{...}

[justloosit]

ja das weiß ich ja auch das is ja nich das prob ich hab nur da problehm über haupt dieses tsrvar zu deffinieren das geht nich wenn ich das bei den variablen so rein schreib strvar=readln(); schon allein vom = her


danke das hat ich auch schon gemerkt es geht mir erst mal eher um /^\ das oben

[justloosit]

oh cool danke es geht nur bringts mir so ja nun ersmal nichts jetz brauch ich ja noch den rest für else.... das es dann von vorne startet wie mach ich denn das? am besten wäre es noch wenn man das i-wie machen könnte mit ner 2. draufliegenden if-abfrage if strvar='No' then
writeln('sie wollen das programmneustarten')
und dann halt das das programm neu starten geht das überhaupt?

[Teekeks]

schaue bitte mal in der von mir gennanten version des oberen Teiles deines Programmes die 2. Zeile an. Bei dir steht: strvar = readln(); Richtig wäre aber:
strvar:string

[justloosit]

jo thx jetzt hats geklappt aber gibts denn eine lösung auf mein oberes problem?siehe beitrag #14

[Klaus01]

Zitat von justloosit:

Delphi-Quellcode:

var a, b, c:integer;
strvar : String;
begin
  writeln('Hallo dieses Programm berechnet ihnen die Summe, die Subtraktion, das Produkt');
  writeln(', sowie die Division aus zwei Zahlen!');
  writeln('Nun gib bitte deine erste Zahl ein.');
  readln(a);
  writeln('Deine erste Zahl ist also '+IntToStr(a)+' gib nun bitte deine zweite Zahl an!');
  readln(b);
  writeln('Deine Zahlen sind also '+IntToStr(a)+' und '+IntToStr(b)+' möchtest du fortfahren?');
  readln(strvar);
  if strvar 'Yes' then
    writeln('Deine beiden Zahlen sind also '+IntToStr(a)+' und '+IntToStr(b));
  writeln('die Summe der beiden Zahlen ist: '+IntToStr(a+b));
  readln;
end.

Typenkonvertierung beachten.
readln(a) liest ein Integer ein - ausgeben kannst Du nur Strings

Grüße
Klaus

[justloosit]

eh wie jetz was bringt das denn ?? das funktioniert doch alles ich will nur das das programm neustartet wenn is die bedingung von if nicht erfüllt

[Meflin]

Ach herrje, hab ichs auch noch falsch Vorgesagt. Readln Is ja garkeine Funktion

[Teekeks]

Schaue dir eine repeat-until-Schleife an...
Syntax:

Delphi-Quellcode:

repeat
{code}
until strvar='yes';{wenn strvar='yes' dan geht er aus der schleife raus, ansonsten springt er zum repeat zurück und durchläuft alles nocheinmahl...}

@klaus: das ist vermutlich Turbo Pascal, da geht das ^^