Версия для печати темы

Автор: dipp 18.12.2006 6:27

Вот такую задачку задали,честно говоря незнаю,как сделать
А сдавать уже завтра,помогите пожалуйста
ЗЫ задача в аттаче


Эскизы прикрепленных изображений

Автор: klem4 19.12.2006 1:14

Ну в чем проблема - то ? Не умеешь работать с массивами ? Велкам: http://forum.pascal.net.ru/index.php?showtopic=2694

А вот основная часть решения ....

//...

if (b[1] <> 0) and (a[8] <> 0) then begin

  s1 := 0;
  s2 := 0;

  for i := 1 to 8 do begin
    s1 := s1 + a[i];
    s2 := s2 + b[i];
  end;

  s1 := s1 / b[1];
  s2 := s2 / a[8];

  t := s1 / s2; // чтобы не пересчитывать каждый раз

  for i := 1 to 5 do
   f[i] := t * c[i];
end;