if schleife in einer konsohle

[justloosit]

hallo leute nun arbeiten auch wir mit der konsolenanwendung nun hab ich folgende Frage
wie kann ich eine IF-schleife erstellen bei der ich z.b.
wenn ich eingebe "yes" das program vortgesetzt wird und wenn ich sage "no" es von vorne begint


würde mich über schnelle antworten freuen mfg justloosit

[Meflin]

1. Es gibt keine if-Schleifen
2. wie Eingabe geht weist du?

Delphi-Quellcode:

strvar = ReadLn();

Dann kannst du einfach mittels

Delphi-Quellcode:

if strvar = 'yes' then
  ...

weitermachen.

[BAMatze]

irgendwie ist das glaube ich die 2. Post, in der eine if-Schleife angesprochen wird :lol: :lol:

[quendolineDD]

Wie wäre es mit Kopfgesteurerten bzw. fußgesteuerten Zyklen? Diese zyklen laufen mit Abbuchbedingungen und würden deiner "if-Schleife" gleich kommen ;-)

[Helmi]

Konsole bitte ohne h
hat nichts mit der Schuhsohle zu tun

[DP-Maintenance]

Dieses Thema wurde von "mkinzler" von "Freeware" nach "Object-Pascal / Delphi-Language" verschoben.
Ist kein Vorschlag zur CL

[justloosit]

aso es gibts keine if schleifen?
wie wird das dan bezeichnet?

[bigben37]

If-Schleife

[justloosit]

hm ok wieder was gelernt aber i-wie funktioniert das nich recht so siehts zurzeit bei mir aus:

Delphi-Quellcode:

var a, b, c:integer;
strvar = readln();
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 ',a,' gib nun bitte deine zweite Zahl an!');
readln(b);
writeln('Deine Zahlen sind also ',a,' und ',b,' möchtest du fortfahren?');
readln(strvar);
if strvar 'Yes' then
writeln('Deine beiden Zahlen sind also ',a,' und ',b,'');
writeln('die Summe der beiden Zahlen ist ',a+b,'');
readln;
end.

[quendolineDD]

Kannst du bitte die Delphi-Tags setzen, damit dein Code lesbar wird?
Und es wäre hilfreich, wenn du uns mitteilst, was nicht funktioniert bzw. worin sich ein Fehler äußert. :glaskugel:

Edit2:

Zeile 12 ist schonmal ein Fehler. Es müsste

Delphi-Quellcode:

if strvar = 'Yes' then

heißen. Die von der IF-Bedingung abhängigen Blöcke solltest du mit begin und end umgeben. Ansonsten ist nur die auf die IF-Abfrage folgende Zeile davon abhängig.

[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:

Delphi-Quellcode:

strvar = readln();

Richtig wäre aber:

Delphi-Quellcode:

strvar:string

[justloosit]

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

[Klaus01]

Zitat:

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 :mrgreen:

[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 ^^

[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...

[justloosit]

na das mit der repeat-until schleife klappt doch i-wie gar nich ist diese schleife nicht eher dafür dar das man nur eine bedingung erfüllen kann das das programm weiter läuft aber ich möchte doch das das program z.b. wenn ich no sage von vorne startet und wenn ich yes sage einfach weiter läuft????? :?:

[Teekeks]

F1 ist dein Freund...
oder: hast du TP? da ist das mit der Hilfe anders...

[mkinzler]

Dann dreh doch die Bedingung um:

Delphi-Quellcode:

until strvar = 'No';

[justloosit]

Leute ich liebe euch ihr seid echt sooooo genial