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

изменить код

17.12.2012, 00:00. Просмотров 237. Ответов 0
Метки нет (Все метки)

помогите плииз!
нужно изменить код, чтоб совпадал этому алгоритму(ниже файл).
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses crt;
const max=500;
Procedure F(x,e:real;var s:real;var i:longint);
var t:real;
begin
 s:=0;
 t:=x;
 i:=0;
  While abs(t/(i+1)) > e do
   begin
   s:=-(s+t/(i+1));
   t:=t*x;
   i:=i+1;
   if I>=max then
   break;
  end;
 end;
Var xn,xk,e,dx,s:real;
               n:longint;
Begin
clrscr;
repeat
Write ('Vvedite nachalo intervala -1<xn<=1 xn=');
readln(xn);
until (xn>-1) and (xn<=1);
repeat
Write ('Vvedite konec intervala',xn:0:1,'<xk<1 xk=');
readln(xk);
until (xk>xn) and (xk<1);
repeat
Write ('Vvedite tochnost v intervale (0,1) e=');
readln(e);
until (e>0) and (e<1);
repeat
Write('Vvedite shag tabylyacii, polozhitelnoe chislo menshe',xk-xn:0:2,'  dx=');
readln(dx);
until (dx<xk-xn) and (dx>0);
clrscr;
Writeln('                 TABLICA                ');
Writeln('----------------------------------------');
Writeln('|    X  |    summa  | ln(x+1)    | n   |');
Writeln('----------------------------------------');
While xn<=xk do
 begin
  F(xn,e,s,n);
  Writeln('|',xn:6:2,' |', s:10:6,' |', ln(xn+1):10:6,' |',n:4,' |');
  xn:=xn+dx;
  end;
Writeln('----------------------------------------');
readln
end.
 
[ATTACH]214301[/ATTACH]

изменять надо вот в этой части, как я понимаю:
Pascal
1
2
3
4
5
6
7
8
 s:=0;
 t:=x;
 i:=0;
  While abs(t/(i+1)) > e do
   begin
   s:=-(s+t/(i+1));
   t:=t*x;
   i:=i+1;
0
Вложения
Тип файла: rar Документ12.rar (28.1 Кб, 0 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2012, 00:00
Ответы с готовыми решениями:

Изменить код используя процедуры
Здравствуйте, нужно изменить код используя процедуры, помогите пожалуйста ...

Изменить код добавив подпрограммы-процедуры
Здравствуйте, помогите изменить код добавив процедуры (procedure) USES CRT;...

Изменить код для Турбо Паскаля
Как изменить код для Турбо Паскаля,насколько понимаю,проблема в регистрах,но...

Изменить код так, чтобы генерировались сочетания
Просьба помочь именно с моим кодом(что-то добавить,исправить,удалить). Свой...

Как изменить код чтобы результат программы выводился отделным текстовым файлом?
n = 15; atext: array of char = ('0','1','2','3','4','5','6','7','8','9');...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2012, 00:00

Изменить код: Упорядочить элементы массива на нечетных местах в возрастающем порядке, на чётных - в убывающем
помогите, пожалуйста. Составте алгоритм упорядочивающий элементы массива...

Изменить код
Нужно немного изменить код, что бы a и b, водились сразу и использовались на...

Просто изменить код Pascal
вот есть такой код программы: uses winCRT; var x1,x2,t,x,dx,eps,f,uk:...


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

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

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