FRAZIONE DETERMINATA, INDETERMINATA, IMPOSSIBILE, CON CALCOLO QUOZIENTE

informatica

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.