Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
maestreek
0 / 0 / 1
Регистрация: 06.04.2015
Сообщений: 27
#1

Написать выражение в Pascal - Turbo Pascal

10.12.2015, 15:27. Просмотров 225. Ответов 4
Метки нет (Все метки)

Написать в выражение в паскале
http://www.cyberforum.ru/turbo-pascal/thread429937.html
0
Миниатюры
Написать выражение в Pascal  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2015, 15:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Написать выражение в Pascal (Turbo Pascal):

Записать выражение на языке Pascal
Записать выражение на языке Pascal: z=√(x^2+y^2 )/√(x^2-y^2 )

Написать выражение, истинное в заштрихованной области
Написать выражение исnинное в заштрихованной области я кое-что сделал,...

Написать программу, вычисляющую матричное выражение C=A*B+3*A*B
заранее спасибо за помощь

pascal привести выражение к несократимой дроби
Привести выражение к несократимой обыкновенной дроби 1/2+2/3+3/4+...+9/10...

написать на Pascal
#include <iostream> #include <iomanip> #include <random> #include...

4
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
10.12.2015, 15:33 #2

Не по теме:

Цитата Сообщение от maestreek Посмотреть сообщение
Написать в выражение в паскале
Я бы написал выражение, да на форуме мат запрещен..


Это не выражение и писать его не нужно,это разложение функции ln(x) при x>0 в степенной ряд, который нужно вычислить, но тебе это явно не по зубам, поскольку извилины в мозгу прямые.
0
maestreek
0 / 0 / 1
Регистрация: 06.04.2015
Сообщений: 27
10.12.2015, 16:19  [ТС] #3
Цитата Сообщение от Puporev Посмотреть сообщение
Это не выражение и писать его не нужно,это разложение функции ln(x) при x>0 в степенной ряд, который нужно вычислить, но тебе это явно не по зубам, поскольку извилины в мозгу прямые.
Извините, ошибся. Вы правы, я не знаю как это написать, иначе я бы не обратился на этот форум.
0
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
10.12.2015, 17:21 #4
Лучший ответ Сообщение было отмечено maestreek как решение

Решение

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
uses crt;
const e=0.0001;
var x,s,p:real;
    n:integer;
begin
clrscr;
repeat
write('Введите x>0 x=');
readln(x);
until x>0;
n:=0;
p:=(x-1)/(x+1);
s:=p;
while p/(2*n+1)>e do
 begin
  n:=n+1;
  p:=p*sqr(x-1)/sqr(x+1);
  s:=s+p/(2*n+1);
 end;
s:=2*s;
writeln('s=',s:0:4);
write('ln(x)=',ln(x):0:4);
readln
end.
1
maestreek
0 / 0 / 1
Регистрация: 06.04.2015
Сообщений: 27
10.12.2015, 21:19  [ТС] #5
Спасибо!
0
10.12.2015, 21:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2015, 21:19
Привет! Вот еще темы с решениями:

Написать программу, которая форматирует арифметическое выражение
Заданы 2 натуральных числа (1<=N<=1000) и K (1<=K<=1000). Написать программу,...

Написать модуль, считающий выражение B*k*C+A, где А,В,С-матрицы.
Необходимо написать модуль, считающий выражение B*k*C+A, где А,В,С-матрицы,...

Написать pascal за wmz
Нужно написать 10 програм на паскале, за каждую дам символический подарок 200р,...

Написать программы на Pascal
Всем доброго времени суток! У меня такая проблемка,в универе дали две лабы...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru