13Ви13

Ребята помогите пожалуйста!
Выдает ошибку, что не так?
Найти значение у (линейная интерполяция)
Program int ;
var x , y : array [ 1 .. 4 ] of real ;
i : integer ; q : real ; z , a , b : real ;
begin
for i := 1 to 4 do
begin
writeln ( ‘ введите xi , yi ’ ) ;
read ( x [ i ] , y [ i ] ) end ;
read ( q ) ;
for i := 1 to 3 do begin
if ( q >= x [ i ] ) and ( q <= x [ i + 1 ] ) then begin
a := ( y [ i + 1 ] - y [ i ] ) / ( x [ i + 1 ] - x [ i ] ) ;
b := y [ i ] - a * x [ i ] ; y := a * q + b ;
writeln ( ‘ y = ‘ , y ) ; end ; end ;
writeln ( ‘ q не принадлежит интервалу ‘ )
end .

b.kollerov

А что это такое?

__________________
С уважением Борис.

MagentaTiger

Да вроде все нормально, только перед выражением
a := ( y [ i + 1 ] - y [ i ] ) / ( x [ i + 1 ] - x [ i ] ) ;
я бы сделал проверку что ( x [ i + 1 ] - x [ i ] ) <> 0
А что за ошибка то ?

Vladimir_S

Прежде всего, "не так" ваше чересчур вольное обращение с кавычками, апострофами и т.п. Вообще-то Паскаль понимает только один вид: ' (это где клавиша с русской буквой "Э"). Исправьте.
Есть еще одно. Старайтесь при считывании с экрана НЕ пользоваться оператором Read, лучше Readln. Read - он такой... немного скользкий, может внести путаницу. Ввод данных я бы оформил так:

13Ви13

ошибка: нельзя преобразовать тип real к array [1..4] of real

13Ви13

Вот что выходит

MagentaTiger

А ну да все правильно Y у вас массив же, замените у на z будет вам счастье
т.е. вместо
y := a * q + b ;
writeln ( 'y = ', y ) ;

z:= a * q + b ;
writeln ( 'z= ', z) ;

13Ви13

СПАСИБО, ВСЕ РАБОТАЕТ!!!!!!!!!!!!!!!!!