Rodin/BuclePentru

Am avut surpriza, experimentand interpretorul adaptabil modular pentru Rodin sa observ un fapt cel putin curios. Unele programe semnalau o eroare stranie la inceputul buclelor pentru, imediat dupa cuvantul cheie. Aparent problema era "(" sau spatiul care urma dupa pentru - daca el exista.

Un fenomen similar am constatat la unele surse si in cazul instructiunii daca. In realitate mesajul se referea la substructurile acestor structuri.

Exemplu:Transcriind un mic algoritm din cartea "68 de pagini de probleme rezolvate si teorie in Pascal" de pe www.referate10.ro (din Cap.1 de Prof. S.Groze, Prof. M.Frenţiu si colectiv. - Problema 1.1.2) in Rodin ....

 
"Algoritmul NRPITAGORICE este :
 Date n;	{n; pentru n<12 nu există triplete}
 Dacă n<12
   atunci Tipăreşte "Nu există numerele cerute"
   altfel Pentru S=12,n execută
            Pentru a=3,S/3 execută
              Pentru b=a+1,(S-a)/2 execută
                Fie c:=S-a-b;
                Dacă c=a+b atunci Tipăreşte(a,b,c) Sf-dacă
              Sf-pentru
           Sf-pentru
          Sf-pentru 	
 Sf-dacă
Sf-algoritm.
"

... am obtinut dupa o prima transcriere urmatorul program cu o mica eroare sintactica...

{text "Algoritmul NRPITAGORICE"; 
 citeste n;	
 daca n<12
   atunci text "Nu exista numerele cerute"
   altfel pentru(fie s=12; s<n; fie s=s+1)
            pentru(fie a=3; a<s/3; fie a=a+1)
              pentru(fie b=a+1;b<(s-a)/2;fie b=b+1)
                {fie c=s-a-b;
                 daca c==a+b atunci {scrie a; scrie b; scrie c} altfel 0;        
                }
              ;
            
          	
 
}

Mesajul de eroare semnala ca a treia bucla pentru ar fi avut paranteza initiala neasteptata. Totusi Rodin la celelalte bucle (exterioare), scrise sintactic la fel, nu semnala nici o eroare.

Concluzia: Eroarea trebuia cautata in corpul sau substructurile buclei.

Solutia: Daca nu observati eroarea, copiati cu CUT/COPY corpul buclei intr-un alt fisier si testati-l ca pe un program separat. Apoi il puteti lipi (Paste) inapoi.

Surpriza: Cu un corp vid {} acea bucla nu mai da nici o eroare de sintaxa. Si corpul buclei are o eroare usor de depistat, daca este scris ca un "program" separat.

Corpul buclei, extras separat si corectat:

{fie c=s-a-b;
 daca c==a+b
 atunci {scrie a; scrie b; scrie c;} ;        
}

Apoi dupa lipirea sa inapoi obtinem:

{text "Algoritmul NRPITAGORICE"; 
 citeste n;	
 daca n<12
   atunci text "Nu exista numerele cerute pentru n mai mic ca 12"
   altfel pentru(fie s=12; s<n; fie s=s+1)
            pentru(fie a=3; a<s/3; fie a=a+1)
              pentru(fie b=a+1;b<(s-a)/2;fie b=b+1)
                {fie c=s-a-b;
                 daca c==a+b
                 atunci {scrie a; scrie b; scrie c;} ;        
                }
              ;

}

Algoritmul intial provenea din cartea "68 de pagini de probleme rezolvate si teorie in Pascal" de pe site-ul acesta: www.referate10.ro. (Cap.1 este scris de Prof. S.Groze, Prof. M.Frenţiu si colectiv iar Problema purta numarul 1.1.2)

Iata si ideea algoritmului, in viziunea autorilor, textul de mai jos fiind doar usor modificat fata de cel din carte: "Vom nota cu s suma a+b+c. Se ştie că (3,4,5) este primul triplet de numere pitagorice. În acest caz s ia valori de la 12 la n. Deoarece 3a<s variabila a ia valori de la 3 la s/3. Apoi 2b<s-a deci b va lua valori de la a+1 la (s-a)/2. "

Nu uitati aceasta solutie: In caz ca nu gasiti eroarea, copiati bucla in alt fisier si depanati-o ca atare.

In fond vorbim despre limbaje pentru programare structurata . :)

---

Pagina in dezvoltare.

---

Sursele le gasiti in arhiva Rodin2009e-Linux.zip <Download>