Hallo,

Ich will ein Programm schreiben , wo der Benutzer 3 Zahlen eingibt und diese nach der Größe geordnet ausgegeben werden.
schonmal danke für eure Hilfe.

mfg sudden

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Program Zahlenvergleich; uses crt; Var a,b,c: Integer; Begin  clrscr;  write([color="#00A000"]'Zahl 1: ');[/color]  Readln(A)  writeln;  write([color="#00A000"]'Zahl 2: ');[/color]  Readln(B);  writeln;  write([color="#00A000"]'Zahl 3: ');[/color]  Readln(C);  writeln;  [color="#0000A0"]If[/color] ((A > B) [color="#0000A0"]And[/color] (A > C)) [color="#0000A0"]Then[/color] begin   [color="#0000A0"]If[/color] (B > C) writeln(A, B, C)   [color="#0000A0"]Else[/color] writeln(A, C, B);   End;  [color="#0000A0"]If[/color] ((A > B) [color="#0000A0"]And[/color] (A < C)) [color="#0000A0"]Then[/color] writeln(C, A, B);    [color="#0000A0"]If[/color] ((B > A) [color="#0000A0"]And[/color] (B > C)) [color="#0000A0"]Then[/color] begin   [color="#0000A0"]If[/color] (A > C) writeln(B, A, C)   [color="#0000A0"]Else[/color] writeln(B, C, A);  End;  [color="#0000A0"]If[/color] ((B > A) [color="#0000A0"]And[/color] (B < C)) [color="#0000A0"]Then[/color] writeln(C, B, A);    [color="#0000A0"]If[/color] ((C > A) [color="#0000A0"]And[/color] (C > B)) [color="#0000A0"]Then[/color] begin   [color="#0000A0"]If[/color] (A > B) writeln(C, A, B)   [color="#0000A0"]Else[/color] writeln(C, B, A);  End;  [color="#0000A0"]If[/color] ((C > A) [color="#0000A0"]And[/color] (C < B)) [color="#0000A0"]Then[/color] writeln(B, C, A);  readkey; end.

Das Programm sortiert die Zahlen von größter nach kleinster Zahl. Willst du es andersrum, musst du die jeweils die erste und dritte Variable tauschen
Viel Spaß damit

P.S: Schreibarbeit von 5 Min

Paragas

Vielen dank,
Ich hab inzwischen auch ne Idee gehabt und zwar lass ich ne Zählschleife bis 1000000 laufen und wenn eine zahl= der Zählschleife ist , wird sie ausgegebenn

Original geschrieben von sudden
und zwar lass ich ne Zählschleife bis 1000000 laufen und wenn eine zahl= der Zählschleife ist , wird sie ausgegebenn

*rofl*
Das ist nicht dein Ernst. oder? Wenn doch würd ich gerne die Note erfahren die dir der Lehrer gegeben hat *grins*



SORRY, aber soist selten *kopfschüttel*

Aber kreativ.

Such im Internet mal nach Bubble-Sort, Quick-Sort oder auch Merge-Sort.
Alle sind unterschiedlich in der Schnelligkeit und Programmierbarkeit.

Servus!

http://www.hrz.uni-dortmund.de/A1/ku...eil2_tag3.html

Gruß Tom

Hi Ihr!
Also, ich bin schon am verzweifeln. Wir sollen bis Morgen ein Programm schreiben mit Turbo Pascal.

Und zwar soll es ein Quiz sein! Wir sollen 4 Fragen insgesamt machen und immer drei versch. Auswahlmöglichkeiten PRO FRAGE! wenn die antwort falsch ist, dann soll die richtige antwort ausgegeben werden und das spiel abgebrochen werden. wenn die richtige antwort gegeben wurde, soll die nächste frage kommen usw. wenn alle fragen richtig beantwortet sind, soll der benutzer gelobt werden ;-( Tja, ich hab echt keine Ahnung wie das gehen soll Da ich das Programm auch nicht habe, da der lehrer zu blöd ist, dass mal den Schülern zu geben. Und per Hand weiß ich nicht ob es funktioniert und ... mist, bitte helft mir

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104

Program Quiz; uses crt; {nur für DOS-Variante von Pascal} Label Ende1,Ende2,F2,F3,F4,Sieg; Var a,b,c,d,Score: Integer;   Begin clrscr; Score:=0; write([color="#00A000"]'Frage1: ... ?');[/color] writeln; writeln([color="#00A000"]'1. ');[/color] writeln([color="#00A000"]'2. ');[/color] writeln([color="#00A000"]'3. ');[/color] writeln; Write([color="#00A000"]'Ihre Antwort: ');[/color] readln(a); [color="#0000A0"]If[/color] (A = 2) [color="#0000A0"]Then[/color] begin Score:=Score+1; [color="#0000A0"]GoTo[/color] F2;{Wenn Antwort 2 richtig sein soll, geh weiter zu Frage 2} end; [color="#0000A0"]If[/color] (A <> 2) [color="#0000A0"]Then[/color] begin Writeln([color="#00A000"]'Die richtige Antwort ist: 2');[/color] [color="#0000A0"]GoTo[/color] Ende1; {gehe zu Ende1} end;   F2: writeln; write([color="#00A000"]'Frage2: ... ?');[/color] writeln; writeln([color="#00A000"]'1. ');[/color] writeln([color="#00A000"]'2. ');[/color] writeln([color="#00A000"]'3. ');[/color] writeln; Write([color="#00A000"]'Ihre Antwort: ');[/color] readln(A); [color="#0000A0"]If[/color] (A = 1) [color="#0000A0"]Then[/color] begin Score:=Score+1; [color="#0000A0"]GoTo[/color] F3;{Wenn Antwort 1 richtig sein soll, geh weiter zu Frage 3} end; [color="#0000A0"]If[/color] (A <> 1) [color="#0000A0"]Then[/color] begin Writeln([color="#00A000"]'Die richtige Antwort ist: 1');[/color] [color="#0000A0"]GoTo[/color] Ende1; {gehe zu Ende1} end;   F3: write([color="#00A000"]'Frage3: ... ?');[/color] writeln; writeln([color="#00A000"]'1. ');[/color] writeln([color="#00A000"]'2. ');[/color] writeln([color="#00A000"]'3. ');[/color] writeln; Write([color="#00A000"]'Ihre Antwort: ');[/color] readln(a); [color="#0000A0"]If[/color] (A = 2) [color="#0000A0"]Then[/color] begin Score:=Score+1; [color="#0000A0"]GoTo[/color] F4;{Wenn Antwort 2 richtig sein soll, geh weiter zu Frage 4} end; [color="#0000A0"]If[/color] (A <> 2) [color="#0000A0"]Then[/color] begin Writeln([color="#00A000"]'Die richtige Antwort ist: 2');[/color] [color="#0000A0"]GoTo[/color] Ende1; {gehe zu Ende1} end;   F4: write([color="#00A000"]'Frage4: ... ?');[/color] writeln; writeln([color="#00A000"]'1. ');[/color] writeln([color="#00A000"]'2. ');[/color] writeln([color="#00A000"]'3. ');[/color] writeln; Write([color="#00A000"]'Ihre Antwort: ');[/color] readln(a); [color="#0000A0"]If[/color] (A = 3) [color="#0000A0"]Then[/color] begin Score:=Score+1; [color="#0000A0"]GoTo[/color] Sieg; {Wenn Antwort 3 richtig sein soll, geh weiter zu Frage 2} end; [color="#0000A0"]If[/color] (A <> 3) [color="#0000A0"]Then[/color] begin Writeln([color="#00A000"]'Die richtige Antwort ist: 3');[/color] [color="#0000A0"]GoTo[/color] Ende1; {gehe zu Ende1} end;   Sieg: Writeln; Writeln([color="#00A000"]'Sie haben alle Fragen richtig beantwortet. Glückwunsch');[/color] [color="#0000A0"]GoTo[/color] Ende2;   Ende1: writeln; Writeln([color="#00A000"]'Leider haben sie nicht alle Fragen richtig beantwortet.');[/color] writeln([color="#00A000"]'Ihre Punktzahl liegt bei ',Score:2,' Punkten.');[/color] [color="#0000A0"]GoTo[/color] Ende2;   Ende2: writeln; writeln([color="#00A000"]'Hier endet das Quiz. Auf wiedersehen.');[/color] readkey; end.

Hier das komplette Quiz. Ich habs nur Schemenhaft aufgebaut, aber es ist getestet und läuft ohne Fehler. Viel Spaß damit.

Paragas