Wij komen er ff niet uit (pascal proggie maken)

[Verwijderd]

Ok, wij (ik en een vriend) zijn bezig met het maken van een proggie in pascal (JA, WE WETEN HET )

Wij willen het volgende maken:
Een pascalprogramma dat de gebruiker een menu geeft waarmee hij/zij een keuze kan maken om cijfers in te voeren, te wijzigen en te verwijderen. DE cijfers moeten beschikbaar komen in een bestand genaamd 'cijfers' met de volgende structuur:

Id-code (geheel getal 7 cijfers) Leeftijd student (geheel getal) Cijfer (2 cijfers achter de komma) Vakcode (afkorting vak)

Voorbeeld:
11223455 18 8.15 DB1

Daarnaast moet er een menu optie komen die per vak het totaal aantal studenten en het gemiddelde cijfer per vak en het totaal gemiddelde cijfer geeft.

Tot nu toe hebben wij dit:

code:

PROGRAM ca (cijfers);
VAR  regel, s, v : char;
      w, i, l, k : integer;
      c : real;
      cijfers, hulp : text;
PROCEDURE menu (VAR k: integer);
        BEGIN
          writeln(Keuzemenu:);
          writeln(1. Invoeren 2. Wijzigen);
          writeln(3. Verwijderen 4. Stoppen);
          write(Uw keuze is: );
        REPEAT
              readln(k);
          UNTIL (k > 0) AND (k < 5);
        END;
BEGIN      
menu(k);    
reset(cijfers);
rewrite(hulp);
WHILE NOT eof(cijfers) DO
        BEGIN      
        readln(cijfers, regel);
        writeln(hulp, regel);
        END;
IF k = 1
THEN    BEGIN
        writeln(Voer een 7 cijferige ID code in gevolgd door een spatie, dan de leeftijd van de student gevolgd door een spatie, dan het cijfer gevolgd door een spatie en dan de vakcode.);
        readln(i, l, c, v);
        writeln(hulp, i, l, c, v);
      END;
IF k = 2
THEN    BEGIN
        writeln(Voer de ID code in van de te wijzigen record.);
        readln(w);
        END;
IF k = 3
THEN    BEGIN 
        writeln(Verwijderen is gekozen);
        END;
IF k = 4
THEN        writeln(Bezig met afsluiten);
END.

Verder komen wij niet kan iemand ons verder helpen? Alvast errug bedankt!!

[Verwijderd]

Zelfde opmerking als bij die andere pascal opgave, eerste [ code] tags eromheen en inspringen, dan pas ga ik het proberen te lezen

[Nielsz]

En wat is er zo bagger aan Pascal?

[Verwijderd]

Ik werk liever met andere talen

[dusty]

Op maandag 07 januari 2002 17:50 schreef Nielsz het volgende:
En wat is er zo bagger aan Pascal?

Niet veel is mijn inziens een hele mooie taal.

[Nielsz]

Op maandag 07 januari 2002 17:52 schreef dusty het volgende:

[..]

Niet veel is mijn inziens een hele mooie taal.

Juist. Niets mis met pascal dus.

[Verwijderd]

Op maandag 07 januari 2002 17:52 schreef dusty het volgende:

[..]

Niet veel is mijn inziens een hele mooie taal.

Is t ook, heel gestructureerd enzo, maar ik werk gewoon liever met andere talen

[Verwijderd]

Op maandag 07 januari 2002 17:52 schreef dusty het volgende:

[..]

Niet veel is mijn inziens een hele mooie taal.

Op maandag 07 januari 2002 17:53 schreef Nielsz het volgende:

[..]

Juist. Niets mis met pascal dus.

[Qwerty-273]

Toch weer een mooie huiswerk opdracht

[dusty]

Op maandag 07 januari 2002 17:53 schreef Nielsz het volgende:
[..]
Juist. Niets mis met pascal dus.

Niets is een groot woord

[Nielsz]

Op maandag 07 januari 2002 17:58 schreef dusty het volgende:

[..]

Niets is een groot woord

MIS ook.
er zit een klein verschil tussen mis en iets minder raak

[dusty]

Op maandag 07 januari 2002 17:59 schreef Nielsz het volgende:
[..]
MIS ook.
[..]

