Darmowe Forum

Procedura wymienia dane z wywoÂłujÂącym poprzez listĂŞ parametrĂłw, nie daje jednak moÂżliwoÂści zwrĂłcenia pojedynczej wartoÂści (liczby).
Dlatego w Pascalu wprowadzono pojecie funkcji. Jest ona rodzajem procedury, która po wywo³aniu zwraca obliczon¹ przez siebie wartoœÌ.

Function nazwa(lista_parametrĂłw):typ_wyniku;
{deklaracje staÂłych i zmiennych typĂłw}
Begin
{treœÌ funkcji, i przypisanie}
Nazwa:=obliczona_wartoœÌ_wyniku;
End;

PrzykÂład 1.

Program a1;
Var c, d:real;
function suma:real;
begin
suma:=c+d;
end;
Begin
Write(‘podaj  a =’);readln (c);
Write(podaj b= ‘);readln (d);
Writeln(’suma liczb wynosi  ‘,suma);
readkey;
End.

Zadanie 3. Program wykorzystuj¹cy twierdzenie Talesa do obliczenia wysokoœci budynku. Korzystaj¹c z trójk¹ta Talesa napisaÌ program który wyliczy wysokoœÌ budynku. a- d³ugoœÌ podstawy trójk¹ta, b- wysokoœÌ trójk¹ta, c- odleg³oœÌ od budynku, d- wysokoœÌ budynku (do obliczenia).

program a1;
uses crt,dos;
var a,b,c:real;
function tales:real;
begin
tales:=b/a*c;
end;
begin clrscr;
a:=0.2;
write('Podaj w m b= ');readln(b);
write('Podaj odleglosc od obiektu c= ');readln(c);
writeln('Wysokosc budynku= ',tales:0:2, ' m');
readkey;
end.

Zadanie 4. Napisz program ktĂłry korzystajÂąc z  funkcji troj obliczy pole powierzchni trĂłjkÂąta wprowadzajÂąc z klawiatury dane: a - dÂługoœÌ podstawy trĂłjkÂąta, h - wysokoœÌ trĂłjkÂąta.

Zadanie 5.
program a1;
uses crt,dos;
var imie:string;
x,y:integer;
 procedure podaj;
 begin
 gotoxy(10,1);write('Podaj imie: ');readln(imie);
 end;

function ile: integer;
begin
ile :=length(imie);
end;
procedure slupek (ile:integer);
var x:integer;
begin
 for x:=1 to ile do begin
  gotoxy(20+y,20-x); write(chr(178));delay(300);
 end;
     end;

begin clrscr;y:=1;
 repeat podaj;slupek(ile);readkey;inc(y); until ile=10;

end.

program a2;
uses crt,dos;
var a,b:real;
function roznica:real;
begin
roznica:=a-b;
end;
begin
readkey;
end.
-----------------------------------------------------------------

program a2;
uses crt,dos;
var a,b:real;
function srednia:real;
begin
srednia:=(a+b)/2;
end;
begin
clrscr;
write('Podaj pierwsza zmienna: ');readln(a);
write('Podaj druga  zmienna: ');readln(b);
write('srednia z liczb: ',a:0:2,' ',b:0:2,' = ',srednia:0:2);
readkey;
end.
----------------------------------------------------------
program a2;
uses crt,dos;
var c,d:real;
function srednia(a,b:real):real;
begin
srednia:=(a+b)/2;
end;
begin
clrscr;
write('Podaj pierwsza zmienna: ');readln(c);
write('Podaj druga  zmienna: ');readln(d);
write('srednia z liczb: ',c:0:2,' ',d:0:2,' = ',srednia(c,d):0:2);
readkey;
end.

Zadanie 4. 4.04.2011

program r7;
uses crt,dos;
var x,y,z:real;
procedure dziel;
begin clrscr;
write('Podaj pierwsza liczbe: ');readln(x);
write('Podaj druga liczbe: ');readln(y);
end;

function dziela(a,b:real): real;
begin
if (b=0) then writeln('Nie dziele przez zerooooooooo!!!!!!') else
dziela:=a/b;
end;


begin
   dziel;write(dziela(x,y):0:2); readkey;
end.