Question

Witam.

Potrzebuję dokładne opisuje jak działa funkcja i procedura w programcie Turbo Pascal. Dzisiaj na lekcji napisaliśmy taki przykładowo program:

var

a,b:integer;

function NWD(a,b:integer):integer;

var

pom:integer;

begin

while (a<>b) do

begin

if a<b then

begin

pom:=a; a:=b; b:=pom;

end;

a:=a-b;

end;

NWD:=a;

end;

begin

writeln('Podaj liczby...');

readln(a,b);

writeln('NWD(',a,',',b,') = ',NWD(a,b));

NWD(a,b);

readln;

end.

Oczekuję, że ktoś mi wytłumaczy, po kolei, krok po kroku jak działa funkcja w TP.

Answer 1

function NWD(a,b:integer):integer;

var ,,,

begin

 

NWD:=... ;

 

end;

 

funkcja to taki cosiek co zwraca nam jakąś wartość zależy od typu.

może przyjmować teroetycznie nieskończenie wiele zmiennych, które nazywamy parametrami funkcji. Parametry funckcji wpisujemy między (...) jest nazwa zmiennych odzielonych przecikiem : i nazwa typu zmiennej

na końcu (gdzie kolwiek byle by było) funkcji musi nazwa_funkcji przyjmowac jakas wartosc.

działanie funkcji rozpoczyna się od begin do end;

zmienne deklarujemy przed begin, są one wykorzystywane lokalnie, czyli po wykonaniu funckji nie można pobrać z nich wartosci

 

i to chyba wsio

 

procedure NWD(a,b:Integer);

var ...;

begin

end;

 

procedura nie zwraca nam wartosci

może przyjmować teroetycznie nieskończenie wiele zmiennych, które nazywamy parametrami procedury. Parametry procedury wpisujemy między (...) jest nazwa zmiennych odzielonych przecikiem : i nazwa typu zmiennej

działanie funkcji rozpoczyna się od begin do end;

zmienne deklarujemy przed begin, są one wykorzystywane lokalnie, czyli po wykonaniu funckji nie można pobrać z nich wartosci

 

z funkcji/ procedur kożystam w programie wpisuja jej nazwe() w nawiasie wpisujesz po koleji zmienne, stałe wartości rodzielone przecinkiem.

 

kod który napisałaś wyznacza NWD

jbc masz PW