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;