Ohjelmoinnin alkeet 173104

Harjoitus 3

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

   program tuplat (input, output);
   var lkm, luku: integer;
   begin
       repeat
           write('Anna kierrosten lukumäärä: ');
           readln(lkm)
       until lkm > 0;
       while lkm > 0 do begin
           write('Anna jokin luku: '); readln(luku);
           writeln('Kaksi kertaa ', luku, ' on ', 2*luku);
           lkm := lkm - 1
       end
   end.
   

2. Tee ohjelma, joka lukee syötteinä käyttäjän painon (kiloina) ja pituuden (metreinä). Näiden tietojen perusteella ohjelma laskee ja tulostaa painoindeksin, joka saadaan laskettua kaavalla paino/(pituus*pituus), sekä ilmoittaa ko. henkilön painoluokan seuraavan taulukon mukaan:

   Painoluokka	Painoindeksin arvo
   Alipaino	alle 19
   Suositeltava paino	19-24
   Lievä liikapaino	25-29
   Merkittävä liikapaino	30-34
   Vaikea liikapaino	35-39
   Vaarallinen liikapaino	yli 40

3. Tee ohjelma, joka muuntaa lämpötiloja Celsius-, Fahrenheit- ja Kelvin-asteiden välillä. Ensin ohjelma pyytää muunnettavan astemäärän ja asteiden laadun (Celsius, Fahrenheit tai Kelvin). Tämän jälkeen ohjelma tulostaa annetut asteet alkuperäisessä muodossaan sekä muunnettuna muiksi asteiksi oheisen tulostusmallin mukaan:

   Asteiden muuntaminen. Anna muunnettava lämpötila asteina: 10 Anna asteiden laatu (C, F tai K): C 10.00 Celsius-astetta on 50.00 Fahrenheit-astetta ja 283.15 Kelvin-astetta.

   Ohessa on lausekkeet, joilla muunnokset lasketaan:

   Celsius --> Fahrenheit: 1.8 * asteet + 32
   Celsius --> Kelvin:     C + 273.15
   Fahrenheit --> Celsius: (asteet - 32)/1.8
   Fahrenheit --> Kelvin:  (asteet - 32)/1.8 + 273.15
   Kelvin --> Celsius:     asteet - 273.15
   Kelvin --> Fahrenheit:  (asteet - 273.15) * 1.8 + 32
   

4. Kirjoita ohjelma, joka tulostaa syötteenään saamasta kolmesta luvusta ensin suurimman, sitten keskimmäisen ja lopuksi pienimmän.