Berechnen und ausgeben wie viele Antworten richtig waren fürs Konsolenprogramm.

[Sir Rufo]

Zitat von stina:

Danke das ihr immer so schnell Antwortet. Ich werde mir das mit dem now mal ansehn.
Und das man immer nur eine frage stzellt wusste icjh nich sorry .
Is mein vorletzter Praktikumstag deshalb soll das spiel/quiz besonders gut werden.
Und wie genau macht man das eigentlich den quelltext so reinkopieren?
einfach makieren und kopieren ja anscheinen nicht......
Ps ich bin erst 14 jahre alt also nicht wundern

Du bist ja noch neu hier, darum hast du (ungeachtet des Alters) noch "Welpenschutz"

Das Einfügen von Quelltext geht so:

Den Quelltext in die Zwischenablage, dann hier so einfügen

Code:

[DELPHI]
procedure Foo;
begin
  // sth
end;
[/DELPHI]

und das Ergebnis ist das

Delphi-Quellcode:

procedure Foo;
begin
  // sth
end;

[stina]

Delphi-Quellcode:

 program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  name: string;
  Zahl1, Zahl2, Eingabe, AktuelleRunde: real;
  RichtigeAntw: integer = 0;
  AnzRunden: integer;

begin

  Writeln('Bitte geben sie ihren Namen ein');
  Readln(Name);
  Writeln('Hallo ' + Name + ' wie viele Runden willst du spielen?');
  Readln(AnzRunden);
  Writeln('Also spielen wir ' + FloatToStr(AnzRunden) + ' Runden zusammen');
  Readln;
  AktuelleRunde := 0;
  repeat // wiederhole solange.....
    AktuelleRunde := AktuelleRunde + 1;
    randomize;
    Zahl1 := Random(20) + 1;
    Zahl2 := Random(10) + 1;
    Writeln(FloatToStr(Zahl1) + '+' + FloatToStr(Zahl2));
    Readln(Eingabe);
    if Eingabe = Zahl1 + Zahl2 then
      Writeln('Das ist richtig')
    else
      Writeln('Das war falsch');
    Readln;
    if Eingabe = Zahl1 + Zahl2 then
      inc(RichtigeAntw);
  until AnzRunden = AktuelleRunde; // ...bis Aktuellle Runde=Anzahl Runde
  Writeln('Du hast ' + IntToStr(RichtigeAntw) + ' Aufgaben von ' + IntToStr
      (AnzRunden) + ' richtig gelöst');
  Readln;
  try
    { TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

das is jetzt dann der quelltext des spiels. nich schön aber naja..... und danke für den "Welpenschutz"

[DeddyH]

Und das funktioniert? Da Du mit Fließkommazahlen (Real) rechnest, sollten eigentlich Rundungsungenauigkeiten auftreten, die einem den ganzen Spaß verderben, da Vergleiche nicht das Ergebnis liefern, das man erwartet.