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

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите, пожалуйста, написать программу в Паскале (http://www.tehnari.ru/f43/t88410/)

Сергей06

21.05.2013 00:34

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

Вложений: 2

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

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

Vladimir_S

21.05.2013 10:38

Цитата:

Сообщение от Сергей06 (Сообщение 909786)

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

Сергей06

21.05.2013 11:38

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

Vladimir_S

21.05.2013 12:20

Цитата:

Сообщение от Сергей06 (Сообщение 909851)

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

Сергей06

21.05.2013 12:32

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

Vladimir_S

21.05.2013 12:38

Цитата:

Сообщение от Сергей06 (Сообщение 909867)

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

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

Сергей06

21.05.2013 14:37

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

Vladimir_S

21.05.2013 14:42

Цитата:

Сообщение от Сергей06 (Сообщение 909890)

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

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

Vladimir_S

21.05.2013 14:54

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

Код:

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

21.05.2013 15:07

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

Часовой пояс GMT +4, время: 09:55.

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице