Søg
Avatar billede slinky Nybegynder
04. november 2004 - 21:44 Der er 10 kommentarer og
1 løsning

Procedure med formelle/aktuelle parametre

Hej

Jeg skal lave en procedure der beregner gennemsnittet af to tal. Den skal forsynes med en passende parameterliste, så al dataudveksling med omgivelserne foregår gennem parametre


Jeg er lige lidt fortabt... nogen der lige vil lave en??


Kristian
Avatar billede martinlind Nybegynder
04. november 2004 - 21:52 #1
procedure Test( Param : array of String );

Kig i hjælpen under open arrays der står alt om de mulighedder du har, du kan evt. parse en ( Sender : TObject; ..... ) den kan bruges til meget
Avatar billede arne_v Ekspert
04. november 2004 - 21:54 #2
function gns(a,b : double) : double;

begin
  gns := (a+b)/2;
end;

eller:

procedure gns(a,b : double; var c : double);

begin
  c := (a+b)/2;
end;
Avatar billede arne_v Ekspert
04. november 2004 - 21:55 #3
Nå mig og martin har ihvertfald fortolket spørgsmålet forskelligt !
Avatar billede slinky Nybegynder
04. november 2004 - 21:58 #4
hvordan kalder jeg så proceduren, hvis jeg fx vil bruge tallene 40 og 24
Avatar billede arne_v Ekspert
04. november 2004 - 22:00 #5
res := gns(40, 24);

eller

gns(40,24,res);

afhængig af om du vil bruge procedure eller function
Avatar billede slinky Nybegynder
04. november 2004 - 22:02 #6
hvorfor virker dette ikke?

procedure TForm1.Button1Click(Sender: TObject);

procedure gns(a,b : double; var c : double);

begin
  c := (a+b)/2;
end;

begin
gns(450,250,res)
edit1.Text:=floattostr(res)
end;

end.
Avatar billede slinky Nybegynder
04. november 2004 - 22:04 #7
den siger at res er en "undeclaret identifer", det burde den jo ikke sige, da man øverst har sagt at c er double... eller hvad?
Avatar billede arne_v Ekspert
04. november 2004 - 22:04 #8
procedure TForm1.Button1Click(Sender: TObject);

procedure gns(a,b : double; var c : double);

begin
  c := (a+b)/2;
end;

var
  res : double;

begin
  gns(450,250,res)
  edit1.Text:=floattostr(res)
end;
Avatar billede arne_v Ekspert
04. november 2004 - 22:05 #9
procedure TForm1.Button1Click(Sender: TObject);

procedure gns(a,b : double; var c : double);

begin
  c := (a+b)/2;
end;

var
  res : double; (* <---- *)

begin
  gns(450,250,res)
  edit1.Text:=floattostr(res)
end;
Avatar billede slinky Nybegynder
04. november 2004 - 22:13 #10
arne v.. smid et svar
Avatar billede arne_v Ekspert
04. november 2004 - 22:15 #11
svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 24/04/202609:43
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 02/12/202520:42
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:51 Creative Soundblaster Audigy FX v2 Af ErikHg i Andet hardware
27/0616:10 Tilbage til Outlook Klassisk design Af susalapi i E-mail programmer
27/0613:59 CRASH og så gik windows ud af vinduet og ret til helvede .... Af snestrup2000 i Windows
26/0621:22 Problem med "Explorer Patcher" (File Explorer i Win 11) Af ErikHg i Andet software
26/0611:14 Windows 10 forlænger 1 år til 12. Okt. 2027 Af Uvanga i Windows
White papers
Flere white papers »