Pascal/Turbo Pascal - como hacel programa en pascal

 
Vista:

como hacel programa en pascal

Publicado por ramon santiago (1 intervención) el 01/02/2001 23:26:06
como hacel un programa que pida un numero,si el numero es negativo elevarlo al cuvo ,si es positivo y es mayor de 70 multiplicado por 3 y sacarle el seno, si es negativo y es un numero par sacarle la secante.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como hacel programa en pascal

Publicado por adrian15 (15 intervenciones) el 02/02/2001 14:05:33
readln(numero);
If numero<0 then
begin (* negativo *)
if numero ord 2 <> 0 then
numero=numero*numero*numero
else numero = 1 / cos(numero);
end; (* negativo *)
else
begin
if numero<> 0 then
begin
if numero>70 then numero=sin(numero*3)
end;
end;

Segurament haya fallos, pero basicamente es eso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como hacel programa en pascal

Publicado por Maverick01 (27 intervenciones) el 17/03/2001 16:08:05
Readln(Num);
If Num<0 then
If (Num div 2)=0 then
res:=1/cos(Num)
else
res:=Num*Num*Num;
else
If Num>70 then
res:=sin(Num);

Espero qu te sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar