.:: Gruppo Operativo Incursori ::.

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.

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)

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.

Code: Select all

a*a

Code: Select all

a^2

Code: Select all

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

     fai tutto il resto

end;