Ohjelmointi (Pascal): 1. harjoitus 16.-20.9. =========================================== ENSIMMÄINEN HARJOITUS ON MIKROLUOKASSA D326 (D426)! ENSIN KOKOONNUTAAN KUITENKIN RYHMÄN VARSINAISEEN LUOKKAAN! Ensimmäisellä harjoitusviikolla ei ole varsinaisia kotitehtäviä. Läsnäolo tuottaa 'neljä merkittyä tehtävää'. Toteuta seuraavat ohjelmat Turbo-Pascalilla ja Sun/SPARC-Pascalilla. Jos sinulla ei vielä ole käyttäjätunnusta, tee tuo Sun-kokeilu omin päin myöhemmin. Molemmista järjestelmistä on erillinen pieni käyttöohje. Älä huolestu vaikka et vielä ihan ymmärtäisikään ohjelmien rakennetta ja toimintaa. Nyt harjoitellaan koneen käyttöä. 1. program hei(output); begin writeln('Hei maailma!') end. 2. Seuraavassa ohjelmassa on joitakin virheitä. Vaikka huomaisit niitä, kokeile, mitä kääntäjät niistä sanovat! Korjaa sitten virheet. Kokeile ohjelmaa kunnon syötteillä, kokonaisluvuilla tässä tapauksessa, ja myös virheellisillä syötteillä. Mitä järjestelmä sanoo niistä? program LaskeOnnenluku(input, output); var ika, kenka, onni : integer; begin write('Mikä on ikäsi?); readln(ika); write('Mikä on pituutesi?') readln(pituus); write('Mikä on kengännumerosi?'); readln(kenka); onni := (ika + pituus) div kenka; writeln writeln('Onnenlukusi on ', onni) end. 3. Toteuta seuraava ohjelma. Mitä se tekee? Minkä asian opit? program Kentta(input, output); var leveys: integer; merkki: char; begin writeln('Anna jokin merkki?'); readln(merkki); writeln('Anna pieni luku!'); readln(leveys); writeln(merkki:leveys); end. 4. Jos ehdit, kokeile omin päin edellisten tehtävien muokkaamista. Kiinnitä erityistä huomiota kääntäjien tapaan antaa virheilmoituksia ja virheellisten syötteiden aiheuttamiin virhetilanteisiin. ======================================================================= Kurssin harjoituksissa käytetään pääasiassa TurboPascal- ja Sun/SPARC- Pascalia. Edellinen löytyy PC-mikroista (sekä DOS- että Windows- käytössä), jälkimmäinen atk-keskuksen koneista myntti ja klaava. Myös Linuxin GNU-Pascalia, karhun HP-UX-Pascalia ja vesurin Digital/Unix-Pascalia voi käyttää.