| Precedente :: Successivo |
| Autore |
Messaggio |
admin
Founder
Registrato: Oct 03, 2008
Messaggi: 261
|
 Inviato: Dom Ott 26, 2008 12:37 pm Oggetto: Ecco i miei primi programmi in pascal |
 |
|
Ecco a voi i primi 2 programmi in pascal
| Codice: | {Program By KinG-InFeT CoPyRiGhT © 2008}
Program SommaTraTreNumeri; {nome programma}
uses crt; {librerie Sistema}
{variabili}
var
a:real;
b:real;
c:real;
{inizio programma}
begin
clrscr;
writeln ('Somma Calc v 0.5 Created By KinG-InFeT');
write ('Inserisci il primo numero: ');
readln (a); {prima variabile immissione pirmo numero}
write ('Ora il secondo: ');
readln (b); {seconda variabile immissione secondo numero}
write ('Ora il Terzo: ');
readln (c); {terza variabile immissione terzo numero}
A:=a+b+c; {faccio l'operazzione di addizzione}
writeln ('La somma dei tre numeri inseriti e: ', A:7:2); {stampo il risultato dell'addizione}
readln
{fine programma}
end. |
Questo semplice programma nn fa altro che addizionare 3 numeri XD
2°
| Codice: |
program RadQuadrata;
uses crt;
var
r:real;
begin
clrscr;
writeln('Inserire il valore la quale volete sapere la radice quadrata:');
readln (r);
r:= SQRT(r);
write('La radice quadrata è:',r:7:3);
readln
end. |
questo invece è un semplice programma che calcola la radice quadrata di un numero
presto posterò una mia calcolatrice scentifica
CoPyRiGhT By KinG-InFeT.NeT
_________________
D3vil-C0de Crew => http://d3vilc0de.org
My Spaces => http://kinginfet.135.it
My Tool Cracker => http://totalcracker.135.it
My Dj Site => http://djkinginfet.135.it |
|
| Torna in cima |
|
 |
Duffabio
Lettore
Registrato: Jan 10, 2009
Messaggi: 6
Localit�: Hard Disk
|
| Inviato: Sab Feb 07, 2009 4:19 pm Oggetto: |
|
|
Si..come programmi in Pascal sono semplici..ma se sono i primi due..e piu che sufficente...
anzi visto che sono stati i tuoi primi c'è da dire bravo..  |
|
| Torna in cima |
|
|
admin
Founder
Registrato: Oct 03, 2008
Messaggi: 261
|
|
| Torna in cima |
|
|
|
FAQ
Cerca
Lista degli utenti
Gruppi utenti
Profilo
Messaggi Privati
Login
