Newsgroup: it.comp.lang.delphi
Titolo: esercizio di programmazione

Un saluto a tutti e grazie a chi voglia prestare attenzione al
seguente esercizio di programmazione (una cosa piccola per voi ma a
cui io non ho saputo dare una soluzione):
Qual è il codice che consente di ottenere il seguente risultato?
	Si chiede all'utente di digitare una cifra
		Digitata la cifra il programma restituisce la cifra al
quadrato e ripone la domanda
se si digita in luogo di una cifra numerica una lettera dell'alfabeto
il programma dice:
"Avendo digitato una lettera invece di un numero il programma finisce
qui"
e digitando qualsiasi cosa si esce dall'applicazione.

 seguente esercizio di programmazione 
Che esercizio e' se te lo fai fare?
--
I am what I am, I do what I can
Do. Or do not. There is not try.

 Che esercizio e' se te lo fai fare?
Quotissimo! ;)
-- 
Jax
====
Le cose più belle della vita o sono immorali, o sono illegali, oppure
fanno ingrassare. (George Bernard Shaw)

 Che esercizio e' se te lo fai fare?
Ma sopratutto: che esercizio è ?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

ma qual è il codice??????????????????????????????????????????
non lo so fare!

 non lo so fare!
Scusami per la crudezza, ma se non sai fare una stronzata del genere:
1) o studi
2) o lasci perdere la carriera di programmatore
-- 
Jax
====
Il parere della maggioranza non può essere che l'espressione
dell'incompetenza. (Réné Guénon)


wrote:
	Chiedo scusa, forse non mi spigo bene.
	Studio la materia informatica al primo superiore, non sono una
programmatrice e se ho sbagliato newsgroup, se qui non è ammesso un
livello al disotto di una certa soglia, basta specificarlo all'inizio
e tolgo il disturbo.
Io avevo pensato a questo:
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
      Cifra1: integer;
begin
        repeat
        writeln('Dammi la prima cifra');
        readln(Cifra1);
        writeln(Cifra1 * Cifra);
        writeln('Dammi un altra cifra');
        readln(Cifra1);
        writeln(Cifra1 * Cifra1)
        until
         {qui ci dovrebbe essere un'istruzione del tipo:
          <<Cifra1 è String>>}
        else
          write('chiudo');
      readln;
 
end.

 e tolgo il disturbo.
Siccome non ti sei qualificata all'inizio, e siccome il livello dei 
"soliti" è un po' più alto, sei stata fraintesa.
Per fare quello che dici tu io farei così: metterei un TEdit e un 
TButton sul form e nell'evento clic del TButton metterei:
TForm1.Button1Click(Sender: TObject);
begin
   try
     ShowMessage(StrToFloat(Edit1.Text) * StrToFloat(Edit1.Text));
     Edit1.Text := '';
   except
     MessageDlg('Errore nel numero', mtError, [mbOk], 0);
     // Chiude il form principale
     Form1.Close;
   end;
end;
Due componenti e una routine. Quello che avevi proposto tu somiglia 
molto a pascal, giusto?
	Marco Bortolani
	info @ 
marcobortolani.it

     ShowMessage(StrToFloat(Edit1.Text) * StrToFloat(Edit1.Text));
Azz: manca un cast:
     ShowMessage(FormatFloat('0,.00', StrToFloat(Edit1.Text) * 
StrToFloat(Edit1.Text)));

	info @ 
marcobortolani.it
sei stato mo9lto gentile.
In effetti forse sono fuori luogo qui,
mi sento una piccolina fra papaveri grossi..

 e tolgo il disturbo.
Mi scuso per il pistolotto, ma il succo del discorso non cambia.
La scuola (nel tuo caso il tuo insegnante) dovrebbe venire prima del
newsgroup, ossia se hai delle difficoltà dovresti chiedere a lui, prima.
Questo non vuol dire che qui non puoi postare, anzi...
In generale, però, ai newsgroup si dovrebbe ricorrere quando si hanno
difficoltà ben specifiche (del tipo "questa procedura mi dà questo errore
facendo questa cosa, come mai?"), e non generiche (del tipo "come faccio a
fare questo programma").
Inoltre, ricordati che nei newsgroup in cui si parla di linguaggi di
programmazione, non è vista di buon occhio la "pappa pronta", ossia uno
chiede come si fa una cosa e gli si posta direttamente il codice.
Questo perché con il copia/incolla non si va molto lontano: alla prossima
difficoltà si posterebbe ancora, e così via. Pensa che casino.
Comunque, visto che studiare il pascal è cosa buona e giusta, ecco la pappa
pronta :)
var
  Cifra1: Char;
  CifraInt: Integer;
begin
  repeat
    writeln('Dammi la cifra');
    readln(Cifra1);
    if Cifra1 in ['0'..'9'] then
    begin
      CifraInt := Ord(Cifra1)-48;
      writeln(CifraInt * CifraInt)
    end
  until not (Cifra1 in ['0'..'9']);
  write('chiudo');
  readln;
end.
Però promettimi che studierai questo codice e cercherai di capirne il
funzionamento.
Non scoraggiarti, quando passerai dal pascal a delphi sarà una cosa
stupenda, altro che ReadLn e Ord() :)
-- 
Jax
====
Si cambia più facilmente religione che caffè. (Georges Courteline)

 mi sento una piccolina fra papaveri grossi..
Se ti impegni potremmo sempre assumerti come mascotte :)
-- 
Jax
====
"La tecnologia, da sola, non e' capace di miracoli".
Bill Gates, chairman Microsoft

stupenda, altro che ReadLn e Ord() :)
Grazie!

e mandaci un foto...cosi vediamo se sei carina...
Ciao
Ronin

 e mandaci un foto...cosi vediamo se sei carina...
Ha 15 anni, evita.
E se per caso tu ne hai 16, usa l'email, grazie.
-- 
Jax
====
"Cosa fa un passero in un computer? Microchip!"

 e mandaci un foto...cosi vediamo se sei carina...
Ecco, qui un bel "vaffanculo" ci starebbe bene.


 e mandaci un foto...cosi vediamo se sei carina...
Perche' non ci mandi la tua??
Cosi' vediamo se sei carino...
ROTFL!
-- 
Morde. 
FAQ di icld (beta-version): 
http://icld.altervista.org
 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/