Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 19.01.2011
Сообщений: 134
1

Ошибка - indetifier expected

19.11.2011, 12:09. Показов 1055. Ответов 4
Метки нет (Все метки)

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
type vec=array [1..6] of real;
var
 n:integer;
 a,b,s:real;
 x,c:vec;
 function f(x:real):real;
 begin f:=sin(x) end;
 procedure Gauss(n,k:integer; a,b:real; var x,c:vec;function f:real, var s:real);
 var i,j:integer; h,a1,b1,r,q,s1:real;
 begin h:=(b-a)/n; a1:=a; b1:=a+h; s:=0.0;
 for i:=1 to n do begin r:=(a1+b1)/2; q:=(b1-a1)/2; s1:=0.0;
 for j:=1 to k do s1:=s1+c[j]*f(r+q+x[j]);
 s:=s+s1; a1:=b1; b1:=a1+h;
 end;
 s:=s*q;
 end;
 begin
 x[1]:=0.932469;
 x[2]:=0.661209;
 x[3]:=0.238619;
 x[4]:=-x[1];
 x[5]:=-x[2];
 x[6]:=-x[3];
 c[1]:=0.171324;
 c[2]:=0.360762;
 c[3]:=0.467914;
 c[4]:=c[1]; c[5]:=c[2]; c[6]:=c[3];
 repeat write('n,a,b?'); readln(n,a,b);
 gauss(n,6,a,b,x,c,f,s); writeln('s=',s)
 
 until false
 end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2011, 12:09
Ответы с готовыми решениями:

unknown indetifier
почему мой паскаль не воспринимает graphcolormode и выдает ошибку "unknown...

Ошибка Method indetifier expected
Привет всем. Создаю телефонный справочник. Процедура не запускается из-за ошибки Method indetifier...

Ошибка ; expected
public override string ToString() { return $"Name:{Name},price:{price}"; ...

Ошибка ”;” expected
Uses crt; function Factorial(i:longint):longInt; var Sum:real;f:longint; begin clrscr;...

4
Заблокирован
19.11.2011, 13:22 2
Сделайте отступы и проверьте совпадение количества begin-end.

Добавлено через 1 минуту
Pascal
1
2
3
repeat write('n,a,b?'); readln(n,a,b);
 gauss(n,6,a,b,x,c,f,s); writeln('s=',s)
  until false
тоже непонятно
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
19.11.2011, 13:55 3
Pascal
1
procedure Gauss(n,k:integer; a,b:real; var x,c:vec;function f:real, var s:real);
Это кто Вас учил так использовать функцию как параметр процедуры?
Почитайте где-то про функциональный(процедурный) тип.
0
1 / 1 / 0
Регистрация: 19.01.2011
Сообщений: 134
19.11.2011, 15:18  [ТС] 4
вообще то это из учебника прога
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
19.11.2011, 15:31 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

В Паскале так принято писать.
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
type vec=array [1..6] of real;
     func=function(x:real):real;
{$F+}
function f(x:real):real;
begin
f:=sin(x)
end;
{$F-}
var
 n:integer;
 a,b,s:real;
 x,c:vec;
 
 procedure Gauss(n,k:integer; a,b:real; var x,c:vec;f:func; var s:real);
 var i,j:integer;
     h,a1,b1,r,q,s1:real;
 begin
 h:=(b-a)/n;
 a1:=a;
 b1:=a+h;
 s:=0.0;
 for i:=1 to n do
  begin
   r:=(a1+b1)/2;
   q:=(b1-a1)/2;
   s1:=0.0;
   for j:=1 to k do
   s1:=s1+c[j]*f(r+q+x[j]);
   s:=s+s1;
   a1:=b1;
   b1:=a1+h;
  end;
s:=s*q;
end;
begin
 x[1]:=0.932469;
 x[2]:=0.661209;
 x[3]:=0.238619;
 x[4]:=-x[1];
 x[5]:=-x[2];
 x[6]:=-x[3];
 c[1]:=0.171324;
 c[2]:=0.360762;
 c[3]:=0.467914;
 c[4]:=c[1]; c[5]:=c[2]; c[6]:=c[3];
 repeat
  write('n,a,b?');
  readln(n,a,b);
  gauss(n,6,a,b,x,c,f,s);
  writeln('s=',s)
 until false
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2011, 15:31

Найдите ошибку в коде ')' expected but ';' убираю ; пишет ')' expected but ';'
e:=(7+exp(sqrt(a)+1))/(sqrt(exp(3*ln(ln(b*b-5))-4)+sin(c*c))+exp(3/4*ln(sin(d));

Ошибка expected expression
Не понимаю где здесь ошибка: Range("F1").DataSeriesRowcol:=xlColumns, Type:=xlLinear, Step:=a,...

Ошибка: '[' expected but ':=' found
unit lab; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,...

Ошибка Type name expected
Задачка из учебника Лафоре, накодил в этом вашем C++ builder 6...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru