Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Program Zahlenvergleich;
uses crt;
Var a,b,c: Integer;
Begin
clrscr;
write('Zahl 1: ');
Readln(A)
writeln;
write('Zahl 2: ');
Readln(B);
writeln;
write('Zahl 3: ');
Readln(C);
writeln;
If ((A > B) And (A > C)) Then begin
If (B > C) writeln(A, B, C)
Else writeln(A, C, B);
End;
If ((A > B) And (A < C)) Then writeln(C, A, B);
If ((B > A) And (B > C)) Then begin
If (A > C) writeln(B, A, C)
Else writeln(B, C, A);
End;
If ((B > A) And (B < C)) Then writeln(C, B, A);
If ((C > A) And (C > B)) Then begin
If (A > B) writeln(C, A, B)
Else writeln(C, B, A);
End;
If ((C > A) And (C < B)) Then writeln(B, C, A);
readkey;
end.
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
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('Frage1: ... ?');
writeln;
writeln('1. ');
writeln('2. ');
writeln('3. ');
writeln;
Write('Ihre Antwort: ');
readln(a);
If (A = 2) Then
begin
Score:=Score+1;
GoTo F2;{Wenn Antwort 2 richtig sein soll, geh weiter zu Frage 2}
end;
If (A <> 2) Then
begin
Writeln('Die richtige Antwort ist: 2');
GoTo Ende1; {gehe zu Ende1}
end;
F2:
writeln;
write('Frage2: ... ?');
writeln;
writeln('1. ');
writeln('2. ');
writeln('3. ');
writeln;
Write('Ihre Antwort: ');
readln(A);
If (A = 1) Then
begin
Score:=Score+1;
GoTo F3;{Wenn Antwort 1 richtig sein soll, geh weiter zu Frage 3}
end;
If (A <> 1) Then
begin
Writeln('Die richtige Antwort ist: 1');
GoTo Ende1; {gehe zu Ende1}
end;
F3:
write('Frage3: ... ?');
writeln;
writeln('1. ');
writeln('2. ');
writeln('3. ');
writeln;
Write('Ihre Antwort: ');
readln(a);
If (A = 2) Then
begin
Score:=Score+1;
GoTo F4;{Wenn Antwort 2 richtig sein soll, geh weiter zu Frage 4}
end;
If (A <> 2) Then
begin
Writeln('Die richtige Antwort ist: 2');
GoTo Ende1; {gehe zu Ende1}
end;
F4:
write('Frage4: ... ?');
writeln;
writeln('1. ');
writeln('2. ');
writeln('3. ');
writeln;
Write('Ihre Antwort: ');
readln(a);
If (A = 3) Then
begin
Score:=Score+1;
GoTo Sieg; {Wenn Antwort 3 richtig sein soll, geh weiter zu Frage 2}
end;
If (A <> 3) Then
begin
Writeln('Die richtige Antwort ist: 3');
GoTo Ende1; {gehe zu Ende1}
end;
Sieg:
Writeln;
Writeln('Sie haben alle Fragen richtig beantwortet. Glückwunsch');
GoTo Ende2;
Ende1:
writeln;
Writeln('Leider haben sie nicht alle Fragen richtig beantwortet.');
writeln('Ihre Punktzahl liegt bei ',Score:2,' Punkten.');
GoTo Ende2;
Ende2:
writeln;
writeln('Hier endet das Quiz. Auf wiedersehen.');
readkey;
end.