Mis escritos de programación
1. Función función 1(R:Doble):Doble;
Inicio
Resultado:= R * R * Pi
Fin;
2. Función Func2(R, H:Doble):Doble;
Inicio
Resultado:=(1/3)*(R * R * Pi * H);
ebd
3. Procedimiento Proc3
Definir variables
I: Entero;
Inicio
Para i:= 0 a 90 haz
Inicio
Showmessage(IntToStr(i)+' (I)+'Seno de radianes = '+float tostr( Sin (I)));
Showmessage(IntToStr(i)+' (i)+'coseno radianes = '+float ostr(cos(I)));
End ;
Fin;