Iemand met kennis van cobol gezocht ;)

Mja, ksnap dus maar de helft van da programma, en we hebben een oef gekregen voor’t school. En ben zo begonnen, en heb iets in elkaar gestoken, hoewel het merendeel fout is :wink: Hieronder volgt de opgave , kzal er ook datgene bijzetten wat ik er van gebakken heb en da is gene vetten :stuck_out_tongue: Is er iemand die me kan helpen , astemblief :smiley:


Oefening  1 . 		LIVING  EN  KEUKEN


A. Probleemdefinitie :

-	aan het scherm geef je de LENGTE en de BREEDTE  (in meter)  in ; eerst van de living,  nadien van de keuken  ( volgens  lay-out-invoer)

-	vervolgens moet de computer de OPPERVLAKTE   van  de living en van de keuken berekenen ( in vierkante meters). Tevens moet de  GEMIDDELDE  OPPERVLAKTE (afgerond op de m²  )  van de 2 kamers samen  worden berekend.

-	Daarna worden de  resultaten van die berekeningen  getoond  op het scherm  (zie  lay-out-uitvoer)



B. LAY-OUT   INVOER

Invoer  AFMETINGEN


LIVING : lengte	: -- meter		KEUKEN  :  lengte	: -- meter
                 breedte      : -- meter			          breedte	: -- meter





C. LAY-OUT   UITVOER


EINDRESULTATEN


Oppervlakte  :  LIVING	: ---  m²
                         KEUKEN	: ---  m²

	
Gemiddelde  oppervlakte	: ---  m²



OPM.	als we de resultaten bekeken hebben, drukken we op een willekeurige toets . Hierdoor eindigt het programma.

mijn wanhoopspoging die verre van juist is :wink:


  IDENTIFICATION DIVISION.
       PROGRAM-ID.                      program-name.
       INSTALLATION.                    comment-entry.
       DATE-WRITTEN.                    1998/02/XX - 99:99:99.
       DATE-COMPILED.                   1998/XX/XX - 00:00:00.
      ******************************************************************
      *auteur: ikke*
      ******************************************************************
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.                 computer-name.
       OBJECT-COMPUTER.                 computer-name.
 

      *****************************************************************
       DATA DIVISION.

       WORKING-STORAGE SECTION.
       77  Lengte1                         pic 9(4).
       77  Lengte2                         pic 9(4).
       77  Breedte1                        pic 9(4).
       77  Breedte2                        pic 9(4).
       77  Opp                             pic 9(4).
       77  Gem                             pic 9(4).
       77  Wacht                           pic x.

      ******************************************************************
       PROCEDURE DIVISION.
       0-overzicht
           perform 1-invoer
           perform 1-bereken
           perform 1-uitvoer
           stop run.

       1-invoer.      
           display spaces  erase screen
           display "invoer gegevens"               at
           display "Living Lengte :    m"          at
           display "Living Breedte :   m"          at
           display "Keuken Lengte :    m"          at
           display "Keuken Breedte :   m"          at
           accept Lengte1                          at
           accept Lengte2                          at
           accept Breedte1                         at
           accept Breedte2                         at

       1-bereken.
           compute som = Lengte1 x Breedte1 .
           compute som = Lengte2 x Breedte2 .

       1-uitvoer.
           display space erase screen
                   "De opp vd keuken is "

           
      

enige hulp zou welkom zijn :slight_smile: de oplossing des te beter :stuck_out_tongue:

alllé wizkids in action :confused:

:confused:

Geven ze nog steeds Cobol op scholen??? Raarrrrr…

Maar eh, ik kan je niet helpen, heb wel een vak Cobol gehad op school, maar dat tentamen heb ik per ongeluk gehaald… (open boek tentamen, tentamen bestaat uit vragen die achter in het boek staan, oplossingen staan ook achterin het boek… 1+1=2, dus tentamen gehaald zonder ooit maar wat aan Cobol te hebben gedaan.)

He,

Cobol heb ik een jaar of 12 geleden gehad op school maar toen snapte ik het niet en nu ook nog steeds niet!

Sorry kan je niet helpen.

Grtz

Tja als je het naar C/C++/Java/Pascal etc etc zou kunnen omzetten dan kon ik je wel helpen… maar Cobol?..

i know, its 1 hell of a shitty language

is het niet medefreakers :wink:

Zeker weten. Misschien moet je eens een nieuwsgroep of zo opzoeken. Andere forums (doodzonde, ik weet het ;)) hebben mogelijk wel COBOL-experts. Zou je wel willen helpen, maar om op een dag nu een nieuwe computertaal te leren, nee hoor :slight_smile:

hehe, na lang puzzel werk ben ik zelf eindelijk tot de juiste oplossing gekomen alma goe pffffff:eek: