Newsgroup: it.comp.os.linux.iniziare
Titolo: pascal

cercando di riesumare un mio vecchio programma Turbo Pascal usando Free 
Pascal, incappo in questo errore:
acu.pas(197,50) Error: Illegal assignment to for-loop variable "vv", 
ecco il contesto:
  procedure PAUSAX;
     var v, vvv, vv : integer;  <<<< non chiedetemi perché c'è vvv se 
poi non viene usato, non lo so
     begin
       for v:=1 to 900 do
       begin
       for vv:=1 to pausavviso*300 do vv:=vv+vv-vv;    <<<<    riga 
incriminata
       if keypressed then v:=900;
       if keypressed then tasto:=readkey; if tasto='0' then menu;
       end;
     end;
ora, potrei facilmente sostituire vv:=vv+vv-vv con altro (in fondo è 
solo per perdere tempo, non ricordo più perché non ho usato l'apposito 
comando Pascal che presumo esista), ma il problema è che tale uso 
ricorre anche in altre parti e non solo per rallentare l'elaborazione;
perché se era possibile in Turbo non lo è in Free?
come faccio ad aggirare il problema (gli è che in pratica ho dimenticato 
tutto del Pascal)?
r
-- 
if I were a good man
I'd understand the spaces between friends
[Roger Waters: If]
Ramapage: 
http://umpf.net/

 incriminata
forse non c'entra niente ma non è una tautologia?

 l'elaborazione;
non so come è scritto tutto l'algoritmo, mi attengo a quanto
hai postato:
- la variabile "vv" viene modificata da quell'assegnamento, e inoltre
  la usi come contatore per il ciclo. Ciò potrebbe essere anche un
  errore logico, non necessariamente "pratico", perché la variabile
  viene modificata. Non ricordo bene la precedenza degli operatori
  matematici in Pascal, ma effettuando una rapida sostituzione con
  valori numerici, quell'assegnamento dà (con vv=2):
	vv := 2+2-2 -- se fosse eseguita per prima la sottrazione si
  deduce che non ha senso ;)
Se invece viene eseguita per prima la somma e poi la sottrazione,
allora si vede che serve a qualcosa, e quindi me ne scuso

 allora si vede che serve a qualcosa, e quindi me ne scuso
Potresti spiegarti meglio?
vv:= (2+2)-2 --> 4-2 --> 2
vv:= 2+(2-2) --> 2+0 --> 2
Per qualunque valore di vv, ovviamente.
-- 
 . ''`.  Debian maintainer | 
http://wiki.debian.org/DavidPaleino
 : :'  : Linuxer #334216 --|-- 
http://www.hanskalabs.net/
 `. `'`  GPG: 1392B174 ----|---- 
