Peraz alle prese con TurboPascal v7.0

[hooah!!!]

Vuoi l'algoritmo o proprio il codice...

[hooah!!!]

ES:

program maggiore_dei_tre

var a,b,c:integer;

begin

writeln( inserisci il culo di nuvola)
readln(a)

ec...

Scusa ma non volevi un programma che ti dicesse se 3 numeri fossero una terna pitagorica?

[hooah!!!]

Ho difficolt? a ricordarmi la sintassi....
sto cercando un compilatore....

Te lo mando via mail.

[Nuvoletta!]

Vuoi l'algoritmo o proprio il codice...

Infatti...

Peraz non sei chiaro

[hooah!!!]

Vuoi l'algoritmo o proprio il codice...

Infatti...

Peraz non sei chiaro

La funzione code del forum mi taglia alcuni caratteri speciali se lo copio e incollo viene fuori un virus

[hooah!!!]

In logica negata ...

Code: Select all

PROGRAM  peraz;

     VAR a,b,c,max : INTEGER;
     
     BEGIN
         a:=0;
         b:=0;
         c:=0;
         max:=0;
         
         FUNCTION quadrato (x:INTEGER) : INTEGER;
         BEGIN
    				quadrato := x*x;
  	    END;
         
         CLRSCR;  
         
         Write('a: ');
         ReadLn(a);
         Write('b: ');
         ReadLn(b);
         Write('c: ');
         ReadLn(c);
         
         if (quadrato(a)=quadrato(b)+quadrato(c)) then
			        WriteLn ('a: ',a,'b: ',b,'c: ',c,' sono una terna pitagorica'); 
         else
         	  	WriteLn ('a: ',a,'b: ',b,'c: ',c,' non sono una terna pitagorica');
         
         max := a ;
         if  ( b > max) then 
              max := b
         if  ( c > max) then 
              max := c
         
         WriteLn('Max : ',max);
             
     
     END.

5,4,3
10,8,6

[snipershady]

da quel che ricordo:

Code: Select all

program perazculo;
var a,b,c,d,e:real;
begin
writeln ('questo programma non so a cosa serva')
writeln ('inserisci un numero da abbinare alla variabile a')
read (a)
writeln ('inserisci un numero da abbinare alla variabile b')
read (b)

writeln ('inserisci un numero da abbinare alla variabile c')
read (c)

(mo bisogna capire co ste 3 variabili che ci vuoi fare...)

tipo:

Code: Select all

d:=b^2+c^2;
e:=a^2
if d=e then
writeln (' la somma di b e c ? ' , d)
writeln (' la somma di b e c ? quello che volevi tu')
else
writeln (' la somma di b e c non ha un cazzo a che fare con a al quadrato ' )
end.

[snipershady]

non ricordo se
ti conviene fare

Code: Select all

a*a

oppure

Code: Select all

a^2

(non ricordo se funziona)

[Padrino_rulez]

minchia il turbo pascal.. a che cazzo serve un genere di programmazione che neanche ti muove un cursore in un foglio A4...

fai questo peretto...

http://www.youtube.com/watch?v=6U5SPCDP ... re=related

[hooah!!!]

program perazculo;
var a,b,c,d,e:real;

Una terna pitagorica ? definita per numeri NATURALI....
quindi in teoria... tutti i numeri interi maggiori di 0...

Abbiamo sbagliato entrambi....
peraz aggiungi il controllo che a,b,c siano maggiri di 0

Code: Select all

if (a>0) and (b >0 ) and (c>0) then
begin

     fai tutto il resto

end;

minchia il turbo pascal.. a che ca*** serve un genere di programmazione che neanche ti muove un cursore in un foglio A4...

fai questo peretto...

http://www.youtube.com/watch?v=6U5SPCDP ... re=related

E' un linguaggio imperativo come tanti altri.
Forse ? un p? troppo ad alto livello, ma per imparare a maneggiare le strutture dati, anche complesse, ? ottimo.
Inoltre in turbo pascal ? possibile incapsulare pezzi di codice assembly con tasm (turbo assembly)....
beh con quello ci fai i driver di perifierica....

Poi se vogliamo fare una disquisizione tra pregi e difetti di programmazione imperativa e programmazione a oggetti...

ti rispondo che i programmatori sono morti quando ? nato java.

[Nuvoletta!]

E' un linguaggio imperativo come tanti altri.
Forse ? un p? troppo ad alto livello, ma per imparare a maneggiare le strutture dati, anche complesse, ? ottimo.
Inoltre in turbo pascal ? possibile incapsulare pezzi di codice assembly con tasm (turbo assembly)....
beh con quello ci fai i driver di perifierica....

Poi se vogliamo fare una disquisizione tra pregi e difetti di programmazione imperativa e programmazione a oggetti...

ti rispondo che i programmatori sono morti quando ? nato java.

E seppelliti quando ? nato il .NET