|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
21.05.2013, 17:09 | #11 (permalink) |
Новичок
Регистрация: 06.05.2013
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 110
|
|
21.05.2013, 17:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Прочтите эти темы и вы откроете много нового в решении проблемы Помогите, пожалуйста, написать на Паскале программу "Циклический алгоритм" Помогите написать программу в Паскале Помогите, пожалуйста, написать программу на Паскале Помогите написать программу на Паскале Помогите написать программу на Паскале Пожалуйста, помогите написать программу в Паскале. |
21.05.2013, 19:06 | #12 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
21.05.2013, 19:40 | #13 (permalink) |
Новичок
Регистрация: 06.05.2013
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 110
|
Владимир, огромное Вам спасибо!
Прошу простить меня за столь непрофессиональный подход и глупые вопросы, совсем не хотел Вас обидеть каким-либо словом, благодарю за то что выслушали, помогли и так подробно объяснили! С Уважением, Сергей |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|