Hulp nodig met makkelijk TP70 progje.

[RedruM]

Ja makkelijk voor jullie dus.. ik kom er niet echt meer uit.
(Net met pascal en parameters enzo begonnen en niet al te goed opgelet ).
De bedoeling is dat we een programma maken die het volgende kan.
Je moet in de interface in een windowtje de naam van een vak kunnen invullen.
BV Wi = wiskunde, FA = frans e.d.
Dan moet het prog door een textbestandje (waar docenten namen + vak instaan) zoeken en de resultaten neerzetten in een apart windowtje.

Dit is de code die we al hebben:

code:

program docenten;
uses crt,dos;

type str30 = string [30];

var naam, vak : str30;
    f: text;
    i: integer;

procedure initieer;
  begin
    textbackground(black);
    clrscr;
    assign(f, 'a:\docvak.txt');
    reset(f);
  end;

function onderdeel (w,z str30: boolean;
  var gevonden : boolean;
  begin
    gevonden := false;
    if (pos(w,z) <> 0) then
    begin
      gevonden := true;
    end;
    onderdeel : = gevonden;
  end;

procedure lees(var d,v : str30);
  begin
    if not eof(f) then
    begin 
     readln(f, d);
     readln(f, v);
    end;
  end;

procedure vraag (var opnieuw: boolean);
  var c : char;
  begin
    opnieuw := false;
    window (     );
    gotoxy (     );
    write (" Nog eens? (J / N)");
    repeat
    readln(c)
    until c in ['J', 'N', 'j', 'n']
    if ( c = 'J') or ( c = 'j') then opnieuw := true;
  end;

{  ** Hoofdprogramma **  }
begin
  initieer;
  nogeens:=true;
  while (nogeens) do
  begin
    invoerscherm(vak);
    uitvoerscherm(vak);
    vraag(nogeens);
  end;
  close(f);
end.

Nu moeten de volgende dingen nog geschreven worden:

- De interface (invoer en uitvoer van docenten per vak)
- De procedure "invoerscherm"
- De procedure "uitvoerdocenten"
- De functie "vraag"

Ik hoop dat jullie snappen wat ik bedoel en mij hiermee kunnen helpen.. Alvast bedankt.

[whoami]

En jij wilt dat we dat ff voor u bakken?

[RedruM]

Op zondag 02 juni 2002 10:02 schreef whoami het volgende:
En jij wilt dat we dat ff voor u bakken?

Nou in ieder geval op weg helpen als het even kan.
Tenminste het lijkt me echt een fluitje van een cent voor de gevorderen hier.. Als het niet zo is zeg het gerust

[whoami]

Nu ja.
Ik zou zeggen: als je aan het programmeren bent, let je op.
Begin zelf met die functies te implementeren en heb je iets specifieks waar je niet uitkomt, dan post je het maar, met een duidelijke omschrijving van uw probleem.

Dit topic heeft niet echt veel kans op GoT. Het is te vaag, en we gaan het echt niet voor u maken. Blijkbaar is het een schoolopdracht en ik veronderstel dat de docent die dat gegeven heeft geen opdrachten gaat geven die jullie nog niet zouden aankunnen.