keks
Grünschnabel
Dabei seit: 24.05.2012
Beiträge: 1
 |
|
| Tubo pascal - digitale suche - arbeiten mit textdateien |
     |
Meine Frage:
Hallo,
Ich habe seit knapp einem Jahr Informatik. Eigentlich bin ich recht gut darin. Gerade machen wir aber ein Thema, das ich nicht so recht verstehe.
Wir arbeiten seit anfang an mit Turbopascal!!
bei meinem problem geht es um die binäre bzw digitale Suche (bin mir nicht ganz sicher was das jetzt genau ist)
Wir haben vorher schon quicksort, sortieren durch einfügen undso gemacht und sollen jetzt aus einer gegebenen textdatei, in der Ein 20x20 großes Buchstabenfeld gespeichert ist, Tiere finden. Also wir sollen es so programmieren, dass wir ein tier eingeben und der pc dann sagt ob es vorhanden ist (quer rückwerts, von oben nach unten von unten nach oben und in alle anderen richtungen)
bei mir hapert es aber schon beim einlesen bzw ausgeben der textdatei.
unten hab ich meinen bisherigen ansatz. Wir haben jetzt allerdings noch irgendwas mi einem datenziel aufgeschrieben. Ich verstehe nicht so genau, warum das denn jetzt auch noch in ein ziel gespeichert werden muss??
so... jetzt zur suche... zwischen jedem buchstaben ist auch noch eine leerstelle, die muss auch erstmal weg. ich hab keine ahnung wie ich es achaffe, dass das programm dann was aus der textdatei loescht. Also bzw wie der die dann aufruft und dann da den teil der weg soll loescht.
und wie ich den suchen lasse weiss ich ueberhauptnicht!!! 
es waere echt nett wenn mir einer von euch helfen koennte. Ich hoffe ihr versteht mein problem und koennt es so ausdruecken, dass auch ich dass verstehe 
Meine Ideen:
{einlesen des textes:}
assign(quelle,'c:\daten.txt');
reset(quelle);
for i:=1 to 20 do
readln(quelle,a[i]);
close(quelle);
{ausgeben des textes}
for i:=1 to 20 do begin
gotoxy(10,i);
writeln(a[i]);
end;
{leerstellen loeschen}
for i:= 1 to 10 do begin
j:=i*2
Readln(quelle,1);
Delete(str,j,1);
end;
|
|
