Caricare documenti e articoli online 
INFtub.com è un sito progettato per cercare i documenti in vari tipi di file e il caricamento di articoli online.


 
Non ricordi la password?  ››  Iscriviti gratis
 

program exercise

informatica



program exercise;



(*Programma che, introdotto n (integer) da tastiera, se e' negativo,

scriva l'opposto, altrimenti: se e' multiplo di 3 calcoli il cubo

se no il quadrato*)

var n,cubo,quad,opp_n:integer;

BEGIN

writeln('Dimmi un intero...');

readln(n);

if n < 0 then

BEGIN

opp_n:=0 - n;

writeln('L''opposto di ',n,' e'' ',opp_n,'.');

END

else

BEGIN

if n mod 3 = 0 then

BEGIN

cubo:=sqr(n) * n;

writeln('Il cubo di ',n,' e'' ',cubo,'.');

END

else

BEGIN

quad:=sqr(n);

writeln('Il quadrato di ',n,' e'' ',quad,'.');

END;

END;

readln

END.







Privacy




Articolo informazione


Hits: 1403
Apprezzato: scheda appunto

Commentare questo articolo:

Non sei registrato
Devi essere registrato per commentare

ISCRIVITI



Copiare il codice

nella pagina web del tuo sito.


Copyright InfTub.com 2024