Deutsches Lazarusforum

Hallo,
habe das Programm zwar nicht in Lazarus geschrieben, habe hier aber mal ein kleines Programm zur Ermittlung des größten gemeinsamen Teilers und vielleicht hat der eine oder andere eine Idee, wie man das besser machen kann oder bzw. in Lazarus umsetzen kann.


program Euklidischer_Algorithmus ...

Hallo, habe mein kleines Rechenquiz nochmal überarbeitet und so
müsste es jetzt gut funktionieren.

program rechenquiz;
uses crt;
var rechenart : integer;
weiter : char;

procedure vertauschen(var a,b : integer);
var zwischenwert : integer;
begin
zwischenwert := a;
a := b;
b := zwischenwert;
end ...

Hallo,
danke dir für die kleine Hilfestellung. Also ich habe mir die Prozedur hier geschrieben:


procedure vertauschen(a,b : integer);
begin
a := random(100);
b := random(100);
if a < b then
begin
x := b;
y := a;
end;
end;


Und dann habe ich noch bei der Pozededur eingabe die Random-Funktion vor ...

Hallo Leute, ich habe mir ein kleines Rechenquiz programmiert, bei dem die Rechenarten und die Zahlen per Zufall ausgegeben werden. Der Anwender muss dann jeweils nur das richtige Ergebnis eingeben. Meine Frage ist jetzt nur, wie bekomme ich das hin, dass den Rechenarten Minus und Geteilt die erste ...