Question

Prosty program na programowanie strukturalne obiektowe (psio)

Potrzebuję pomocy. Jest późna godzina a ja dzisiaj będę zaliczać psio z funkcji i procedur Żeby mieć na koniec 4. nie wiem czemu ale te dwie rzeczy są jedynymi, które mi stwarzają problemy.

Mam tu krótki programik który ma obliczyć pole kwadratu.

oto on:

program nazwa;
uses crt;
function kwadrat(a:integer):integer;
var pole:integer;
begin
pole:=a*a;
kwadrat:=pole;
end;
begin
clrscr;
writeln('podaj bok kwadratu: ');
readln(a);
writeln(' pole kwadratu wynosi ',kwadrat(a) );
readkey;
end.

Kiedy wybieram RUN, wyskakuje mi błąd "Error: Identifier not found "a" "

Nie wiem o co chodzi, raczej wszysto mam w porządku. Proszę pilnie o pomoc, to dla mnie ważne - dziękuję i pozdrawiam

Answer 1

zamiast readln(a) zrob readln(bok)

a zaraz po dekralacji uses crt

dodaj takie coś

 

var

bok : integer

 

i zamiast kwadrat(a) zrob kwadrat(bok)

 

i ty chcesz z tego 4 ???  przeciez to nawet na 3 sie nie nadaje