Wat heeft een Management Informatie Systeem hier nou weer mee te maken ?

[Nielsz]

Op maandag 07 januari 2002 18:00 schreef dusty het volgende:

[..]

Wat heeft een Management Informatie Systeem hier nou weer mee te maken ?

Kan best in pascal gebakken worden

[Verwijderd]

Willen jullie er nu wel naar kijken nu het er netjes uitgelijnt en in code staat?

[0siris]

Op maandag 07 januari 2002 17:46 schreef Tja het volgende:
...THENBEGIN...

Dat gaat niet werken denk ik
Maar lijn het eens even uit (karaktertje of 80 per regel enzo). En haal de rest van de syntaxfouten er ook even uit, want dit krijg je natuurlijk niet gecompileerd

[Nielsz]

Op maandag 07 januari 2002 18:04 schreef Tja het volgende:
Willen jullie er nu wel naar kijken nu het er netjes uitgelijnt en in code staat?

Wat gaat er fout dan?
_{* raapt zichzelf op *}

[0siris]

reset kun je niet gebruiken zoals je het nu gebruikt, en dingen als

code:

writeln (hoi);

gaan ook niet zo (in les 1 hoofdstuk 1 staat hoe het wel moet, bij "Hello World"), das alvast een begin.

[Verwijderd]

Op maandag 07 januari 2002 18:06 schreef Nielsz het volgende:

[..]

Wat gaat er fout dan?
_{* raapt zichzelf op *}

Er gaat niks fout, we komen er gewoon niet meer uit hoe we de rest moeten doen.

[the_dgc]

Op maandag 07 januari 2002 17:46 schreef Tja het volgende:

[..]

code:

PROGRAM ca (cijfers);
VAR regel, s, v : char;
      w, i, l, k : integer;
      c : real;
      cijfers, hulp : text;
PROCEDURE menu (VAR k: integer);
   BEGIN
writeln(Keuzemenu:);
writeln(1. Invoeren    2. Wijzigen);
writeln(3. Verwijderen    4. Stoppen);
write(Uw keuze is: );
      REPEAT
readln(k);
UNTIL (k > 0) AND (k < 5);
   END;
BEGIN
menu(k);
reset(cijfers);
rewrite(hulp);
WHILE NOT eof(cijfers) DO
BEGIN
      readln(cijfers, regel);
      writeln(hulp, regel);
END;
IF k = 1
THEN BEGIN
         writeln(Voer een 7 cijferige ID code in         gevolgd door een spatie, dan de leeftijd van       de student gevolgd door een spatie, dan het     cijfer gevolgd door een spatie en dan de         vakcode.);
         readln(i, l, c, v);
         writeln(hulp, i, l, c, v);
      END;
IF k = 2
THEN BEGIN
         writeln(Voer de ID code in van de te        wijzigen record.);
         readln(w);
END;
IF k = 3
THENBEGIN 
         writeln(Verwijderen is gekozen);
END;
IF k = 4
THEN writeln(Bezig met afsluiten);
END.

ok wat deed het programma nu precies??

volgens mij helemaal niets want het is op de manier van een bat programma geschreven

[0siris]

Op maandag 07 januari 2002 18:15 schreef Tja het volgende:
[..]Er gaat niks fout,

dat KAN gewoon niet, of jij hebt een heel andere compiler dan ik

[Verwijderd]

Ummmm misschien kan je beter gebruik maken van records?

TYPE

Config=RECORD
Nummer : longint;
Naam : String[21];
End;

Var Setup:Config;

Procedure Saveconfig;
Var F:File;
BEGIN
ASSIGN(f,'Adres.Cfg');
REWRITE(f);
RESET(f,1);
Blockwrite(f,Setup,SIZEOF(Setup));
CLOSE(f);
END;

Procedure Loadconfig;
Var F:File;
BEGIN
ASSIGN(f,'Adres.Cfg');
RESET(f,1);
Blockread(f,Setup,SIZEOF(Setup));
CLOSE(f);
END;



En nou jij

[the_dgc]

Op maandag 07 januari 2002 18:16 schreef 0siris het volgende:

[..]

dat KAN gewoon niet, of jij hebt een heel andere compiler dan ik

