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

@Куяналекс · Регистрация: 20.12.2016

Author24 — интернет-сервис помощи студентам

Встречено ':', а ожидалось ')' а ожидался оператор. Девятая строка.

Pascal

var b,a,x,y:real;
begin
clrscr;
x:=a;
while x<=b do {b}
 begin
  y:=function(x):
  writeln('x=',x:0:1,' y=',y:0:2);
  h:=(b-a)/m;
 end;
readln
end.

Используя все три вида операторов цикла составить программы табулирования функции y=f(x) на отрезке a b с шагом h=(b-a)/m, где m - заданное число.

Функция	a	b	m
x³+exp(x)	-9	3	12

@Vyacheslav99 · 19.11.2017, 18:12

Может быть так?

Pascal

Program tab;
Uses crt;
var b,a,x,y,h,m:real;
begin
clrscr;
a:=-9;
b:=3;
m:=12;
x:=a;
h:=(b-a)/m;
while x<=b+h/2 do 
begin
y:=power(x,1/3)+exp(x);
writeln('x=',x:8:2);
writeln( 'y=',y);
break;
end;
readln;
end.

Или лучше так?

Pascal

Program tab;
Uses crt;
var b,a,x,y,h,m:real;
begin
clrscr;
a:=-9;
b:=3;
m:=12;
x:=a;
h:=(b-a)/m;
while x<=b+h/2 do 
begin
y:=power(x,1/3)+exp(x);
writeln('x=',x:8:2);
writeln( 'y=',y);
x:=x+h;
end;
readln;
end.

@Cyborg Drone · 20.11.2017, 15:57

Vyacheslav99, неверно. Не x^1/3, а x³. В первой программе вместо x:=x+h зачем-то break написали. Uses crt и clrscr в этой программе не требуются совершенно. Не ошибка, но две точки с запятой лишние. Вывод в разных строках x и y несколько неинформативно. Текст программы форматируйте, пожалуйста, если программа будет достаточно большая, без форматирования уже ни в чём не разберёшься. Если уж выкладываете ответ, так проверяйте работоспособность программы.

Вот так нужно:

Pascal

var a, b, m, x, y, h: real;
begin
  a :=- 9;
  b := 3;
  m := 12;
  x := a;
  h := (b - a) / m;
  b := b + h / 2;
  while x < b do
    begin
      y := x * x * x + exp(x);
      writeln('x = ', x:4:1, ',  y = ', y:15:10);
      x:=x+h
    end;
  readln
end.

Можно избавиться от y:

Pascal

var a, b, m, x, h: real;
begin
  a :=- 9;
  b := 3;
  m := 12;
  x := a;
  h := (b - a) / m;
  b := b + h / 2;
  while x < b do
    begin
      writeln('x = ', x:4:1, ',  y = ', x * x * x + exp(x):15:10);
      x:=x+h
    end;
  readln
end.

Можно немного сократить программу:

Pascal

var x: integer;
begin
  for x := -9 to 3 do writeln('x = ', x:2, ',  y = ', x * x * x + exp(x):15:10);
  readln
end.

@Vyacheslav99 · 20.11.2017, 16:48

Cyborg Drone, ну, я проверяю и закрепляю знания Pascal помогая другим на форуме, всем свойственно ошибаться. Спасибо что поправили

@Vyacheslav99 15 / 16 / 15 Регистрация: 10.11.2017 Сообщений: 187
	20.11.2017, 16:48	4
	Cyborg Drone, ну, я проверяю и закрепляю знания Pascal помогая другим на форуме, всем свойственно ошибаться. Спасибо что поправили 0