Caricare documenti e articoli online  
INFtube.com è un sito progettato per cercare i documenti in vari tipi di file e il caricamento di articoli online.
Meneame
 
Non ricordi la password?  ››  Iscriviti gratis
 

FRAZIONE DETERMINATA, INDETERMINATA, IMPOSSIBILE, CON CALCOLO QUOZIENTE

informatica


Inviare l'articolo a Facebook Inviala documento ad un amico Appunto e analisi gratis - tweeter Scheda libro l'a yahoo - corso di


ALTRI DOCUMENTI

Guida Rapida all' HTML
Gli alberi - Strutture Dati Astratte - Alberi Generali
Il sistema binario come il sistema decimale: posizionale
JDBC un eccellente interfaccia di programmazione
procedura Rewrite(var F: File [; Recsize: Parola ]), Append, AssignFile, CloseFile, FilePos
MICROSOFT EXCEL
SISTEMI DI PRODUZIONI
Informatica
Oggetti fondamentali della libreria VCL
INSERIRE 1 ELEMENTO IN 1 LISTA ORDINATA

FRAZIONE DETERMINATA, INDETERMINATA, IMPOSSIBILE, CON CALCOLO QUOZIENTE

PROGRAM FRAZIONE;

VAR N,D:INTEGER;Q:REAL;

BEGIN

WRITELN ('INSERISCI D');

READLN (D);

WRITELN ('INSERISCI N');

READLN (N);

IF (D=0) AND (N=0) THEN

BEGIN

WRITELN ('FRAZIONE INDETERMINATA');

READLN;

END

ELSE

BEGIN

IF D=0 THEN

BEGIN

WRITELN ('FRAZIONE IMPOSSIBILE');

READLN;

END

ELSE

BEGIN

WRITELN ('FRAZIONE DETERMINATA');

READLN;

Q:=N/D;

WRITELN ('Q=',Q:0:2);

READLN;

END;

READLN;

END;

END.

RICONOSCERE SE UN NUMERO PARI O DISPARI

PROGRAM CALCOLO;

VAR A,R:INTEGER;

BEGIN

WRITELN ('INSERISCI A');

READLN (A);

R:=A MOD 2;

IF R=0 THEN

WRITELN ('A NUMERO PARI');

ELSE

WRITELN ('A NUMERO DISPARI');

READLN;

END.

NUMERO SUCCESSIVO

program successivo;

var N,S:integer;

begin

writeln ('inserisci il numero N');

readln (N);

S:=N+1;

writeln ('S=',S);

end.

TRIANGOLO

PROGRAM CALCOLO_PERIMETRO_E_SUPERFICIE_DEL_RETTANGOLO;

VAR N,S,H,P:INTEGER;

BEGIN

WRITELN ('INSERISCI IL LATO N');

WRITELN ('INSERISCI LALTEZZA H');

READLN (N,H);

S:=(N+N)+(H+H);

P:=N*H;

WRITELN ('PERIMETRO=',S);

WRITELN ('AREA=',P);

READLN;

END.

TRIANGOLO ISOSCELE

program triangolo_isoscele;

var B,H,L,P,A,J:real;

begin

writeln ('inserisci B');

writeln ('inserisci H');

readln (B);

readln (H);

L:=sqrt(sqr(B)+sqr(H));

writeln ('lato=',L);

A:=(B*H)/2;

writeln ('area=',A);

P:=(L*2)+B;

writeln ('perimetro=',P);

J:=B/2;

writeln ('altezza lato obbliguo=',J);

readln;

end.



Articolo informazione


Hits: 2126
Apprezzato: scheda appunto

Commentare questo articolo:

Non sei registrato
Devi essere registrato per commentare

ISCRIVITI

E 'stato utile?



Copiare il codice

nella pagina web del tuo sito.


Copyright InfTub.com 2016