Program PS;

var

n, i: integer;

b: real;

a: array[1 ... 3] of real;

begin

read (n) ;

for i : = 1 to 3 do

a[i] : = random (50) - 20 + random () ;

for i : = 1 to n do

begin

if (a[1] > 15) and (a[2] > 15) and (a[3] > 15) and (otoplenie = true) then

otoplenie : = false;

if (a[1] < 10) and (a[2] < 10) and (a[3] < 10) and (otoplenie = false) then

otoplenie : = true;

a[1] : = t[2];

a[2] : = t[3];

a[3] : = random (50) - 20 + random () ;

end;

end.

Помогите исправить программу, выдает ошибку - Program1. pas (14) : Неизвестное имя 'otoplenie'. Pascal

Question

Информатика

Асуат

10 июня, 10:11

Program PS;

var

n, i: integer;

b: real;

a: array[1 ... 3] of real;

begin

read (n) ;

for i : = 1 to 3 do

a[i] : = random (50) - 20 + random () ;

for i : = 1 to n do

begin

if (a[1] > 15) and (a[2] > 15) and (a[3] > 15) and (otoplenie = true) then

otoplenie : = false;

if (a[1] < 10) and (a[2] < 10) and (a[3] < 10) and (otoplenie = false) then

otoplenie : = true;

a[1] : = t[2];

a[2] : = t[3];

a[3] : = random (50) - 20 + random () ;

end;

end.

Помогите исправить программу, выдает ошибку - Program1. pas (14) : Неизвестное имя 'otoplenie'. Pascal

+4

Ответы (1)

Знаете ответ?

Винценс · Answer 1

Ты не инициализировал переменную otoplenie в блоке var т. е у тебя в блоке var нет переменной otoplenie соответственно программа не знает эту переменную и не может выполнить какие-либо действия с ней. Просто добавь строчку otoplenie: boolean; в блок var и всё.

Вот так:

var

n, i: integer;

otoplenie: boolean;

b:real;

a: array[1 ... 3] of real;