moje zadanie je
Vytvorte procedúru pre výpočet obvodu a obsahu obdĺžnika. Potrebné vstupné údaje budú
procedúre predané ako parametre predávané hodnotou a výsledné hodnoty budú vrátené
prostredníctvom parametrov predávaných odkazom. Procedúra nekomunikuje s užívateľom, iba
s hlavným programom. Hlavný program si od užívateľa vypýta potrebné vstupné údaje, zavolá
vykonanie procedúry a vypíše výsledný obvod a obsah na obrazovku.
najprv by som chel spravit len obsah aby som to lepssie pochopil
moj kod je taky ale nefunguje to, alebo mam to cele zle???
Kód: Vybrať všetko
program obsah;
var a,b,obsah:integer;
procedure vypocet(dlzka:integer; vyska:integer; var obsah:integer);
begin
obsah:=dlzka*vyska;
end;
begin
writeln('Zadajte stranu a:');
readln (a);
writeln('Zadajte stranu b:');
readln(b);
vypocet (a,b);
vypocet (obsah);
writeln(obsah);
readln;
end.
už mi to vynecháva, asi sa dám na balet