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'.

#2 gna
Promiň, mimo mísu...

Nedaří se mně jako novému čtenáři REGISTROVAT.

Mám na webu videogalerii, která běží už pár měsíců. Včera jsem ji musel vypnout, protože najednou hlásí, že "Žádný výběr". Viz. obrázek zde.

Doposud v settings nastavení jsem měl pro "maximum screnshot file" zobrazeno 150/MB a upload fungoval...

Kód: [Vybrat]
Vyčerpaná povolená velikost paměti 1073741824 bajtů (pokuseno alokovat 270336 bajtů) v /web/htdocs/www.nekecamweb.cz/home/www/infusions/videos/templates/videos.tpl.php na řádku 153
V php.ini mám
; https://php.net/memory-limit
memory_limit = 128M
Mám to odkomentovat?
file_uploads = On
upload_max_filesize = 2M
max_file_uploads = 20M

v.htacces mám:
php_value upload_max_filesize 11GB
# Soubory jsou odesílány POST, takže post_max_size musí být ještě větší.
php_hodnota post_max_size 12GB
# PHP přijímá soubory, takže tato hodnota musí být ještě větší
php_value memory_limit 15GB
Má někdo s tím zkušenosti,
Díky!

#1 Jarko
v pascalu jsem už hodně dlouho nedělal, ale tady něco je:

https://www.tutorialspoint.com/pascal/pascal_strings.htm

jinak nevim jestli je Lazarus to pravé ořechové, nechceš radši CodeGearRADStudio 12 ???

Je to stejný pascal a knihovna VCL pro windows nebo FX pro ostatní.

#2 gna
Lazarus mi spomínanú hlášku vypísal na riadku c:=StrToReal(Listbox1.Items[i]) a na riadku Label1.Caption:='Celková hodnota je'+RealToStr(h);

No  Listbox1.Items[i] by měl být objekt ne ? to není string, mám pocit že ti tam něco chybí ..

Listbox1.Items[i].Text ? nebo Listbox1.Items[i].ToString()  ? nebo něco takovýho já nemám teď nainstalovanej Lazarus a navíc sem v něm nikdy nedělal.

nechceš RadStudio 12 ? mám ho u sebe.

#7 JerryM
Items[] je string

#6 Jarko
To by chtělo vidět, jak to opravdu máš, takhle hádat je těžké. Já jsem teď zkusil přiřazení do nedeklarované proměnné a ta hláška je i s názvem, tak nechápu v čem je problém -- Identifier not found "asd"

#1 Jarko
pokud index pole začíná 0 tak max index je délka-1 tzn

for i:=0 to p-1 do

s i=p se na řádce 

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

se dostaneš mimo pole. ale to by se projevilo chybou při spuštění, ale při překladu asi ne, bude tam něco jiného,

šel bych nato od podlahy, všechny výpočetní řádky do poznámky a odznačovat jednu po druhé a po každé udělat překlad.