Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Написать программу, которая считывает текст из файла и выводит его на экран, после каждого предложения Написать программу, которая считывает текст из файла и выводит его на экран, после каждого предложения добавляя, сколько слов содержится в предложении. Нужна помощь. https://www.cyberforum.ru/ pascal/ thread1593600.html Найти скалярное произведение строки, в которой находится наибольший элемент матрицы, на столбец с наименьшим э Pascal
Дана квадратная вещественная матрица размером N, все элементы которой различны. Найти скалярное произведение строки, в которой находится наибольший элемент матрицы, на столбец с наименьшим элементом.
Pascal Вывести сведения о сотрудниках, возраст которых не превышает средний возраст Даны сведения о сотрудниках фирмы: ФИО сотрудника, год рождения, адрес, номер телефона.Вывести сведения о сотрудниках, возраст которых не превышает средний возраст сотрудников. очень срочно!помогите пожалуйста!спасибо заранее! https://www.cyberforum.ru/ pascal/ thread1593530.html Pascal В массиве A[5,6] сумму отрицательных элементов поставить на место максимального элемента 2-ой строки В массиве A сумму отрицательных элементов поставить на место максимального элемента 2-ой строки. https://www.cyberforum.ru/ pascal/ thread1593356.html
Диофантово уравнение Pascal
Здравствуйте дорогие форумчане и программисты!!! Я тут 1 раз и молю вас о помощи, а дело вот в чём, задали в инсте такую программку: Спроектировать и реализовать программную систему, позволяющую решать Диофантово уравнение с помощью генетического алгоритма.Разработать программу для решения Диофантова уравнения вида: a+2b+3c+4d=30, где a, b, c и d - некоторые положительные целые числа. Нахождение...
Pascal Подскажите что за алгоритм Подскажите пожалуйста что за алгоритм изображён на фото. https://www.cyberforum.ru/ pascal/ thread1593240.html
Pascal Оптимизируйте, пожалуйста, программу (переделать дешифровку и сохранение в файл) https://www.cyberforum.ru/ pascal/ thread1593205.html
Пожалуйста, переделайте дешифровку и сохранение в файл, чтобы было output2,3...10.txt (один правильный, остальные нет) var sin, sout, sdecode,k : string; a : array of array of integer; d, c, i,j,l, n : integer; f,q:text; begin write('введите кол-во столбцов для шифровки: ');
Конвертировать код на Паскаль Pascal
Помогите пожалуйста конвертировать код с С на паскаль.Буду примного благодарен) #include<iostream> #include<queue> #include<cstdio> using namespace std; bool a; queue <int> l,s; int p,u,n,fr,o=0;
Pascal Вывод в графическом режиме графика функции (5x-4)*cos(3x) напишите программу для вывода в графическом режиме графика функции (5x-4)cos(3x) https://www.cyberforum.ru/ pascal/ thread1593048.html Pascal В самом коротком слове все согласные буквы заменить буквой А Создать программу заданной обработки массива слов.В процессе обработки использовать множественных тип данных.Заполнение исходных данных с клавиатуры. Дан массив из n слов произвольной длины(длина слова не превышает 80 символов).Символами могут быть только заглавные латинские буквы.В самом коротком слове все согласные буквы заменить буквой А. https://www.cyberforum.ru/ pascal/ thread1593030.html
Pascal Найти максимальный элемент среди стоящих на главной и побочной диагоналях матрицы
составить программу заданной обработки матрицы целых чисел,используя перестановки элементов внутри массива не создавая новых.заполнение исходного массива организовать с помощью генератора случайных чисел.исходный и обработанный массив выводить на экран. дана матрица A(m*n) все элементы которой различны.найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять ее...
Pascal Написать программу обнаружения тупика https://www.cyberforum.ru/ pascal/ thread1593010.html
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
26.11.2015, 21:27 0

Вычислить значение выражения - Pascal - Ответ 8400142

26.11.2015, 21:27. Показов 948. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено sergey-gostop как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var x,e,t,s:real;
    n:integer;
begin
write('x=');
readln(x);
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=abs(x) then s:=x
else
 begin
  n:=1;
  t:=x;
  s:=t;
  while abs(t)>e do
   begin
    n:=n+1;
    t:=-t*x*x/((2*n-2)*(2*n-1));
    s:=s+t
   end;
 end;
writeln('S=',s:0:4);
write('sinx=',sin(x):0:4);//для проверки
end.


Вернуться к обсуждению:
Вычислить значение выражения Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2015, 21:27
Готовые ответы и решения:

Вычислить значение выражения
Подскажите пожалуйста как в среде Pascal написать формулы: \frac{\sin ^2a-\cos ^3x}{ab} ...

Вычислить значение выражения
Вычислить значение выражения Y=25x^5-\sqrt{x^2+x}\ \ \ \ npu\ x=25.144

Вычислить значение выражения
Даны действительные числа a1, a2, ..., an и b1, b2, ..., bn. Вычислить (a1 + bn) * (a2 + bn-1) *...

Вычислить значение выражения
Помогите с задачей,плиз,уже весь мозг стер. Написать программу, используя оператор условного...

1
26.11.2015, 21:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2015, 21:27
Помогаю со студенческими работами здесь

Вычислить значение выражения
Составить программу на языке pascal с использованием процедур и функций:

Вычислить значение выражения
Дан список из n целых неотрицательных чисел А1,А2,...,Аn. Найти: а) (А1+А2)*(А2+А3).....(Аn-1 +...

Вычислить значение выражения
Помогите пожалуйста) задание такое: Даны n, x, массив t(n). вычислить \prod_{K=1}^{n} \left(...

Вычислить значение выражения
Тринадцатое пожалуйста! a=\begin{cases}0.1;\; 0.25;\; 0.32;\; 4.2;\; 10.1;\; 6.2} \end{cases}...

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