XII.E osztály
2006/2007. tanév
Programozási gyakorlat

Majdnem elfelejtkeztünk az elmúlt tanév egyik legjobban sikerült "pascal" programjáról!

A programozás alapismeretek gyakorlati óráimon az első "alap"-programok közé tartozik egy torta elkészítéséhez szükséges anyagok kiszámításának programja. (Kedvenc programozási tankönyvem Angster Erzsébet programozási feladatok Alap1 feladata) A csoportomban  csak egy fiú volt, de  ő is édesszájú, ezért gondoltam, ez egy könnyű feladat lesz a csoportnak.
Nézzük, hogyan is szólt pontosan a FELADAT, milyen PROGRAM-ot írt rá a csoport és mi lett FRIDEL ILDIKÓ végrehajtott LEFUTTATOTT PROGRAM-jának eredménye.

Adjuk meg egy piskóta méreteit -átmérőjét és magasságát-, valamint a rá teendő krém vastagságát cm-ben. Számoljuk ki, mennyi krémre van szükséga torta bevonásához, ha 5%-os ráhagyással dolgozunk (gyerekek is vannak a családban...)!

Program Alap1 ;
Var
    Atmero,
    Nagyatmero,
    Magassag,
    Kremvastagsag,
    Oldalkrem,
    Tetokrem,
    Osszkrem,
    Nyalakodnivalo : Real ;
Begin
    Write('A torta átmérője:');
    ReadLn(Atmero);
    Write('A torta magassága:');
    ReadLn(Magassag);
    Write('A krém vastagsága:');
    ReadLn(Kremvastagsag) ;
    Nagyatmero:=Atmero + 2 * Kremvastagsag ;
    Oldalkrem:=(Sqr(NagyAtmero / 2) - Sqr(Atmero / 2)) * Pi * Magassag ;
    Tetokrem:=Sqr(Nagyatmero/2)*Pi*Kremvastagsag ;
    Osszkrem :=Oldalkrem+Tetokrem;
    Nyalakodnivalo:=Osszkrem*0.05;
    Osszkrem:=Osszkrem+Nyalakodnivalo;
    WriteLn('A tortához szükséges krémmennyisége: ',Osszkrem:8:2,'cm3,vagyis',
                Osszkrem/1000:5:2,' liter');
    WriteLn('Ebből a gyerekeke',Nyalakodnivalo/1000:4:2,'liter');
ReadLn;
End.