Community
menu Registrieren menu Mitglieder Login menu Chat menu Flirtsuche menu Forum
 Schule & Uni
menu Referate / Hausarbeiten
 Informationen
menu FAQs
 Statistik
Mitglieder400.962
Neue User0
Männer197.536
Frauen196.595
Referate12.458
Forenbeiträge3.080.647
 Neue Mitglieder
  • Profilbild von Nisi_99

    Weiblich Nisi_99
    Alter: 18 Jahre
    Profil

  • Profilbild von Nisi99

    Weiblich Nisi99
    Alter: 18 Jahre
    Profil

  • Profilbild von sabat

    Maennlich sabat
    Alter: 23 Jahre
    Profil

  • Profilbild von C_T_2002

    Weiblich C_T_2002
    Alter: 15 Jahre
    Profil

  • Profilbild von Huhu4444

    Weiblich Huhu4444
    Alter: 19 Jahre
    Profil

  • Profilbild von Affeee

    Maennlich Affeee
    Alter: 100 Jahre
    Profil

  • Profilbild von HeikeManninga

    Weiblich HeikeManninga
    Alter: 45 Jahre
    Profil

  • Profilbild von bmpp3

    Maennlich bmpp3
    Alter: 21 Jahre
    Profil

  • Profilbild von Katzoff

    Maennlich Katzoff
    Alter: 75 Jahre
    Profil

  • Profilbild von _eli_

    Maennlich _eli_
    Alter: 17 Jahre
    Profil

     
Foren
Schule & Referate
Forum durchsuchen:

 
Thema:

Informatik

(188x 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.

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


Dein Live Messenger LiveMessenger

Diese Funktion ist nur für Mitglieder verfügbar.

Anmelden | Login

Keine neue Nachricht
Jetzt Gratis bei Pausenhof.de registrieren...

1 Mitglieder online