Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 21.05.2013, 17:09   #11 (permalink)
Сергей06
Новичок
 
Регистрация: 06.05.2013
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 110
По умолчанию

Владимир, прошу прощения, мне сказали что эта программа очень длинная, и оператор Randomize они не приходили (и типо пользоваться нельзя тем что не проходили), в миниатюрах прикреплена похожая задача (которые они на парах делают), как я понял эта должна быть примерно такой же, в общем беда какая-то...
Миниатюры
caaea-ianeaeue.jpg   caaea-ianeaeue_2.jpg  
Сергей06 вне форума   Ответить с цитированием

Старый 21.05.2013, 17:09
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Прочтите эти темы и вы откроете много нового в решении проблемы

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

Старый 21.05.2013, 19:06   #12 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Сергей06 Посмотреть сообщение
оператор 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 Посмотреть сообщение
Владимир, прошу прощения, мне сказали что эта программа очень длинная
Даже не знаю - злиться или смеяться над подобными "требованиями". В программе нет АБСОЛЮТНО ничего лишнего: вводятся два массива, в тех же циклах ввода считаются сумма элементов для одного и произведение элементов для другого, введенные массивы выводятся на экран, потом по формуле считается третий массив с выводом опять же на экран - всё! Ума не приложу как тут сделать, чтобы было "покороче".
Цитата:
Сообщение от Сергей06 Посмотреть сообщение
как я понял эта должна быть примерно такой же
А она и есть практически "такая же", разница в том, что в приведенном образце всего один массив, а в данной задаче - два, отсюда программа и длинней.
Vladimir_S вне форума   Ответить с цитированием
Старый 21.05.2013, 19:40   #13 (permalink)
Сергей06
Новичок
 
Регистрация: 06.05.2013
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 110
По умолчанию

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

С Уважением,
Сергей
Сергей06 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.