dat dacht ik ook al
want dat is puur de taal die in batch progies staat dus er zijn 2 mogelijk heden
1 of hij denkt dat ie het over pascal heeft
2 hij heeft geen pascal compiler

[Verwijderd]

Okee laat maar zitten, ik zie dat het in een TXT format
moet."

'K werd net ff enthousiast over die goeie oude Pascal tijd..

[Verwijderd]

Op maandag 07 januari 2002 18:33 schreef the_dgc het volgende:

[..]

dat dacht ik ook al
want dat is puur de taal die in batch progies staat dus er zijn 2 mogelijk heden
1 of hij denkt dat ie het over pascal heeft
2 hij heeft geen pascal compiler

Ik heb je gemailt!!

[the_dgc]

Op maandag 07 januari 2002 19:00 schreef Tja het volgende:

[..]

Ik heb je gemailt!!

ok ik heb je mailtje
welk programma gebruik jij voor het compilen van het progje?

[Verwijderd]

Via telnet bel ik in op de Sun server en van daaruit gebruik ik Vi Editor

Ps via icq doen? Is misschien handiger, ik heb je al geadd!

[whoami]

Op maandag 07 januari 2002 18:01 schreef Nielsz het volgende:

[..]

Kan best in pascal gebakken worden

Heb hier zo een beetje een déjà-vu'tje

[the_dgc]

ok het is voor zover opgelost

[RickN]

Op maandag 07 januari 2002 schreef Tja het volgende:
[..](JA, WE WETEN HET )
[..]

Wow, jij bent zeker te 1337 voor Pascal

Ik werk liever met andere talen

Andere talen nog wel.... wauw!

Maar als jij zoveel talen spreekt dan moet zo'n makkelijk programmatje in zo'n makkelijke taal als pascal toch geen probleem zijn...

[RickN]

sorry, dubbel

[Pelle]

Op dinsdag 08 januari 2002 00:38 schreef RickN het volgende:
Andere talen nog wel.... wauw!

Maar als jij zoveel talen spreekt dan moet zo'n makkelijk programmatje in zo'n makkelijke taal als pascal toch geen probleem zijn...

Inderdaad. Dit ziet eruit als een schoolopdracht. En als het goed is hebben ze je op school ook geleerd hoe je een PSD maakt (nee, dat is ook de extensie van een photoshopfile, maar ik doel hier vooral op een program structure diagram).
Ga daar nou eerst eens mee aan de slag, of -desnoods- in een andere taal waarin je het wel zou lukken. Vertaal dat naar een PSD, en zet dat dan weer om in Pascal code.

Verder is het trouwens ook zo dat die leraren er niet voor niets zijn; als je ergens niet uitkomt dan kun je ze altijd mailen enzo, want daar zijn ze voor.

[Yucko]

(Dit is een reactie op een andere thread, welke ook van Tja is, maar helaas gesloten werd voor ik kon reageren)

En tevens wil ik ff mijn verontschuldigingen aanbieden voor het vern@#$ken van de layout.



Tja,

mag ik je ff erop wijzen dat de manier waarop jij je code intikt op oorlog slaat ???

Dat je daar nog fouten uit kan halen valt me 100% mee.

Ik heb uit die andere thread ff je code geplukt en ben hem nu ff een beetje aan het opschonen qua opmaak want tjonge jonguh ... als ik je leraar was, liet ik je het gvd opnieuw doen.

Maar goed, ik ben bijna zover, en heb al menig kleine foutjes eruit gehaald en ga kijken of ik mijn Turbo Pascal nog kan vinden om de code te testen. Eventuele fouten herstel ik dan voor je, ik plaats de code en dan mag je zelf proberen te zoeken aan de hand van je originele code, waar de fouten precies zaten.

Probeer in het vervolg ff te letten op de volgende fouten

code:

 IF blablabla ;
 THEN

maak hiervan voortaan

code:

 IF blablabla THEN
  ....

en indien dan meer dan 1 commando's volgen, gebruik maken van BEGIN en END en niet gewoon hetvolgende doen

code:

 IF blablabla;
 THEN
  writeln('zut prut en andere crap');
  readln(a);
 END;

of zoiets, want ik krijg hier echt neigingen van.




Owkee,

hieronder dan de (als het goed is) gecorrigeerde code van DEZE thread.

Ik heb hem door Turbo Pascal geragt en op 2 plaatsen {som := som + cijfer} moeten doen omdat TP van Borland het niet pikt als je zomaar INTEGER = INTEGER + REAL wilt doen. Maar voor de rest pikt de compiler geen fouten op, en lijkt ie te runnen (totdat er een niet bestaande file geopend moet worden om te lezen )
Syntaxtisch dus in orde, nu nog afwerken door file invoer en uitvoer aan te geven e.d. want dat is nog niet gedaan.

code:

PROGRAM cijferadministratie (cijfers, output, input);

CONST afsluiter = 0;

VAR mutcode, idcode, leeftijd, som, aantal : integer;
                     gem, cijfer : real;
                     vak, opgave : char;
                 cijfers, hulpfile : text;

PROCEDURE menu(VAR mutcode : integer);
BEGIN
  writeln('Cijferadministratie');
  writeln;
  writeln;
  writeln('Keuzemenu');
  writeln;
  writeln('Toets 1 voor het invoeren van cijfers.');
  writeln('Toets 2 voor het wijzigen van de cijfers.');
  writeln('Toets 3 voor het verwijderen van cijfers.');
  writeln('Toets 4 om de gemiddelden te bekijken.');
  writeln('Toets 5 om af te sluiten.');
  REPEAT
    BEGIN
    write('U wenst: ');
    readln(mutcode);
    END;
  UNTIL ((mutcode >= 1) AND (mutcode <= 5));
END;

