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

Исправить ошибки в коде

20.02.2016, 20:01. Просмотров 282. Ответов 2
Метки нет (Все метки)

Старая программа, помогите исправить ошибки или подскажите, какая программа поддерживает такой вариант. Буду очень благодарен.
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
Program Newton_RGR;
  var P: array [1..9] of real;
    X, E: real;
    K, N: integer;
function F(X: real): real;
    var Q, R: real;
  begin 
    Q:=P[1];
    R:=0.0;
    for K:=2 to N do
      begin
        R:=Q+X*R;
        Q:=P[K]+X*Q;
      end;  
     F:=Q/R;
   end;
procedure NEWTON(var X, E: real; function F: real);
    var F1: real;
  begin 
    repeat
      F1:=F(X);
      X:=X-F1;
    until abs(F1><E);
  end;
begin
  repeat
    write (‘Введіть значення і крок:);
    readln (X, E);
    write (‘Введіть кількість параметрів:);
    readln (N);
    for K:=1 to N do
      begin
        write (‘P(,K:2,)=);
        readln (P[K]); 
      end; 
    NEWTON(X, E, F);
    writeln (‘X=,X);
  until false;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.02.2016, 20:01
Ответы с готовыми решениями:

Сортировка - исправить ошибки в коде
Const x:arrayof integer=(-1,2,4,-8,1,3,5,13,-4,7); Var i,s,k:integer; Begin for k:=5 to 8...

Найти и исправить ошибки в коде
program ciklicheskie; var n1, n2, nom :integer; u1, u2, u3 : boolean; k1, k2, k3, k4, x,...

Исправить ошибку в коде
var s,n,i:integer; a:array of integer; begin s:=0; readln(n); for i:=1 to n do ...

ошибки в коде
VAR Ch: CHAR; BEGIN Assign(input, '1.txt'); Reset(input); Assign(output, '2.txt'); ...

не могу исправить ошибку в коде
не могу исправить ошибку в коде Program Zer; var br1, br2, expr: string; i, k: integer; ...

2
capricornus CF
316 / 206 / 162
Регистрация: 08.12.2015
Сообщений: 853
20.02.2016, 23:00 2
Только править ошибки. И насчет 23 строки, вы что имели ввиду? Я правильно понял?
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
Program Newton_RGR;
type fun=function (X: real): real;
  var P: array [1..9] of real;
    X, E: real;
    K, N: integer;
function F(X: real): real;
    var Q, R: real;
    k:integer;
  begin 
    Q:=P[1];
    R:=0.0;
    for K:=2 to N do
      begin
        R:=Q+X*R;
        Q:=P[K]+X*Q;
      end;  
     F:=Q/R;
   end;
procedure NEWTON(var X, E: real;  F: fun);
    var F1: real;
  begin 
    repeat
      F1:=F(X);
      X:=X-F1;
    until abs(F1)<>abs(E);
  end;
begin
  repeat
    write ('Введіть значення і крок: ');
    readln (X, E);
    write ('Введіть кількість параметрів: ');
    readln (N);
    for K:=1 to N do
      begin
        write ('P(',K:2,')= ');
        readln (P[K]); 
      end; 
    NEWTON(X, E, F);
    writeln ('X=',X);
  until false;
end.
1
zhenia97
0 / 0 / 0
Регистрация: 24.11.2014
Сообщений: 27
20.02.2016, 23:20  [ТС] 3
Не знаю, эт не мой код. Эта программа по идее должна реализовать интерполяцию за методом Ньютона
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.02.2016, 23:20

Найти ошибки в коде
Помогите пожалуйста найти ошибку. Код: program lab6; type a1 = array of integer; b1 =...

Найти ошибки в коде
uses SysUtils; const t=5; type t1=array of integer; var n,m,max1,max2,l:integer; mas:t1;...

Найти ошибки в коде
Помогите найти ошибки! program one; var a:array of integer; a,n:integer; begin...


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

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

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