36

Zá klady programovania – Turbo Pascal

4. Je tu však ešte jedno obmedzenie, ak zadá me N aj X nula, tak má program ozná miť: „0 na 0-tú ta nedefinovane!“, inak má „normá lne“ počí ť – teda vetvenie.

program MOCNINA; uses crt; var X, MOCNINA : real; N, I, PDM : integer; begin clrscr; write(’Zadaj zaklad mocniny a exponent: ’); readln(X,N); write(’Zadaj pocet desatinnych miest vystupu: ’); readln(PDM); if (X=0) and (N=0) then writeln(’0 ma 0-tu nedefinovane!’) else begin MOCNINA:=1; for I:=1 to N do MOCNINA:=MOCNINA*X; writeln(X:PDM+2:PDM,’ na ’,N,’ = ’,MOCNINA:PDM+2:PDM) end; readln end.

Prí klad CFR-4: Vytvorte program na vý počet aritmetické priemeru n reá lnych čí ho sel. Analý za: Sná ď všetci vieme, že aritmetický priemer sa vypočí ako sú čet daný ch n čí delený počtom ta sel všetký ch čí t.j. n. Program si má vypý tať n reá lnych čí a sčí ť ich, preto cyklus s „prí sel, sel ta kazmi“: zadaj číslo a k čiastočné sú čtu pripočítaj novéčíslo. Toto sa má zopakovať pre n čí teda n-krá t. Takže cyklus mu sel, so zná mym počtom opakovaní – prí for. kaz V programe sme namiesto premennej n pou žili premennú POCET a ošetrili sme aj prí pad, keďbude zadaný počet čí 0 - program by bez ošetrenia skončil chybový m hlá sení Delenie nulou! sel m:
program PRIEMER; uses crt; var I, POCET : integer; X, SUCET : real; begin clrscr; write(’Zadaj pocet cisel: ’); readln(POCET); SUCET:=0; for I:=1 to POCET do begin write(I:2,’. cislo: ’); readln(X); SUCET:=SUCET+X end; if POCET>0 then writeln(’Priemer zaokruhleny na stotiny: ’,SUCET/POCET:4:2); readln end.

Ď alšie ú lohy aj na prí for sú uvedenév kapitole Ď alšie zaují éú lohy. kaz mav