Pascal/Turbo Pascal - Alguien que me oriente con este programa porfavor

   
Vista:

Alguien que me oriente con este programa porfavor

Publicado por Alicia (1 intervención) el 29/04/2013 23:17:32
tengo este programa que convierte coordenadas cartesianas a polares

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program cartpola;
uses crt;
var x,y:real;
var a,r:real;
 
begin
writeln('escribe el valor de x'); readln(x);
writeln('escribe el valor de y'); readln(y);
r:= sqrt(sqrt(x)+sqrt(y));
a:=arctan ((x/y));
writeln('r=',r:0:2);
writeln('a=',a:0:2);
readkey;
end.


necesito volverlo a hacer pero ahora usando "FUNCTION", es algo complicado para mi ya que me confunden los pasos, estaría muy agradecida si alguien me auxilia
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

Alguien que me oriente con este programa porfavor

Publicado por ramon (2072 intervenciones) el 30/04/2013 00:09:55
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{Mira}
var a,r:real;
var x,y:real;
 
function cartesianas(var a,r:real) : boolean;
begin
    r:= sqrt(sqrt(x)+sqrt(y));
    a:=arctan ((x/y));
    cartesianas := true;
end;
 
begin
      clrscr;
     writeln('escribe el valor de x'); readln(x);
     writeln('escribe el valor de y'); readln(y);
     if cartesianas(a,r) = true then
     begin
      writeln('r=',r:0:2);
      writeln('a=',a:0:2);
     readkey;
     end;
 end.
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