| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
delphine
Anmeldungsdatum: 25.06.2005
Beiträge: 2
|
 Verfasst am: 25. Jun 2005 10:37 Titel: Bitte Hilfe bei Aufg. mit random Funktion |
 |
|
die aufgabe lautet:
In einem PHSCAL-Programm ist mit Hilfe der Random-Funktion eine fünfstellige nat. Zahl zu bestimmen. Es soll die Quersumme dieser Zahl ausgegeben werden.
ich habe keine ahnung wie man Programm schreibt, wenn mir jdm. helfen könnte wäre das sehr nett, vielen dank schonmal!! |
|
| Nach oben |
|
 |
|
|
ED209
Anmeldungsdatum: 30.05.2005
Beiträge: 122
|
| Verfasst am: 25. Jun 2005 10:51 Titel: |
|
|
Wie kommst du dann an so eine Aufgabe?
_________________
+++++++++++++[>++++>+<<-]>.--.>---. |
|
| Nach oben |
|
|
Tobias
Anmeldungsdatum: 15.02.2005
Beiträge: 149
|
| Verfasst am: 25. Jun 2005 12:47 Titel: |
|
|
1. Wähle zufällig eine natürliche Zahl  .
2. Addiere die Ziffern, indem du in einer Schleife die jeweils letzte Ziffer über Modulo-10 ermittelst. |
|
| Nach oben |
|
|
delphine
Anmeldungsdatum: 25.06.2005
Beiträge: 2
|
| Verfasst am: 25. Jun 2005 15:39 Titel: @ED209 |
|
|
| die aufgabe ist HA ausm informatikunterricht bei mir (11. kl. gym.), aber ich verstehe dieses ganze PASCAL programm nicht....leider...und ich schreibe in 2 tagen eine klausur... |
|
| Nach oben |
|
|
Toxman
Anmeldungsdatum: 15.02.2005
Beiträge: 42
Wohnort: Freiburg i. Brsg.
|
| Verfasst am: 25. Jun 2005 16:53 Titel: |
|
|
@ Tobias:
eher 10000<=n<=99999
Du kannst es auch etwas qucik'n'dirty machen:
| Code: |
var
zahl: string;
a: integer;
summe: integer;
zahl:='';
a:=0;
Summe:='';
randomize;
for i:=0 to 4 do
begin
a:= random(9)+1; // Eine neue Stelle wird bestimmt
summe:= summe+a; // und zur Quersumme hinzugefügt
zahl:= zahl+inttostr(a); // und zur Gesamtzahl hinzugefügt.
end;
Showmessage('Die Fünfstellige Zahl: '+ Zahl+' Mit Quersumme '+inttostr(summe));
|
Das ist zwar nicht die Lösung, die dein Lehrer haben wollte, aber damit kannst du jeder Mathe mit mod oder Runden aus dem Weg gehen  |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
