Pascal/Turbo Pascal - programa para convertir coordenadas rectangulares a polares

   
Vista:

programa para convertir coordenadas rectangulares a polares

Publicado por Miranda (2 intervenciones) el 28/04/2013 19:43:41
Agradeceria si alguien me orienta para saber si mi procedimiento va bien y si me da ideas para finalizarlo
Program coordenadas
uses crt;
var x,y:real r,a:real
begin
r:=sqr(x)+sqr(y);
a:=arctan (x/y);
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

programa para convertir coordenadas rectangulares a polares

Publicado por ramon (2072 intervenciones) el 29/04/2013 20:20:14
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{Mira esto}
 
uses
    crt;
 var
   r, t : real;
   ra : real;
   gr : real;
 
 procedure cartapolar(x, y : integer);
 begin
    r := Sqrt(Sqr(x) + Sqr(y));
    t := arctan((x / y));
 end;
 
 begin
    clrscr;
    cartapolar(5,3);
    writeln('Radio  = ',r:0:2);
    writeln('Angulo = ',t:0:2);
    readkey;
 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