RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  63178 - GRAFICO FUNCION SENO
Autor:  agustin bravo
hola muchachos como andan, les comento mi problema. Tengo que desarrollar un programa en pascal free 1.0.12, el cual me permita graficar la funcion seno en toda la pantalla, el codigo que yo ingreso es el que anotare a continuacion:

program funcion_seno;
Uses crt;
var f,x,valor: integer;

begin

for f:=1 to 80 do
begin gotoxy(f,12); write('-');end;
fpr f:=1 to 24 do
begin gotoxy(1,f); write('|');end;
x:=1;
for f:=0 to 360 do
begin valor:= ((-12)*sin(f*pi/180))+12;
gotoxy(x,valor); write('*');
x:=x+1; end;
end.

el error que me sale al compilar es el siguiente:

seno.pas(15,36) Error: Incompatible types: got "Extended expected "Smallint"
seno.pas(18) Fatal: there were 1 error compiling module, stopping.
seno.pas(0) Fatal: compiling aborted

yo creo que se trata de algun problema al momento de calcular el seno o capaaz deberia emplear otro tipo de variables, si pudieran darme una mano les agradeceria mucho, un abrazo para todos


Nombre
Apellidos
Correo
Comentarios