Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 26.05.2014, 16:10   #1 (permalink)
kris_kaif
Member
 
Регистрация: 26.05.2014
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите, пожалуйста, написать программу

пожалуйста, помогите написать эту программу в Pascal
Миниатюры
aacuiyiiueiii.jpg   aaaa.jpg  
kris_kaif вне форума   Ответить с цитированием

Старый 26.05.2014, 16:10
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Вам даже не нужно тратить время на поиск, аналогичные темы я отправляю сюда

Помогите, пожалуйста, написать программу
Помогите, пожалуйста, написать программу на С++
Помогите, пожалуйста, написать программу в C++
Помогите, пожалуйста, написать программу в C++
Помогите, пожалуйста, написать программу на С++

Старый 26.05.2014, 16:47   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,872
Сказал(а) спасибо: 318
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от kris_kaif Посмотреть сообщение
пожалуйста, помогите написать эту программу в Pascal
Так, ну, похоже, весь семестр был "kaif", а теперь преподы обломали. Ладно, помогу.
Но уж всякие там рюшечки-окошечки-заголовочки и прочее делайте сами. Еще можете просветить ваших дремучих преподов, что число π задается в Паскале стандартной функцией Pi и не нуждается в вычислении через жо арктангенс.
Код:
Var
 y,a,b,c,gamma,g_gamma,m_gamma:real;
 yn:Char;
Begin
 yn:='R';
 Repeat
  If yn='R' then
   begin
    a:=2.08;
    b:=-0.0805;
    c:=0.681;
    g_gamma:=17;
    m_gamma:=36;
    Writeln('a = 2.08');
    Writeln('b = -0.0805');
    Writeln('c = 0.681');
    Writeln('gamma (degrees) = 17');
    Writeln('gamma (minutes) = 36');
   end
  else
   begin
    Write('a = ');
    Readln(a);
    Write('b = ');
    Readln(b);
    Write('c = ');
    Readln(c);
    Write('gamma (degrees) = ');
    Readln(g_gamma);
    Write('gamma (minutes) = ');
    Readln(m_gamma);
   end;
  g_gamma:=g_gamma+m_gamma/60;
  gamma:=g_gamma*Pi/180;
  y:=Arctan(Abs((a-b*b)/c))+Sqrt(Abs(2.0*Sqr(Sin(gamma*2))/c-1));
  writeln('Result: y = ',y:8:6);
  Write('Continue? (y/n) ');
  Readln(yn);
 Until (yn='n') or (yn='N');
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 26.05.2014, 16:54   #3 (permalink)
kris_kaif
Member
 
Регистрация: 26.05.2014
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо большое!!!!! прям огромное!!!!!
kris_kaif вне форума   Ответить с цитированием
Старый 26.05.2014, 16:57   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,872
Сказал(а) спасибо: 318
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

И да, можете "real" заменить на "single", коль им так хочется, хотя этот формат давным-давно не употребляется. Он был в своё время введен для очень слабых древних машин, когда приходилось экономить память. Сегодня употребление этого формата - полная дичь.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 01:32.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.