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.
 
Architettura
Biologia
Diritto
Economia
Educazione fisica
Filosofia
Generale
Geografia
Italiano
Letteratura
Marketing
Medicina
Scienze Chimica Fisica Geometria Informatica Matematica Ricerche Scienze della materia Scienze della terra
Storia
Tecnica
 
 
 
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: 1179
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.