Помогите, пожалуйста, написать программу в Паскале

[Сергей06]

Помогите, пожалуйста, написать программу в Паскале

Доброго времени суток, помогите, пожалуйста, написать программу в Паскале, задание прикреплено вложением, благодарю за помощь.

С уважением,
Сергей

 

[Vladimir_S]

Доброго времени суток, помогите, пожалуйста, написать программу в Паскале, задание прикреплено вложением, благодарю за помощь. С уважением, Сергей

Дорогой Сергей, на мой взгляд, задача в ТАКОЙ формулировке не имеет решения, ибо определение компонентов первого массива αj через сумму αi неизбежно приведет к зацикливанию программы.

 

[Сергей06]

Владимир спасибо за пояснение я Вам очень признателен за оказанную помощь, скажите, а возможно подогнать или изменить что бы программа не зацикливалась?

 

[Vladimir_S]

Владимир спасибо за пояснение я Вам очень признателен за оказанную помощь, скажите, а возможно подогнать или изменить что бы программа не зацикливалась?

Нет, но можно уточнить условие. В формулировке задачи - явная лажа.

 

[Сергей06]

попробую уточнить условие задачи, благодарю за проявленное терпение.

 

[Vladimir_S]

попробую уточнить условие задачи, благодарю за проявленное терпение.

Да, уточните. Предполагаю, что слева должно быть не αj, а какое-нибудь βj.

 

[Сергей06]

Владимир, а Вы не могли бы составить программу с βj, а то я в этом ничего не смыслю, вообще, а девушка, которой эта задача требуется говорит что ошибка имеет место быть, но уточнить она уже не может, т.к. преподавателя не будет до следующей недели, а сдавать придется...
Очень прошу Вас помочь.

 

[Vladimir_S]

Очень прошу Вас помочь.

Ладно, сейчас нарисую.

 

[Vladimir_S]

Например, так:

Var
 Alpha:Array[1..15] of Real;
 Beta,Gamma:Array[1..7] of Real;
 i:Integer;
 S,P:Real;
Begin
 Randomize;
 S:=0;
 P:=1;
 Writeln('Array Alpha:');
 For i:=1 to 15 do
  begin
   Alpha[i]:=Random*20;
   Write(Alpha[i]:8:2);
   S:=S+Alpha[i];
  end;
 Writeln;
 Writeln('Array Gamma:');
 For i:=1 to 7 do
  begin
   Gamma[i]:=Random*10+0.1;
   Write(Gamma[i]:8:2);
   P:=P*Gamma[i];
  end;
 Writeln;
 Writeln;
 Writeln('Array Beta:');
 For i:=1 to 7 do
  begin
   Beta[i]:=Gamma[i]*(Gamma[1]+S)/(Alpha[1]+P);
   Write(Beta[i]:8:2);
  end;
 Readln
End.

 

[Сергей06]

Владимир, спасибо Вам огромное!

 

[Сергей06]

Владимир, прошу прощения, мне сказали что эта программа очень длинная, и оператор Randomize они не приходили (и типо пользоваться нельзя тем что не проходили), в миниатюрах прикреплена похожая задача (которые они на парах делают), как я понял эта должна быть примерно такой же, в общем беда какая-то...

 

[Vladimir_S]

оператор Randomize они не приходили (и типо пользоваться нельзя тем что не проходили)

Без проблем. Заменил ввод массивов ручным:

Var
 Alpha:Array[1..15] of Real;
 Beta,Gamma:Array[1..7] of Real;
 i:Integer;
 S,P:Real;
Begin
 S:=0;
 P:=1;
 For i:=1 to 15 do
  begin
   Write('Alpha[',i:2,']= ');
   Readln(Alpha[i]);
   S:=S+Alpha[i];
  end;
 Writeln;
 For i:=1 to 7 do
  begin
   Write('Gamma[',i:2,']= ');
   Readln(Gamma[i]);
   P:=P*Gamma[i];
  end;
 Writeln;
 Writeln('Array Alpha:');
 For i:=1 to 15 do Write(Alpha[i]:8:2);
 Writeln;
 Writeln('Array Gamma:');
 For i:=1 to 7 do Write(Gamma[i]:8:2);
 Writeln;
 Writeln;
 Writeln('Array Beta:');
 For i:=1 to 7 do
  begin
   Beta[i]:=Gamma[i]*(Gamma[1]+S)/(Alpha[1]+P);
   Write(Beta[i]:8:2);
  end;
 Readln
End.

Владимир, прошу прощения, мне сказали что эта программа очень длинная

Даже не знаю - злиться или смеяться над подобными "требованиями". В программе нет АБСОЛЮТНО ничего лишнего: вводятся два массива, в тех же циклах ввода считаются сумма элементов для одного и произведение элементов для другого, введенные массивы выводятся на экран, потом по формуле считается третий массив с выводом опять же на экран - всё! Ума не приложу как тут сделать, чтобы было "покороче".

как я понял эта должна быть примерно такой же

А она и есть практически "такая же", разница в том, что в приведенном образце всего один массив, а в данной задаче - два, отсюда программа и длинней.

 

[Сергей06]

Владимир, огромное Вам спасибо!
Прошу простить меня за столь непрофессиональный подход и глупые вопросы, совсем не хотел Вас обидеть каким-либо словом, благодарю за то что выслушали, помогли и так подробно объяснили!

С Уважением,
Сергей