Antoni M. Zaj czkowski: APP - Zadania. Podprogramy

6 kwietnia 2009

1

Zadanie.

Napisz funkcj Nie_Parzysta przyjmuj c warto True albo False w zale -

no ci od tego, czy jej argument (parametr) typu całkowitego jest odpowiednio liczb niepa-

rzyst , albo parzyst . Oto przykład wykorzystania tej funkcji.

Liczba : Integer

range

-99..99;

..
Put ("Liczba ");
Put (Liczba, 3);

if

Nie_Parzysta (Liczba)

then

Put (" jest nieparzysta");

else

Put (" jest parzysta");

end if

;

Zamie t funkcj na równowa n procedur Sprawdz_Czy_Nie_Parzysta oraz

ewentualnie zmie deklaracje i podany ci g instrukcji tak, e u ytkownik nie zauwa y zast -

pienia funkcji przez procedur .

Zadanie.

Napisa funkcj Suma_Kwadratow obliczaj c iteracyjnie sum kwadratów

pierwszych N liczb całkowitych dodatnich.

Zadanie.

Napisz funkcj Lucas obliczaj c - ty wyraz ci gu Lucasa okre lonego wzorem

,

,

.

Zadanie.

Maj c dan nagłówek funkcji Lucas

function

Lucas (N : in Positive )

return

Positive;

i fragment programu wypisuj cy pierwszych Ile_Wyrazow : Positive; tego ci gu

for

Licznik

in

1..Ile_Wyrazow

loop

Put (Licznik);
Set_Col(20);
Put (Lucas(Licznik));
New_Line;

end loop

;

Napisz nagłówek równowa nej procedury Oblicz_Lucasa i zmie podany fragment pro-

gramu tak, e u ytkownik nie zauwa y zmiany funkcji na procedur oraz zmiany p tli

for

na

p tl

while

. Zadeklaruj odpowiednie zmienne, je eli jest to potrzebne.

Antoni M. Zaj czkowski: APP - Zadania. Podprogramy

6 kwietnia 2009

2

Zadanie.

a) Napisa funkcj Znak wyznaczaj c znak argumentu typu Float tzn. znak +, je eli argu-

ment jest wi kszy od zera, znak – je eli argument jest mniejszy od zera i znak zero je eli

argument jest zerem.

b) Zamieni funkcj Znak na równowa n procedur Wyznacz_Znak i zmieni ewentual-

nie podane deklaracje i instrukcje tak, e u ytkownik nie zauwa y zamiany podprogra-

mów.

Zwró uwag na kolejno deklaracji.

function

Znak (Argument :

in

Float )

return

Character

is

..

end

Znak;

..
Plus :

constant

Character := '+';

Minus :

constant

Character := '-';

Zero :

constant

Character := '0';

Liczba : Float;
..

begin

Read (Liczba);
Ada.Text_Io.New_Line;

if

Znak (Liczba) = Zero

then

Ada.Text_Io.Put (Zero);

elsif

Znak (Liczba) = Plus

then

Ada.Text_Io.Put (Plus);

else

Ada.Text_Io.Put (Minus);

end if

;

end

Test_Znak;