Die Mathe-Redaktion - 16.07.2018 06:28 - Registrieren/Login
Auswahl
ListenpunktHome
ListenpunktAktuell und Interessant ai
ListenpunktArtikelübersicht/-suche
ListenpunktAlle Links / Mathe-Links
ListenpunktFach- & Sachbücher
ListenpunktMitglieder / Karte
ListenpunktRegistrieren/Login
ListenpunktArbeitsgruppen
ListenpunktSchwätz / Top 15
ListenpunktWerde Mathe-Millionär!
ListenpunktAnmeldung MPCT Juli
ListenpunktFormeleditor fedgeo
Schwarzes Brett
Aktion im Forum
Suche
Stichwortsuche in Artikeln und Links von Matheplanet
Suchen im Forum
Suchtipps

Bücher
Englische Bücher
Software
Suchbegriffe:
Mathematik bei amazon
Naturwissenschaft & Technik
In Partnerschaft mit Amazon.de
Kontakt
Mail an Matroid
[Keine Übungsaufgaben!]
Impressum

Bitte beachten Sie unsere Nutzungsbedingungen, die Distanzierung, unsere Datenschutzerklärung und
die Forumregeln.

Sie können Mitglied werden. Mitglieder können den Matheplanet-Newsletter bestellen, der etwa alle 2 Monate erscheint.

Der Newsletter Okt. 2017

Für Mitglieder
Mathematisch für Anfänger
Wer ist Online
Aktuell sind 116 Gäste und 5 Mitglieder online.

Sie können Mitglied werden:
Klick hier.

Über Matheplanet
 
Zum letzten Themenfilter: Themenfilter:
Matroids Matheplanet Forum Index
Moderiert von matph
Informatik » Programmieren » Pascal: Ordinal expression expected
Druckversion
Druckversion
Autor
Ausbildung J Pascal: Ordinal expression expected
Nortel
Aktiv Letzter Besuch: im letzten Monat
Dabei seit: 07.01.2018
Mitteilungen: 29
Aus:
Zum letzten BeitragZum nächsten BeitragZum vorigen BeitragZum erstem Beitrag  Themenstart: 2018-06-20 12:19


Hallo zusammen,

ich sitze momentan über folgender Aufgabe:

Schreiben Sie ein Pascal-Programm, welches eine Adressverwaltung in einer Datei realisiert. Neben dem Hauptprogramm sind folgende Prozeduren zu entwerfen:
- Eingabe von Adressen
- Suchen einer Adresse aufgrund des Nachnamens
- Ausgabe einer Adressliste in alphabetischer Reihenfolge
- Ändern einer Adresse


Nun war ich zuletzt dabei zur Suche einer Adresse eine Prozedur entwerfen und bekomme zu markierter Zeile folgende Fehlermeldung beim compilieren: Ordinal expression expected. Leider weiß ich nicht weshalb, kann mir hier jemand helfen?
Pascal
program meinadressbuch;
uses crt;
type Adress = record
        vorname, nachname, strasse, ort:string;
        hausnummer, PLZ: integer;
        end;
const Max_index = 1000;
 
var
    Datei: text;
    Pfad, Eingabe: string;
    vn: ^string;
    nn: ^string;
    st: ^string;
    ot: ^string;
    hn: ^integer;
    pl: ^integer;
    A: array[0..Max_index] of Adress;
    Satzzahl: integer;
 
 
 
procedure adresssuche;
var i, suchname: string;
       antwort: char;
       gefunden: boolean;
begin
Satzzahl:= 0;
repeat write ('Bitte geben Sie den gesuchten Nachnamen ein: ');
readln (suchname);
gefunden :=false;
For i := 1 to Satzzahl do
If A[i].nachname = suchname then <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
begin
Ausgabe (A[i]);
gefunden := true;
end;
If not gefunden then writeln ('Kein solcher Datensatz vorhanden ');
writeln;
write ('M”chten Sie nach einem weiteren Datensatz suchen (j/n) ? ');
readln (Antwort)
until Antwort = 'n';
end;
 
 
begin
        clrscr;
        writeln('Welches Adressbuch soll verwendet werden? (Pfad)');
        Readln (Pfad);
        Assign(Datei, Pfad);
        Append(Datei);
        writeln ('Geben Sie die Adresse ein, die hinzugefgt werden soll');
        writeln ('Verwenden Sie dabei folgendes Format: ');
        writeln ('Vorname');
        writeln ('Name');
        writeln ('Strasse Hausnummer');
        writeln ('PLZ');
        writeln ('Ort');
        writeln ('Geben Sie "exit" ein, um abzuschlieáen.');
        repeat
        readln (Eingabe);
          if Eingabe <> 'exit' then
           writeln(Datei, Eingabe);
          until Eingabe ='exit';
 
            close (Datei);
 
 
 
 
 
 
end.

Vielen Dank!

SG Nortel



  Profil  Quote  Link auf diesen Beitrag Link
ligning
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 07.12.2014
Mitteilungen: 2192
Aus: Berlin
Zum letzten BeitragZum nächsten BeitragZum vorigen BeitragZum erstem Beitrag  Beitrag No.1, eingetragen 2018-06-20 12:27


Hallo,

i ist mit dem Typ string deklariert.


-----------------
⊗ ⊗ ⊗



  Profil  Quote  Link auf diesen Beitrag Link
Nortel
Aktiv Letzter Besuch: im letzten Monat
Dabei seit: 07.01.2018
Mitteilungen: 29
Aus:
Zum letzten BeitragZum nächsten BeitragZum vorigen BeitragZum erstem Beitrag  Beitrag No.2, vom Themenstarter, eingetragen 2018-06-20 12:42


Vielen Dank smile



  Profil  Quote  Link auf diesen Beitrag Link
Nortel hat die Antworten auf ihre/seine Frage gesehen.
Nortel hat selbst das Ok-Häkchen gesetzt.
Nortel wird per Mail über neue Antworten informiert.
Neues Thema [Neues Thema]  Druckversion [Druckversion]

 


Wechsel in ein anderes Forum:
 Suchen    
 
All logos and trademarks in this site are property of their respective owner. The comments are property of their posters, all the rest © 2001-2018 by Matroids Matheplanet
This web site was made with PHP-Nuke, a web portal system written in PHP. PHP-Nuke is Free Software released under the GNU/GPL license.
Ich distanziere mich von rechtswidrigen oder anstößigen Inhalten, die sich trotz aufmerksamer Prüfung hinter hier verwendeten Links verbergen mögen.
Lesen Sie die Nutzungsbedingungen, die Distanzierung, die Datenschutzerklärung und das Impressum.
[Seitenanfang]