Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
2 / 2 / 1
Регистрация: 06.10.2012
Сообщений: 16
1

Метод Симпсона - попытка присвоить значение integer переменной типа real

19.12.2012, 15:04. Показов 1818. Ответов 1
Метки нет (Все метки)

Как исправить ошибку? В строке N2:= n/2; пишет попытка присвоить значение integer переменной типа real. Не могу понять что не так?
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
program pr9;
var
   k, n, N2:integer;
   a, b, h, s,s1, x, x1, x2, x3, e: real;
 
function F(x:real):real;
begin
F:=sin(x*x+x+1);
end;
 
begin
    writeln('Ââåäèòå ïðåäåëû a è b, òî÷íîñòü e:');
    write('a= ');
    readln(a);
    write('b= ');
    readln(b);
    write('e= ');
    readln(e);
    n:= 2;
    s1:= 0;
    repeat
       s1:= s;
       n:= 2*n;
       h:= (b - a)/n;
       x:= a;
       s:= 0;
       N2:= n / 2;
       for  k:= 1  to N2  do  begin
            x1:= x;
            x2:= x1 + h;
            x3:= x2 + h;
            s:= s + F(x1)+F(x2)+F(x3);
            x:= x3;
        end;
     until   abs(s - s1)<=e;
    writeln('Èíòåãðàë = ', s);
readln;
end.
1

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2012, 15:04
Ответы с готовыми решениями:

Попытка присвоить переменной типа integer выражение типа real
Здравствуйте! Моя задача: Найти сумму всех n-значных чисел, кратных k (1 ≤ п ≤ 4). Я...

Попытка присвоить переменной типа integer выражение типа real
Здравствуйте форумчане. Написала программу для замены элементов массива после максимального...

Попытка присвоить переменной integer выражение real. Как исправить ошибку?
Здравствуйте, такой вопрос, как исправить данную ошибку? Задание такое: &quot;Заполните все элементы,...

"Попытка присвоить переменной типа integer выражение типа char"
program laba1; var x:array of integer; i, j : integer; // Счётчики строк и столбцов. N, M :...

1
2 / 2 / 1
Регистрация: 06.10.2012
Сообщений: 16
12.04.2013, 18:54  [ТС] 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
program simpson;
var
   k, n, N2:integer;
   a, b, h, s,s1, x, x1, x2, x3, e: real;
 
function F(x:real):real;
begin
F:=sin(x*x+x+1);
end;
 
begin
    writeln('Vvedite a,b,e:');
    write('a= ');
    readln(a);
    write('b= ');
    readln(b);
    write('e= ');
    readln(e);
    n:= 1;
    s1:= 0;
    repeat
       s1:= s;
       n:= 2*n;
       h:= (b - a)/n;
       x:= a;
       s:= 0;
       N2:=n div 2;
       for  k:= 1  to N2  do  begin
            x1:= x;
            x2:= x1 + h;
            x3:= x2 + h;
            s:= s + F(x1)+4*F(x2)+F(x3);
            x:= x3;
        end;
        s:=s*(h/3);;
     until   abs(s - s1)<=e;
    writeln('Integr = ', s);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2013, 18:54

Перенос значения переменной типа Real в переменную типа Integer
Как сделать так чтобы переменная типа integer приняло число которое было в переменной типа real???

Ошибка: присвоить переменной типа real выражение типа boolean
program graf; var x, y: real; begin writeln('Input x= '); readln(x); begin if (x &gt;...

Нужно переменной с типом real присвоить выражение a1 mod 2, где a1 - это переменная с типом integer.
Такой вопрос . Мне нужно переменной с типом real присвоить выражение a1 mod 2 где a1 это...

Попытка присвоить значение Null переменной
Подскажите, пожалуйста, как решить проблему. После нажатия кнопки &quot;Добавить&quot;, выходит сообщение об...


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

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

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