http://snipr.com/qa_page
   `-   2BAB C625 4E66 E7B8 450A C3E1 E6AA 9017 1392 B174

 Per qualunque valore di vv, ovviamente.
ops, vero, in entrambi i casi; chissà che conti ho fatto per la
somma...

 forse non c'entra niente ma non è una tautologia?
certo, come dicevo è solo per prendere tempo, in pratica vv rimane vv, 
non è questo il punto, ma che Free non mi permette di operare su vv 
mentre Turbo sì e in altri cicli la cosa mi sarebbe indispensabile;
in ogni caso sto vedendo che dovrei riscrivere tutto da zero (nat. non 
ho messo nessun commento quindi non so che diavolo faccia esattamente 
una procedura) e reimparare il Pascal, quindi mi sa che lascio 
perderere, nel caso installerò Win 95 in cui il programma andava, magari 
in Virtualbox;


      end;
non vedevo codice TP da 15 anni, mi hai fatto venire il magone!
ps: a che servono due if sulla stessa condizione? (risposta: a niente!) 

 ps: a che servono due if sulla stessa condizione? (risposta: a niente!) 
criticone ;-P
ho mai detto di essere o essere stato un programmatore?
a quanto intuisco non sapevo come cavarmela per far sì che premendo un 
tasto si uscisse dal ciclo e contemporaneamente se il tasto era "0" si 
richiamasse la procedura menu;
r
-- 
il primo sito tutto italiota sui Pentangle:
http://digilander.libero.it/pentangle
Ramapage: 
http://umpf.net/

 perdere 
ma ho la testa dura, quindi ho installato Free Pascal e Lazarus, solo 
che il semplice
  program punto;
{$mode objfpc}{$H+}
uses
   Graph;
begin
   PutPixel(4,4,green);
end.
non si compila, dando quest'errore:
/usr/bin/ld: errno: TLS definition in /lib/libc.so.6 section .tbss 
mismatches non-TLS reference in /lib/libvga.so
/lib/libc.so.6: could not read symbols: Bad value
a1.lpr(10,1) Error: Error while linking
a1.lpr(10,1) Fatal: There were 1 errors compiling module, stopping
è una questione di librerie o devo settare qlc in Lazarus?
r
-- 
Alla fine tu sei stanco di queste distro sedicenti facili
Solo la Slackware è rimasta tutta nuova la Slackware
E' rimasta semplice come gli hangar dell'aeroporto
[Apollinaire, Zona]
Home Page, The Pentangle, I Salon di Baudelaire: 
http://www.umpf.net

 ma ho la testa dura, quindi ho installato Free Pascal e Lazarus, 
non vanno proprio, vabbe' in Win sono riuscito a far andare il vecchio 
sorgente prendendolo a martellate;
un solo problema: il run in TurboPascal7 va, così come 
compilazione/build, solo che l'eseguibile mi dà un runtime error, boh;
mi sa che dovrei passare a C e usare kdevelop, c'è un testo in IT per 
noi principianti e che tratti anche di grafica? niente di complicato, in 
pratica si tratta solo di punti colorati;
r
-- 
il debito pubblico va in prescrizione
come il finanziamento illecito e la corruzione?
Ramapage: 
http://umpf.net/

 pratica si tratta solo di punti colorati;
]zac[
kdevelop richiede che si conoscano le varie classi/api che kde rende
disponibile (sono discretamente documentate).
Se cerchi qualcosa di molto più facile, almeno per gli inizi, conviene
lanciare (mi pare anche kdevelop) qtdesigner (o simile).
Volendo si può anche prendere spunto dal codice generato da qtdesigner.

 Volendo si puÃ² anche prendere spunto dal codice generato da qtdesigner.
ok, allora mi basterebbe un manuale C? quale?
ricordati che sono a zero, conoscevo solo un po' di Pascal ma non lo uso 
da una decina d'anni;
r
-- 
Occidente Occidente
alla guerra alla gloria alla storia
[da Ko de mondo, CSI 1994]
Baudelaire e l'arte: 
http://umpf.net/

 ok, allora mi basterebbe un manuale C? quale? 
fortunatamente sembra che potrò evitare la faticaccia;
sono riuscito a far andare il programma in XP, anche se c'è ancora qlc 
da sistemare;
potreste darmi una mano? mi interessa controllare se gira o no su altre 
macchine con XP (io ho la prima edizione senza service pack -non credo 
influisca il tipo di scheda dato che la grafica è la semplice VGA a 16 
colori) e, già che ci siamo, in Vista;
lo trovate qui: 
http://www.umpf.net/ramapage/acu.rar
 si tratta di un 
centinaio di KB, lo scompattate dove volete e poi cliccate su acu.exe;
tnx,
r
-- 
That is not it at all,
That is not what I meant, at all.
[The Love Song of J. Alfred Prufrock]
Ramapage: 
http://umpf.net/

 da una decina d'anni;
A zero come conoscenza di c e c++? aghh ... non ne esci vivo.
Oltre ai pacchetti kde-devel e qt-devel che di solito installano anche la
documentazione html ti serve un qualche c/c++ per principianti .... auguri.
Forse ti conviene usare qualche progetto tipo gambas che sono dei progetti
per sviluppare in un ''''baswic linguaggio''''.

 centinaio di KB, lo scompattate dove volete e poi cliccate su acu.exe;
]zac[
Un emulatore aiuterebbe, forse basterebbe anche wine.
Io l'ho lanciato su vista con esecuzione emulazione per xp sp2, e sembra
funzionare tutto.

 funzionare tutto.
ottimo, grazie;
r
-- 
Automi Cellulari Unidimensionali 3.7 per Windows con qlc particolare da 
sistemare:
http://www.umpf.net/ramapage/acu.rar
 (117KB, basta scompattarlo e 
cliccare su acu.exe)


 A zero come conoscenza di c e c++? aghh ... non ne esci vivo.
fortunatamente sono riuscito a far andare il programma in XP;
certo sarebbe bello farne la versione Kacu per Linux, ma imparare un 
linguaggio per un solo programmino mi sembra un po'esagerato;
r
-- 
Automi Cellulari Unidimensionali 3.7 per XP e Vista con qlc particolare 
da sistemare:
http://www.umpf.net/ramapage/acu.rar
 (117KB, basta scompattarlo e 
cliccare su acu.exe)
Home Page, The Pentangle, I Salon di Baudelaire: 
http://www.umpf.net