Schule & Uni  Schule & Uni
menu Referate menu Facharbeiten menu Seminararbeiten menu Arbeit hochladen menu Schulforen
Statistik
Mitglieder401.354
Männer197.705
Frauen196.818
Referate12.458
Forenbeiträge3.080.959
 Neue Mitglieder
  • Profilbild von leo1.0

    Maennlich leo1.0
    Alter: 20 Jahre
    Profil

  • Profilbild von JuliaE

    Weiblich JuliaE
    Alter: 22 Jahre
    Profil

 
Foren
Schule & Referate
Forum durchsuchen:

 

Thema: Informatik

Übersicht

Passende Referate zum Thema "Informatik" findest du auf der Startseite
(222x gelesen)

Seiten: 1

Du mußt dich registrieren, bevor Du einen Beitrag bzw. eine Antwort erstellen kannst.

Beitrag von Buengi

18.01.2006 17:20:23

Buengi

Buengi hat kein Profilbild...

Themenstarter
Buengi hat das Thema eröffnet...

hi @all.
also wir sollen in info so ein prog schreiben. allerding weiß ich jetzt nicht genau was in die letzte procedure reinkommt damit das geht. wisst ihr das vll (hab nen pfeil dahin gemacht, wo mir was fehlt).
thx

procedure teiler (z1:integer;VAR E:integer);
var t:integer;
begin
e:=0;
t:=0;
Repeat
if z1 mod t=0 then
E:=e+t;
t:=t+1;
Until
t=z1;
end;

procedure primzahl(z:integer;VAR prim:boolean);
VAR e:integer;
begin
teiler(z,e);
if z+1=e then
prim:=true
else
prim:=false;
end;

procedure TForm1.BtrechneClick(Sender: TObject);
VAR z:integer;
begin

<-- was muss hier rein

end;

end.

Profil | Livenachricht | SMS senden | Gästebuch | Nachricht | Bildergalerie


Beitrag von Buengi

18.01.2006 17:27:00

Buengi

Buengi hat kein Profilbild...

Themenstarter
Buengi hat das Thema eröffnet...

push

Profil | Livenachricht | SMS senden | Gästebuch | Nachricht | Bildergalerie


Seiten: 1

Du mußt dich registrieren, bevor Du einen Beitrag bzw. eine Antwort erstellen kannst.


Weitere interessante Beiträge aus dem Forum:
Referat Bundeskanzler
Informatik algorithmus
Facharbeit in Informatik
zahlensystem informatik
Informatik ... EDV
TECHNISCHE INFORMATIK
ABI Informatik mündlich


288 Mitglieder online


 
...