Lazarus Pascal – Pascal – Fórum – Programujte.com

Dobrý deň,

Chcel som vytvoriť program v jazyku Pascal v prostredí Lazarus na súčet viacej čísel. Tieto hodnoty som zadal do ListBoxu . Vlastný súčet som riešil pomocou cyklu nasledovne:

p:=Listbox1.Items.Count;

for i:=0 to p do

c:=StrToReal(ListBox1.Items[i]).

sum:=0

sum:=sum+1/c

h:=1/sum;

Label.Caption:="Celková hodnota je"+RealToStr(h);

end;

Pri preklade sa mi vypísala hláška" Identifier not found". Premenné som predtým deklaroval var i:Integer

                                                                                                                                                        c:Real;

                                                                                                                                                       sum:Real;

                                                                                                                                                        h:Real;

Chcel by som vedieť, kde som urobil chybu. Ďakujem.

V deklarovaných proměnných nevidím `p`. Tak to by mohlo být ono, ale Lazarus by ti měl ukázat, na kterém řádku ta chyba je, tak by nemělo být těžké to najít.

K tomu cyklu - když chceš spojít víc příkazů dohromady, tak je musíš uzavřít do begin-end. A tu proměnnou `sum` chceš vynulovat před cyklem, ne v něm pří každém průchodu. Takže takhle:

sum:=0
for i:=0 to p do
begin
  c:=StrToReal(ListBox1.Items[i]).
  sum:=sum+1/c
end;

A na konci Lazarus/FreePascal sice podporuje řetězce v uvozovkách, ale asi to není defautlně zapnuté a nejspíš budeš použít apostrofy - 'Celková hodnota je'.