Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.10.2010, 17:33   #1
Quake-Ermak
Новичок
Джуниор
 
Регистрация: 21.10.2010
Сообщений: 2
По умолчанию Pascal.Как сделать?

Нужна помощь
Вложения
Тип файла: rar TP.rar (8.6 Кб, 20 просмотров)
Quake-Ermak вне форума Ответить с цитированием
Старый 21.10.2010, 17:33   #2
Quake-Ermak
Новичок
Джуниор
 
Регистрация: 21.10.2010
Сообщений: 2
По умолчанию

по этой формуле нужно написать текст программы
Quake-Ermak вне форума Ответить с цитированием
Старый 21.10.2010, 20:34   #3
Don Karleone
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 410
По умолчанию

ICQ: 593-013-807
ICQ: 593-013-807
Don Karleone вне форума Ответить с цитированием
Старый 21.10.2010, 22:30   #4
Don Karleone
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 410
По умолчанию

Код:
var
  x,l,a,b,c: real;

Function ArcCos(x: Real): Real;
Begin
  If x = 0 Then ArcCos := Pi/2
  Else ArcCos := ArcTan(Sqrt(1 - Sqr(x)) / x) + Pi * Byte(x < 0)
End;


begin
  readln(a,b,c);
  x:=sin(a+Sqr(b)-abs(c)) / (a+Sqr(b)-abs(c));
  l:=Sqrt(abs(a/b)) * (arctan(x/Sqrt(1-Sqr(x))) + ArcCos(x));
  writeln(l:1:7);
  readln;
end.
ICQ: 593-013-807
Don Karleone вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Lazarus. Сделать вывод как в Pascal ABC Foxx Паскаль, Turbo Pascal, PascalABC.NET 4 16.11.2009 19:14
pascal, строки. Как сделать, чтоб считались пробелы? AlexGur Помощь студентам 1 27.01.2009 08:28
Задача по PASCAl. Помогите сделать. Waia Помощь студентам 1 21.12.2008 18:51
Задача по PASCAl. Помогите сделать. Waia Помощь студентам 3 25.11.2008 09:33