i cicli: le cose ripetitive le può fare il computer

Scrivi una breve parola in  variabile ved indica quante volte la vuoi ripetere in nmax, poi premi "Calcola!": vedrai ripetere la tua parola.

  variabile 
  nmax   Numero di ripetizioni
 
 valore Ripetizione

 

Questa volta il lavoro lo facciamo in due passi: la cosa più facile è costruire il modulo (o form) di ingresso/uscita delle informazioni. Notiamo subito il comando onClick="valore.value=calcola();return false" che ci rimanda a sua volta ad un altro comando (calcola()) che dovremo definire altrove.

<form name="dati">
<input type="text"
       name="variabile"
              value="Ciao">
<input type="text" 
       name="nmax" 
              value="5">
<input type="Submit"
              value="Calcola!"
              onClick="valore.value=calcola();return false" >
</form>

Ora definiamo calcola()che viene richiamato dal modulo cliccando il pulsante di invio (Submit) delle informazioni.

Si tratterà di un programma (Script) in Javascript. La forma del programma è molto simile a quella di una definizione di funzione in Pascal.

<Script Language="JavaScript">
function calcola()
{
x="";
for (i=1;i<=Number(dati.nmax.value);i=i+1)
   {
         x=x+dati.variabile.value+"\n"
   };
return x;
}
</Script>

In Pascal la definizione di funzione suonerebbe molto simile (pensando a nmax e variabile come già definiti nel programma principale.

Al posto delle parentesi graffe vanno Begin e End, l'assegnazione del valore a calcola() va fatta con un return, si usano le virgolette doppie per il testo e poco altro.

Program Ripetizione;
var nmax:Integer;variabile:String;

function calcola():String;
var i:Integer;x:String;
Begin
x:='';
for i=1 to nmax do
   Begin
         x:=x+variabile;
   End;
calcola:= x;
End;

Begin {Programma principale}
nmax:=3;
variabile:='';
WriteLn(calcola());
End.

Per una guida al Turbopascal: www.guidainlinea.com (15kB)