Ohjelmoinnin alkeet 173104

Harjoitus 4

1. Saat harjoituksissa vetäjältä oheisen ohjelman sähköisessä muodossa ja ohjeet, kuinka sitä käsitellään.

   program fibonacci (input, output);
   var last_fib, fib, temp, number, i: integer;
   begin
       last_fib := 1; fib := 1;
       write('Montako Fibonacci-lukua haluat: ');
       readln(number);
       number := abs(number);
       if number <= 2 then
           writeln('Kaksi ensimmäistä ovat kumpikin 1.')
       else begin
           writeln(' 1. luku on     1');
            writeln(' 2. luku on     1');
           for i := 3 to number do begin
               temp := last_fib;
               last_fib := fib;
               fib := fib + temp;
               writeln(i:2, '. luku on', fib:6)
           end
       end
   end.
   

2. Tee Pascal-ohjelma joka lukee kokeiden arvosanoja kokonaislukuina väliltä 0-10. Ohjelma tulostaa montako kappaletta oli erinomaisia (9-10), hyviä (7-8), tyydyttäviä (4-6) ja hylättyjä (0-3). Koetulosten lukumäärä ei ole ennalta määritelty. Käyttäjä kirjoittaa lopuksi negatiivisen luvun halutessaan lopettaa lukujen syöttämisen.

3. Tee Pascal-ohjelma joka auttaa sinua päättämään, lähdetkö tänään elokuviin. Elokuva kestää 2 tuntia ja lipun hinta on 7 euroa. Ohjelma kysyy seuraavat asiat:
   • Montako euroa saat kuukaudessa ?
   • Montako euroa ovat pakolliset menosi kuukaudessa ?
   • Paljonko sinulla on jäljellä kaverilta saamastasi lainasta ?
   • Montako tuntia sinulla on aikaa tänä iltana ?

   Ohjelma päättelee asian lähtötietojen perusteella ja tulostaa ohjeeksi jonkun seuraavista

   • Voit lähteä elokuviin tänään.
   • Ei tänään, mutta joskus myöhemmin kun aikaa löytyy.
   • Vasta ensi kuun palkkapäivän jälkeen.

4. Tee ohjelma, joka tulostaa syötteenä saamansa markkamäärän euroina. Ohjelman tulee tehdä muunnoksia niin kauan kuin käyttäjä haluaa. Toteuta ohjelma sekä alkuehtoisella että loppuehtoisella toistolauseella (siis kirjoita kaksi eri ohjelmaa).