Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 15.09.2020
Сообщений: 8
1

Встречено ';', а ожидалось ')'

15.09.2020, 11:25. Просмотров 903. Ответов 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
program labanumberone;
const e=2.71828;
var x,f:real;
begin
x:=(-9);
while x<=8 do
begin
if x<(-7) then 
f:=cos(x)/cos(x)-x*x/exp(ln(x)*(0.1*x));
writeln ('x=',x,'f=',f);
x:=(x+0.3);
if (-7)<=x<(-3) then 
f:=(exp(ln(x)*(0.1*x))/sin(x);
writeln ('x=',x,' f=',f);
x:=(x+0.3);
if (-3)<=x<6 then 
f:=x;
writeln ('x=',x,' f=',f);
x:=(x+0.3);
if 6<=x then 
f:=(e^(x))/(exp(ln(x)*(1/3))-28/lg(x);
writeln ('x=',x,' f=',f);
x:=(x+0.3);
end;
end.
В 13 строчке пишет такую ошибку, не вижу в чём проблема (программа, конечно, ещё совсем не доделана, но если есть советы, то буду рад подсказкам, а то я вообще пень полный пока что)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.09.2020, 11:25
Ответы с готовыми решениями:

Встречено 'i', а ожидалось ';'
во всех строках типа writeln('введите координаты X Y Z 'i'й точки:'); не хочет добавлять цифру...

Встречено '.', а ожидалось ';'
Ошибка при компиляции type reals = file of real; procedure p(f,g,h:reals); var k,sum : real; ...

Встречено 'else', а ожидалось ';'
var a,b,c,D, x1, x2: real; begin writeln('Дано уравнение вида ax^2+bx+c=0'); writeln...

Встречено '.', а ожидалось ';'
Привет, форум. Не могу найти ошибку, поможете? function Chr(arg : integer) : char; function...

2
2140 / 998 / 401
Регистрация: 19.03.2019
Сообщений: 3,215
15.09.2020, 11:35 2
Лучший ответ Сообщение было отмечено MegaTupoiChel как решение

Решение

скобка перед exp лишняя
или убери её или в конце добавь закрывающую

и в 21 строке такая же беда - тут, скорее всего, нужно в конце добавить:
Pascal
21
f:=(e^(x))/(exp(ln(x)*(1/3))-28/lg(x));
ну это смотря что у тебя в знаменателе

Добавлено через 3 минуты
а ещё в 12 строке нельзя так сравнивать.
ты, наверное, так хотел написать:
Pascal
12
if (-7<=x) and (X<-3) then
Добавлено через 4 минуты
и ещё в 16 и ещё в 18 строке и ещё в 21 ошибки...
мда..

так:
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
program labanumberone;
 
var
  x, f: real;
 
begin
  x := -9;
  while x <= 8 do
  begin
    if x < -7 then
      f := cos(x) / cos(x) - x * x / exp(ln(x) * (0.1 * x));
    writeln('x=', x, 'f=', f);
    x := x + 0.3;
    if (-7 <= x) and (x < -3) then
      f := exp(ln(x) * (0.1 * x)) / sin(x);
    writeln('x=', x, ' f=', f);
    x := x + 0.3;
    if (-3 <= x) and (x < 6) then
      f := x;
    writeln('x=', x, ' f=', f);
    x := x + 0.3;
    if 6 <= x then
      f := (exp(x)) / (exp(ln(x) * (1 / 3)) - 28 / (ln(x) / ln(e)));
    writeln('x=', x, ' f=', f);
    x := x + 0.3;
  end;
end.
1
0 / 0 / 0
Регистрация: 15.09.2020
Сообщений: 8
15.09.2020, 11:41  [ТС] 3
Спасибо большое! По ходу дела остальное доработаю)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.09.2020, 11:41

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Встречено ';', а ожидалось ')'
Program2.pas(19) : Str (r:integer; buf:string); ошибка Встречено ';', а ожидалось ')'

Встречено 'else', а ожидалось ';'
program Nikita; var A, B, N, x : integer; d, F :real; Function Cos(X : integer): Real;...

Встречено 'until', а ожидалось ';'
Program calculator; //v1.1 var a,b,rez:real;oper,calc:string;flag_start:boolean; Begin...

Встречено else, а ожидалось ';'
var a1,b1,a,b: real; begin Writeln('Введите А'); readln(a); Writeln('Введите B'); readln(b);...

Встречено '.', а ожидалось ';'
На 169 строке возникает ошибка &quot;Встречено '.', а ожидалось ';'&quot;. Помогите, пожалуйста, решить ее. ...

Встречено 'else', а ожидалось ';'
program lol; uses crt; const nmax = 20; type matr = array of integer;


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

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

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