Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Нужно перевсти прогу

Ответить
Настройки темы
Нужно перевсти прогу

Аватара для BigMac

Призрачный админ


Сообщения: 5254
Благодарности: 90


Конфигурация

Профиль | Отправить PM | Цитировать


Люди........нид срочный хелп....Есть прога на Паскале.. до завтра надо
сдать на СИ!!!!!!!!! Кто может, поможите!!!!! Плиз.........
PROGRAM planpo;
USES Crt;
CONST
 a1= 0.3870986;    exc1=0.2056306;
 a2= 0.7233316;    exc2=0.0067826;
 a3= 1.0000000;    exc3=0.0167180;
 a4= 1.5236883;    exc4=0.0933865;
 a5= 5.2025610;    exc5=0.0484658;
 a6= 9.5547470;    exc6=0.0556155;
 a7=19.2181400;    exc7=0.0463232;
 a8=30.1095700;    exc8=0.0090021;
 a9=39.7845900;    exc9=0.2538700;
 epsx=0.000001;
VAR
 ee,M,E,k,t,a:real;
 i,b,n:integer;
(*--------------------------------------------------------------------------*)
(* CS: Косинус-функция (градусы) *)
FUNCTION CS(X: REAL): REAL;
 CONST
  RAD=0.0174532925199433;
 BEGIN
  CS:=COS(X*RAD)
 END;
(*--------------------------------------------------------------------------*)
(*TN: тангенс-функция (градусы)*)
FUNCTION TN(X: REAL): REAL;
 CONST
  RAD=0.0174532925199433;
 VAR
  XX: REAL;
 BEGIN
  XX:=X*RAD;
  TN:=SIN(XX)/COS(XX);
 END;
(*--------------------------------------------------------------------------*)
(* ATN: Арктангенс-функция (градусы)*)
FUNCTION ATN(X: REAL): REAL;
 CONST
  RAD=0.0174532925199433;
 BEGIN
  ATN:=ARCTAN(X)/RAD
 END;
(*--------------------------------------------------------------------------*)
{ function kepler(E:real):real;
 begin
  dE:=dB/(1-a*Cos(E));
  E:=E-dE;               (*Тоша. Эту функцию надо доделать и сунуть | *)
  dB:=E-a*Sin(E)-M;                                                 |
  kepler:=                                                          |
 end;                                                               | }
(*-------------------------------------------------------------------|------*)
Procedure formyls(var t,M,E,k:real);                              { | }
 Var                                                              { | }
  dE,dB,v,R,ht,Tp:real;                                           { | }
 Begin                                                            { | }
  Tp:=Sqrt(a*a*a);                                                { | }
  ht:=Tp/n;                                                       { | }
  t:=i*ht;                                                        { | }
  M:=Pi*2*Pi*t/(Tp*180);                                          { | }
  E:=M;                                                           { | }
  dB:=0.016718*Sin(E);                                            { | }
   If ABS(dB)<epsx then                                           { | }
     E:=E                                                         { | }
               else                                               { | }
    begin                                                         { | }
     k:=1;                                                        { | }
      while ABS(dB)>epsx do                                       { | }
       begin                                                      { | }
        dE:=dB/(1-ee*Cos(E)); {-----------------сюда----------------| }
        E:=E-dE;
        dB:=E-ee*Sin(E)-M;
        k:=k+1;
       end;
     E:=E;
    end;
  R:=a*(1-e*Cos(E));  
  v:=2*ATn(Sqrt((1+ee)/(1-ee))*Tn(E/2));
 End;
(*--------------------------------------------------------------------------*)
BEGIN
 ClrScr;
 WriteLn('Введите количество точек дробления периода оборота: ');
 ReadLn(n);


 WriteLn('Введите планету: ');
 WriteLn('     Меркурий-> 1        Венера-> 2');
 WriteLn('     Земля->    3        Марс->   4');
 WriteLn('     Юпитер->   5        Сатурн-> 6');
 WriteLn('     Уран->     7        Нептун-> 8');
 WriteLn('             Плутон-> 9');
 ReadLn(b);
  if b=1 then
   begin
    ee:=exc1;
    a:=a1;
   end;
  if b=2 then
   begin
    ee:=exc2;
    a:=a2;
   end;
  if b=3 then
   begin
    ee:=exc3;
    a:=a3;
   end;
  if b=4 then
   begin
    ee:=exc4;
    a:=a4;
   end;
  if b=5 then
   begin
    ee:=exc5;
    a:=a5;
   end;
  if b=6 then
   begin
    ee:=exc6;
    a:=a6;
   end;
  if b=7 then
   begin
    ee:=exc7;
    a:=a7;
   end;
  if b=8 then
   begin
    ee:=exc8;
    a:=a8;
   end;
  if b=9 then
   begin
    ee:=exc9;
    a:=a9;
   end;
  for i:=0 to n do
   begin
    formyls(t,M,E,k);
    Write('i= ',i);
    Write(' t= ',t:10:6);
    Write(' M= ',M:10:6);
    Write(' E= ',E:10:6);
    Write(' k= ',k:10:6);
    WriteLn(' epsx= ',epsx:8:6);
   end;
 ReadLn;
END.

-------
Истина где-то рядом...


Отправлено: 18:46, 24-12-2001

 

Аватара для BigMac

Призрачный админ


Сообщения: 5254
Благодарности: 90

Профиль | Отправить PM | Цитировать


noname00.pas
Я знаю.... я уже прогу всю исправил в Универе....... Но все равно спасибо

-------
Истина где-то рядом...


Отправлено: 10:04, 30-12-2001 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Студент


Сообщения: 445
Благодарности: 8

Профиль | Отправить PM | Цитировать


BigMac
Ну и ладно... Зато я теперь вроде как на Си пишу...

-------
*Origin: Lots of people talking, few of them - no... (2:5020/****.**)


Отправлено: 12:05, 30-12-2001 | #12


редкий гость


Сообщения: 1696
Благодарности: 44

Профиль | Сайт | Отправить PM | Цитировать


BigMac
А чё хотя в моём варианте некомпилялось?

noname00.pas
На плюсы переходи

-------
http://ivank.ru


Отправлено: 16:03, 30-12-2001 | #13


Аватара для BigMac

Призрачный админ


Сообщения: 5254
Благодарности: 90

Профиль | Отправить PM | Цитировать


ivank
Ты забыл в функции * поставить... а при вызове ее & и в одном scanf'е ошибка была
noname00.pas
Так держать

-------
Истина где-то рядом...


Отправлено: 19:29, 30-12-2001 | #14


Студент


Сообщения: 445
Благодарности: 8

Профиль | Отправить PM | Цитировать


ivank
И на плюсах тоже

-------
*Origin: Lots of people talking, few of them - no... (2:5020/****.**)


Отправлено: 20:39, 30-12-2001 | #15



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Нужно перевсти прогу

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - Нужно найти или написать прогу Dj vasul Программирование и базы данных 1 03-04-2009 01:12
Подскажите прогу Liquid Программное обеспечение Windows 4 05-03-2007 02:53
Ищу прогу dimon55 Хочу все знать 2 07-01-2005 10:36
Посоветуйте прогу Sinner Сетевые технологии 5 25-09-2003 08:08
Как перевсти char в int? Sage Программирование и базы данных 4 27-03-2003 09:44




 
Переход