Ohjelmoinnin alkeet 173104

Harjoitus 1

Harjoituskerralla harjoitellaan Turbo Pascal 5.5-kääntäjän käyttöä. Tilaisuudessa kirjoitetaan esimerkkiohjelmia Pascal-kielellä, käännetään ne suoritettaviksi ohjelmiksi ja suoritetaan ohjelmat.

Harjoitukseen osallistumisesta saa harjoituspisteen.

Tehtävät:

1. Tehdään ohjelma, joka tulostaa seuraavan aforismin:

           Henkilölle, jonka ainoa työkalu on vasara,
           jokainen ongelma näyttää naulalta.
                         E. W. Dijkstra

   Allaoleva ohjelma toteuttaa tehtävän. Kirjoita ohjelma, käännä se suoritettavaksi ohjelmaksi ja suorita ohjelma.

   program aforismi (output);                                
   (*                                                        
           Aforismin tulostaminen                            
           30.11.84 Matti Meikäläinen                        
   *)                                                        
   begin                                                     
       writeln('Henkilölle, jonka ainoa työkalu on vasara,');
       writeln('jokainen ongelma näyttää naulalta.');        
       writeln('              E. W. Dijkstra')               
   end.
   

2. Kirjoita seuraava ohjelma, käännä ja suorita ohjelma.

   (*1*) program YmpyranAla (input,output);
   (*2*)  const PII = 3.14;
   (*3*)  var r: real;
   (*4*)  begin
   (*5*)     writeln;
   (*6*)     write ('Anna ympyrän säde: ');
   (*7*)     readln (r);
   (*8*)     writeln ('Ympyrän ala on ', PII * r * r;)
   (*9*)  end.
   

   Muuta ohjelmaa siten että se tulostaa tuloksen sopivan mittaiseen kenttään kahdella desimaalilla.

3. Seuraava ohjelma tulostaa kolmosen kertotaulun. Kirjoita ohjelma, käännä ja suorita ohjelma.

   (*1*) program Kertotaulu (output);
   (*2*) var kertoja: integer;
   (*3*) begin
   (*4*)    for kertoja := 1 to 10 do
   (*5*)        writeln(kertoja, ' * 3 = ', kertoja*3)
   (*6*) end.
   

   Laita kertoja seurantaan ja seuraa sen arvoja debuggerilla.