Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1 / 1 / 0
Регистрация: 14.09.2013
Сообщений: 105
1

можно сделать данную программу проще?как можно примитивней

16.09.2013, 17:35. Показов 791. Ответов 2
Метки нет (Все метки)

можно сделать данную программу проще?как можно примитивней

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var F,x: real;
 
Function ArcCos(z:Real):Real;
begin
 if Round(z*10000000)=10000000 then ArcCos:=0 else
 if Round(z*10000000)=-10000000 then ArcCos:=Pi else
    ArcCos:=(Pi/2)-ArcTan(z/Sqrt(1-z*z));
end;
 
 
Begin
 Repeat
  Write('x= ' );
  Readln(x);
  If x<Sqrt(-2.0*Ln(0.4)) then
   Writeln('Error! X must be >1.354!!!');
 Until x>=Sqrt(-2.0*Ln(0.4));
 F:=Sqrt(Sqr(Sqr(x))-2*x+3)+ArcCos(2.5*Exp(-0.5*Sqr(x)));
 Writeln('F= ',F:2:1);
 Readln
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.09.2013, 17:35
Ответы с готовыми решениями:

можно ли сделать программу проще? стандартной склейкой слов
Задание: соединить слова. которые пользователь введет в консоль. можно как нибудь с помощью...

Сравнивание массивов.Как можно сделать проще ?
Реализовал метод richEquals,который принимает два параметра array1 {Array} array2 {Array}.И...

Как можно сделать данный кусок кода меньше и проще?
Задние: Заменить все элементы с четными номерами на значение второго положительного элемента...

Как можно оптимизировать данную программу?
program lab5; {$APPTYPE CONSOLE} uses SysUtils; var a,b,h,x,f:real; ...

2
56 / 28 / 18
Регистрация: 09.03.2012
Сообщений: 726
Записей в блоге: 1
16.09.2013, 22:09 2
BogdanGhost, в Дельфи есть модуль такой "Math" - там те функции уже заданы. На паскале - не знаю.
0
Модератор
8685 / 4339 / 2979
Регистрация: 17.08.2012
Сообщений: 13,808
17.09.2013, 20:31 3
BogdanGhost, и так всё как можно проще уже.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.09.2013, 20:31

Оператор switch, можно ли сделать код проще?
Дана задача посчитать гласные в тексте введенном с клавиатуры, вопрос ниже... #include...

На чем можно сделать данную задачу
Доброго времени суток. Вчера на работе поставили задачу. Дали изображение (которые выложил) и...

Можно ли данную программу записать по другому
Мне нужно записать данную по другому, но не меняя при этом значений Данная программа решает...

Можно ли данную программу перепрограммировать с паскаля на С++?
program metod optimisazii; uses crt; var x1, x2, x3, DelX : integer; Fmin, Xmin, i : integer;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru