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

Puporev

Почетный модератор

64288 / 47587 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

26.11.2015, 21:27

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

26.11.2015, 21:27. Показов 924. Ответов 1

Метки (Все метки)

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

Решение

Pascal

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

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) *...

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

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}...

Наверх