Turbo-pascal *haare rausreiß'
huhu!
ich verzweifel mal wieder an meinen informatik hausaufgaben..
hat jemand ne ahnung von turbo pascal?
also ich soll n program schreiben, was alle echten teiler ausgibt, bis 32000...men prob:
ich hab ahnung von nix..bisher läuft natürlich nix und alles was ich hab is das hier..:
Line 1 Col 1 Insert Indent C:ECHTE.PAS
PROGRAM echteTeiler;
VAR i, t, summeT : INTEGER;
BEGIN
clrscr;
writeln;
writeln(' *** Dieses Programm gibt alle echten Teiler bis 32.000 aus *** '
writeln;
i:=0;
t:=0;
REPEAT
t:=t+1;
UNTIL
t=i;
FOR i:=1 TO i=32000 DO;
BEGIN
i:=i/t MOD
IF i:=summeT;
THEN
write(i);
nya, ich weiß, des is müll..
ich bemüh mich sogra um nachhilfe, aber iwie scheints niemanden zu geben, der da nachhilfe gibt...
ich verzweifel mal wieder an meinen informatik hausaufgaben..
hat jemand ne ahnung von turbo pascal?
also ich soll n program schreiben, was alle echten teiler ausgibt, bis 32000...men prob:
ich hab ahnung von nix..bisher läuft natürlich nix und alles was ich hab is das hier..:
Line 1 Col 1 Insert Indent C:ECHTE.PAS
PROGRAM echteTeiler;
VAR i, t, summeT : INTEGER;
BEGIN
clrscr;
writeln;
writeln(' *** Dieses Programm gibt alle echten Teiler bis 32.000 aus *** '

writeln;
i:=0;
t:=0;
REPEAT
t:=t+1;
UNTIL
t=i;
FOR i:=1 TO i=32000 DO;
BEGIN
i:=i/t MOD
IF i:=summeT;
THEN
write(i);
nya, ich weiß, des is müll..
ich bemüh mich sogra um nachhilfe, aber iwie scheints niemanden zu geben, der da nachhilfe gibt...