Подсчитать веса.ошибка!

@Ксения257 · Регистрация: 06.05.2014

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

Помогите найти ошибку!
2 класса объёктов. В качестве объектов выступает последовательность из нулей и единиц длины 3 (000, 001, 010, 011, 100, 101, 110, 111). Объекты с четным числом единиц относятся к первому классу, остальные – ко второму. Необходимо подобрать соответствующие веса w,такие что
w1x1+w2x2+w3x3>h,то y=1 и => это 1 класс, иначе y=2 и это 2 класс.
h-пороговое значение,задаем самостоятельно.
в моем коде он не правильно подсчитывает веса w.

Pascal

program hl;
 
var a,w: array [1..100] of integer;
i,y: integer;
h,f: real;
label g;
label gg;
begin
writeln('Vvedite x');
for i:=1 to 3 do
read(a[i]);
 
w[1]:=1;
w[2]:=1;
w[3]:=1;
 
h:=0.2;
 
f:=0;
for i:=1 to 3 do
f:=f+a[i]*w[i];
 
if f>h then 
begin
y:=1;
 writeln('class 1, y=',y);
 
g: w[1]:=(Random(7)-1);
   w[2]:=(Random(7)-1);
   w[3]:=(Random(7)-1);
 
f:=0;
for i:=1 to 3 do
f:=f+a[i]*w[i];
if f>h then for i:=1 to 3 do write(w[i])
else goto g;
 
end
 else 
  begin
  y:=0;
  writeln('class 2, y=',y);
 
f:=0;
for i:=1 to 3 do
f:=f+a[i]*w[i];
if f<=h then for i:=1 to 3 do write(w[i]);
 end;
end.

@sid_sid · 13.06.2014, 19:01

Нашла ошибку?))

@sid_sid 0 / 0 / 0 Регистрация: 14.05.2014 Сообщений: 11
	13.06.2014, 19:01	2
	Нашла ошибку?)) 0