BEGIN
  menu(mutcode);
  IF mutcode = 1 THEN
    BEGIN
    reset(cijfers);
    rewrite(hulpfile);
    read(cijfers, idcode, leeftijd, cijfer, vak);
    WHILE idcode <> afsluiter DO
      BEGIN
        write(hulpfile, idcode, leeftijd, cijfer, vak);
        read(cijfers, idcode, leeftijd, cijfer, vak)
      END;
    BEGIN
      write('Voer de id-code van de student in: ');
      readln(idcode);
      write(hulpfile, idcode);
      write('Voer de leeftijd in: ');
      readln(leeftijd);
      write(hulpfile, leeftijd);
      write('Voer het behaalde cijfer in: ');
      readln(cijfer);
      write(hulpfile, cijfer:3:1);
      write('Voer het betreffende vak in: ');
      readln(vak);
      write(hulpfile, vak);
    END;
    writeln(hulpfile, afsluiter:1);
    reset(hulpfile);
    rewrite(cijfers);
    REPEAT
      read(hulpfile, idcode, leeftijd, cijfer, vak);
      write(cijfers, idcode, leeftijd, cijfer:3:1, vak);
    UNTIL (idcode = afsluiter)
    END;
  IF mutcode = 2 THEN
    BEGIN
    reset(cijfers);
    rewrite(hulpfile);
    read(cijfers, idcode, leeftijd, cijfer, vak);
    WHILE idcode <> afsluiter DO
      BEGIN
        write(hulpfile, idcode, leeftijd, cijfer, vak);
        read(cijfers, idcode, leeftijd, cijfer, vak);
      END;
    BEGIN
      reset(hulpfile);
      rewrite(cijfers);
      WHILE NOT eof(hulpfile) DO
        BEGIN
        readln(hulpfile, idcode, leeftijd, cijfer, vak);
        writeln('Idcode: ', idcode, 'Leeftijd: ', leeftijd, 'Cijfer: ', cijfer, 'Vak: ', vak);
        writeln;
        writeln('Maak uw keuze: ');
        writeln('1: Overnemen ');
        writeln('2: Wijzigen ');
        REPEAT
          write(' Uw keuze is: '); readln(mutcode);
        UNTIL (mutcode >= 1)  AND (mutcode <= 2);
        CASE mutcode OF
          1: writeln(cijfers, idcode, leeftijd, cijfer, vak);
          2: BEGIN
             write(' Nieuwe idcode : ');
             readln(idcode);
             writeln(cijfers, idcode);
             write(' Nieuwe leeftijd: ');
             readln(leeftijd);
             writeln(cijfers, leeftijd);
             write(' Nieuw cijfer: ');
             readln(cijfer);
             writeln(cijfers, cijfer);
             write(' Nieuw vak: ');
             readln(vak);
             writeln(cijfers, vak);
             END;
        END;
        END;
    END;
    END;
  IF mutcode = 3 THEN
    BEGIN
    reset(cijfers);
    rewrite(hulpfile);
    read(cijfers, idcode, vak, cijfer);
    WHILE idcode <> afsluiter DO
      BEGIN
        write(hulpfile, idcode, vak, cijfer);
        read(cijfers, idcode, vak, cijfer);
      END;
    BEGIN
      reset(hulpfile);
      rewrite(cijfers);
      WHILE NOT eof(hulpfile) DO
        BEGIN
        readln(hulpfile, idcode, leeftijd, cijfer, vak);
        writeln('Idcode: ', idcode, 'Leeftijd: ', leeftijd, 'Cijfer: ', cijfer, 'Vak: ', vak);
        writeln;
        writeln('Maak uw keuze: ');
        writeln('1: Overnemen ');
        writeln('2: Wijzigen ');
        REPEAT
          Write(' Uw keuze is: '); readln (mutcode);
        UNTIL (mutcode >= 1)  AND (mutcode <= 2);
        CASE mutcode OF
          1: writeln(cijfers, idcode, leeftijd, cijfer, vak);
          2:
        END;
        END;
    END;
    END;
  IF mutcode = 4 THEN
    BEGIN
    writeln('Maak uw keuze: ');
    writeln('Toets 1 om het totaal gemiddelde cijfer te zien.');
    writeln('Toets 2 om het aantal leerlingen per vak te zien..');
    writeln('Toets 3 om het gemiddelde cijfer van een vak te zien.');
    REPEAT
      BEGIN
        write('Uw keuze is: ');
        readln (mutcode);
      END;
    UNTIL ((mutcode >= 1)  AND (mutcode <= 3));
    CASE mutcode OF
      1: BEGIN
         WHILE NOT eof(hulpfile) DO
           BEGIN
             readln(hulpfile, idcode, leeftijd, cijfer, vak);
             som := som + cijfer;
             aantal := aantal + 1;
           END;
         gem := som / aantal;
         write('Het totale gemiddelde is: '); write(gem);
         END;
      2: BEGIN
         write('Geef de vakcode op: '); readln(opgave);
         WHILE NOT eof(hulpfile) DO
           BEGIN
             readln(hulpfile, idcode, leeftijd, cijfer, vak);
             IF vak = opgave THEN
             aantal := aantal + 1;
           END;
         write('Het aantal student voor dit vak is: '); write(aantal);
         END;
      3: BEGIN
         write('Geef de vakcode op: '); readln(opgave);
         WHILE NOT eof(hulpfile) DO
           BEGIN
             readln(hulpfile, idcode, leeftijd, cijfer, vak);
             IF vak = opgave THEN
             BEGIN
               som := som + cijfer;
               aantal := aantal + 1;
             END;
           END;
         gem :=  som / aantal;
         write('Het gemiddelde cijfer voor dit vak is: '); write(gem);
         END;
    END;
    END;
  IF mutcode = 5 THEN
    BEGIN
    writeln('Bedankt voor het gebruiken van dit programma en tot ziens');
    writeln('Tja en Tja');
    END;
END.

Ennuh ... geen dank he ?!

[Verwijderd]

Op dinsdag 08 januari 2002 10:16 schreef JaJoah het volgende:

code:

......
    END;
  IF [b]mutcode = 5 THEN
    BEGIN
...
    END;
END.

Ennuh ... geen dank he ?!

mutcode

Ik herken de Dzon erin ja

[Yucko]

Op dinsdag 08 januari 2002 10:20 schreef Zoepnek het volgende:

[..]

mutcode

Ik herken de Dzon erin ja

Dzon, is dat ook van de Hogeschool Zuyd ?

Mja, iig ... ik heb die tik van de (destijds) Hogeschool Limburg (wat nu idd Zuyd is), maar ik had toen geen Dzon maar iemand anders. Kom ff niet meer op de naam