TURBO PASCAL - SCHIFFE VERSENKEN 1D

beautiful_sky · Gast

Hallo!

Ich muss als Informatik Hausaufgabe ein "Schiffe versenken" - Programm erstellen. Das ganze ist eigentlich ziemlich primitiv, da es in 1D und ohne viele Extras sein soll. Trotzdem kriege ich es nicht so richtig hin - mir fehlt ein entscheidender Denkanstoß. Kennt sich hier jemand mit den Grundkenntnissen von TURBO PASCAL aus und kann mir ein wenig helfen? (Bitte per email melden)
Ich habe eine .EXE - Datei mit dem erwünschten Endergebnis und eine angefangene .PAS - Datei...

Vielen Dank!

Maria

[email protected]

Crotaphytus · Anmeldungsdatum: 08.05.2005 Beiträge: 213

Verrat doch mal, welcher entscheidende Denkanstoß dir fehlt, dann könnte man dir deutlich besser helfen. Wo hängst du gerade fest?

beautiful_sky · Gast

Wie gesagt im Grunde ist es ganz simpel...

Ich habe ein "Feld" (von 1-30) gezeichnet.... dieses Feld besteht aus 30 (ASCI-CODE : Alt Gr 219) Zeichen.... Meine Frage ist nun: Wie kann ich auf diesem festen Feld ein Schiff zufällig festlegen, das aus 5 Zeichen besteht???

Ist ein wenig blöd zu beschreiben, aber ich hoffe es ist verständlich was ich meine?!

beautiful_sky

[email protected]

beautiful_sky · Gast

FOR i:= 1 to 30 DO
Write('Û'); ---> das ist das Feld auf dem ich mit

Randomize;
..... Random(30)+1 {<25} ein "Schiff" erstellen muss...

Vllt hilft das eher das Problem zu verstehen?!

Maria

Crotaphytus · Anmeldungsdatum: 08.05.2005 Beiträge: 213

Hm... Also ich glaub, so ganz verstanden hab ich das Problem immer noch nicht...

Um das Schiff zu platzieren erzeugst du einfach eine Zufallszahl zwischen 1 und 26. In der Schleife, die das Feld zeichnet, lässt du genau dann ein "Schiffzeichen" ausgeben, wenn die Nummer des aktuellen Zeichens minus die Zufallszahl größer gleich 0 und kleiner als 5 ist. In allen anderen Fällen malst du ein leeres Feld.

War das jetzt bereits eine Antwort auf dein Problem? Oder weißt du das schon, nur nicht, wie man das in Basic-Code umsetzt (ich warn dich, dann muss ich aus passen, Basic is Ewigkeiten her...)? Oder was ganz anderes?