| 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 | |
| Respuesta: | juan quintana |
| la funcion sin te devuelve un valor real y hay conflicto con la variable valor que definiste como entera; puedes usar la la funcion trunc para convertir a entero | |