LOGIN | NEU REGISTRIEREN

Schule > Informatik > Programmiersprachen > Sonstige > Das Syrakus-Problem

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.

Download: PDF, DOC