Menu schließen

Das Syrakus-Problem

Alles zu Sonstige

Program Syrakus;


uses crt;
var y,x,n: longint;
begin
clrscr;
writeln('Das Syrakus-Problem');
writeln('');
writeln;
writeln;
writeln('Eine Folge von Zahlen soll gebildet werden:');
writeln('Die 1. Zahl der Folge ist eine beliebige positive Zahl.');
writeln('Die nchste Zahlen der Folge werden wie folgt berechnet:');
writeln('Ist eine Zahl der Folge gerade, dann wird sie durch 2 geteilt.');
writeln('Der Quotient ist dann die nchste Zahl der Folge.');
writeln('Ist eine Zahl der Folge ungerade, dann wird sie mit 3 multipliziert,');
writeln('und zum Produkt wird 1 addiert.');
writeln('Die Summe ist dann die nchste Zahl der Folge.');
writeln('Die letzte Zahl der Folge ist 1.');
writeln;
repeat
Write('Gib also nun bitte eine beliebige positive Zahl ein: ');readln(x);
writeln;
n:=1;
if x>0
then write(x,', ')
else writeln('Dies ist keine positive ganze Zahl!');
until x>0;
y:=0;
Repeat
if x mod 2 = 0
then
begin
x:= x div 2;
write(x,', ');
end
else
begin
x:= x*3+1;
write(x,', ');
end;
n:=n+1;
if y<x
then y:=x;
until x = 1;
writeln;
writeln('Diese Folge besteht aus ',n,' Zahlen.');
writeln('Die grte Zahl der Folge ist ',y);
readln;
end.
Inhalt
Folge von Zahlen mit folgenden Festlegungen:
1.Zahl beliebig positiv
nächsten:
Zahl gerade dann Teilen durch 2 Quotient nächste Zahl der Folge
Zahl ungerade,dann multiplikation mit 3 und addition mit 1 Summe nächste Zahl der Folge
letzte Zahl der Folge ist 1. (172 Wörter)
Hochgeladen
17.05.2005 von Feuerkind
Optionen
Hausaufgabe herunterladen: PDFPDF, Download als DOCDOC
  • Bewertung 3.7 von 5 auf Basis von 30 Stimmen
  • 1
  • 2
  • 3
  • 4
  • 5
3.7/5 Punkte (30 Votes)



Seite drucken | Melden
Kostenlos eine Frage an unsere Informatik-Experten stellen:

0 weitere Dokumente zum Thema "Sonstige"
2 Diskussionen zum Thema im Forum
Wenn du dieses Dokument verwendest, zitiere es bitte als: "Das Syrakus-Problem", https://e-hausaufgaben.de/Hausaufgaben/D2044-Pascal-das-Syrakus-Problem.php, Abgerufen 20.10.2019 13:51 Uhr

Es handelt sich hier um einen fremden, nutzergenerierten Inhalt für den keine Haftung übernommen wird.
Download: PDFPDF, Download als DOCDOC
PASSENDE FRAGEN: