Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 20.12.2015, 13:33   #11 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от EVO_X Посмотреть сообщение
Не знаю как текст программы вставлять, отправляю так свои начала по логарифму.
Ну так что ж, у Вас почти всё сделано, только нужно вывод в файл добавить для дальнейшей работы. Пожалуйста:
Код:
Var
 n,i:integer;
 a,x,S:real;
 f:Text;

Begin
 Assign(f,'Ln.txt');
 Rewrite(f);
 for i:=-9 to 9 do
  begin
   x:=0.1*i;
   a:=x;
   S:=a;
   n:=1;
   repeat
    n:=n+1;
    a:=-a*(n-1)/n*x;
    S:=S+a;
   until Abs(a)<1E-7;
   Writeln(x:4:1,S:15:5,Ln(1+x):15:5);
   Writeln(f,x:4:1,S:15:5);
  end;
 Close(f);
 Readln
End.
Vladimir_S вне форума   Ответить с цитированием

Старый 20.12.2015, 13:33
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Данная тема уже обсуждалась ранее и возможно решена

Задание по программированию в Pascal. Строки
Чемпионат мира по программированию 2014
Хочу научиться программированию микроконтроллеров

Старый 20.12.2015, 13:54   #12 (permalink)
EVO_X
Member
 
Регистрация: 26.01.2013
Сообщений: 946
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 497
По умолчанию

Логарифм получился, осталось сделать чтобы границы отрезка и шаг можно было самому забивать
Миниатюры
eiaadheoi.png  
EVO_X вне форума   Ответить с цитированием
Старый 20.12.2015, 13:57   #13 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от EVO_X Посмотреть сообщение
Логарифм получился, осталось сделать чтобы границы отрезка и шаг можно было самому забивать
С этим, надеюсь, Вы справитесь. Успехов!
Vladimir_S вне форума   Ответить с цитированием
Старый 20.12.2015, 14:31   #14 (permalink)
EVO_X
Member
 
Регистрация: 26.01.2013
Сообщений: 946
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 497
По умолчанию

Что-то не получается, что не пробовал, пишет нельзя применять integer к real...
EVO_X вне форума   Ответить с цитированием
Старый 20.12.2015, 16:27   #15 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от EVO_X Посмотреть сообщение
Что-то не получается, что не пробовал, пишет нельзя применять integer к real...
Пожалуйста, конкретнее. Что пробовали и что не получается?
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 20.12.2015, 16:55   #16 (permalink)
EVO_X
Member
 
Регистрация: 26.01.2013
Сообщений: 946
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 497
По умолчанию

Сначала убрал x:=0.1*i; и вместо -9 и 9 поставил переменные, которые ранее задаются. Переменные вводил в виде десятичных дробей, т. к. формула для суммирования действует на полуинтервале (-1;1].
Потом пробовал, чтобы введеные границы в виде десятичной дроби умножились на 10 потом вместо -9 и 9 соответственно шли дальше по вашей программе.
Ни там, ни там ничего не получилось...
EVO_X вне форума   Ответить с цитированием
Старый 20.12.2015, 17:16   #17 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от EVO_X Посмотреть сообщение
Сначала убрал x:=0.1*i; и вместо -9 и 9 поставил переменные, которые ранее задаются. Переменные вводил в виде десятичных дробей
Лихо! А то, что индекс цикла может быть только целым числом - это Вам как? Мимо?
Цитата:
Сообщение от EVO_X Посмотреть сообщение
формула для суммирования действует на полуинтервале (-1;1]
На самом деле - в интервале (-1;1). Т.е. формально плюс единица допускается, но, поскольку ряд сходится очень медленно, при той дикой (одна десятимиллионная) точности при х=1 получается такое число слагаемых, которое выходит за разрядную сетку и возникает ошибка. Поэтому лучше до +1 не доходить.
Вот вариант:
Код:
Var
 n,i,M:integer;
 a,x,S,Step:real;
 f:Text;

Begin
 Assign(f,'D:\Ln.txt');
 Rewrite(f);
 Write('Step = ');
 Readln(Step);
 M:=Trunc(2.0/Step);
 x:=-1;
 for i:=1 to M do
  begin
   x:=x+Step;
   a:=x;
   S:=a;
   n:=1;
   repeat
    n:=n+1;
    a:=-a*(n-1)/n*x;
    S:=S+a;
   until Abs(a)<1E-7;
   Writeln(x:6:3,S:15:5,Ln(1+x):15:5);
   Writeln(f,x:6:3,S:15:5);
  end;
 Close(f);
 Readln
End.
Vladimir_S вне форума   Ответить с цитированием
Старый 20.12.2015, 19:27   #18 (permalink)
EVO_X
Member
 
Регистрация: 26.01.2013
Сообщений: 946
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 497
По умолчанию

В этой программе мы задаем шаг, а промежуток тот же что и в первой программе?
EVO_X вне форума   Ответить с цитированием
Старый 20.12.2015, 19:55   #19 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от EVO_X Посмотреть сообщение
В этой программе мы задаем шаг, а промежуток тот же что и в первой программе?
А что, и его менять надо? Ну пожалуйста: задаются нижняя и верхняя границы, а также шаг:
Код:
Var
 n,i,M:integer;
 a,x,S,Step,mn,mx:real;
 f:Text;

Begin
 Assign(f,'Ln.txt');
 Rewrite(f);
 Write('Minimal value = ');
 Readln(mn);
 Write('Maximal value = ');
 Readln(mx);
 Write('Step = ');
 Readln(Step);
 M:=Trunc((mx-mn)/Step)+2;
 x:=mn-step;
 for i:=1 to M do
  begin
   x:=x+Step;
   a:=x;
   S:=a;
   n:=1;
   repeat
    n:=n+1;
    a:=-a*(n-1)/n*x;
    S:=S+a;
   until Abs(a)<1E-7;
   Writeln(x:6:3,S:15:5,Ln(1+x):15:5);
   Writeln(f,x:6:3,S:15:5);
  end;
 Close(f);
 Readln
End.
Vladimir_S вне форума   Ответить с цитированием
Старый 20.12.2015, 20:11   #20 (permalink)
EVO_X
Member
 
Регистрация: 26.01.2013
Сообщений: 946
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 497
По умолчанию

Во, то что нужно
Еще добавлю чтобы при задании значений промежутка не выходить за (-1,1)
EVO_X вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:21.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.