Forum: Object-Pascal / Delphi-Language
by Teekeks,
23. Mär 2009
ok. Dann doch repeat:
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);
Forum: Object-Pascal / Delphi-Language
by Teekeks,
23. Mär 2009
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 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...
Forum: Object-Pascal / Delphi-Language
by Teekeks,
23. Mär 2009
Schaue dir eine repeat-until-Schleife an...
Syntax:
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 ^^
Forum: Object-Pascal / Delphi-Language
by Teekeks,
23. Mär 2009
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
Forum: Object-Pascal / Delphi-Language
by Teekeks,
23. Mär 2009
var a, b, c:integer;
strvar = readln();
begin
writeln('Hallo dieses Programm berechnet ihnen die Summe, die Subtraktion, das Produkt');
{...}
müsste so aussehen:
var a, b, c:integer;
strvar:string;
begin
writeln('Hallo dieses Programm berechnet ihnen die Summe, die Subtraktion, das Produkt');