Помощник
Здравствуйте, гость ( Авторизация | Регистрация )
24.10.2006 - 20:54
Сообщение
#1
|
|
|
Новенький Текущее настроение: ![]() Вст. ник | Цитата Группа: registered Сообщений: 2 Регистрация: 24.10.2006 Пользователь №: 4763 Награды: Нет Подарки: 0 Репутация: 0
|
Люди добрые помогите решить прогу на Паскале. Буду пожизненно благодарен.
Дан массив Z [16] любых численных элементов. Определить: 1) Произведение Р и сумму S элементов массива, занимающих нечетные места 2) Сформировать новый массив К [16] : К [i] = Z [i]* -------------------- Подарки: (Всего подарков: 0 ) У пользователя нет подарков
|
|
|
|
|
|
|
|
|
![]() |
24.10.2006 - 22:33
Сообщение
#2
|
|
![]() Местный ![]() ![]() Текущее настроение: ![]() Вст. ник | Цитата Группа: registered Сообщений: 289 Регистрация: 8.07.2006 Пользователь №: 1690 Из: Н.Новгород Награды: Нет Подарки: 0 Пол: М Репутация: 1
|
Цитата(СМЕХ) 1) Произведение Р и сумму S элементов массива, занимающих нечетные места
я паскаль забыл))за синтаксис не отвечаю.. Код S:=0;
for i=1 to 16 do begin P=P*Z[i]; S=S+Z[i]; i=i+2; end; Цитата(CMEX) 2) Cформировать новый массив К [16] :
К [i] = Z [i]* Чет я не понял, что значит звездочка? Если без неё, то в цикле от1до16 с шагом 1 приравниваешь P[i]:=Z[i] -------------------- Fall○ut рулит!!
-------------------- Подарки: (Всего подарков: 0 ) У пользователя нет подарков
|
|
|
|
|
|
|
24.10.2006 - 23:53
Сообщение
#3
|
|
![]() Местный ![]() ![]() Текущее настроение: ![]() Вст. ник | Цитата Группа: registered Сообщений: 194 Регистрация: 2.01.2006 Пользователь №: 5 Награды: Нет Подарки: 0 Репутация: 2
|
Код S:=0; P:=1;
for i:=1 to 16 do begin P:=P*Z[i]; S:=S+Z[i]; i:=i+1; end; так точнее -------------------- Возможно, что человек, который знал, как это работает, был замучен еще до того, как все было инсталлировано. Уничтожение создателя - действенный метод повышения уровня безопасности.
-------------------- Подарки: (Всего подарков: 0 ) У пользователя нет подарков
|
|
|
|
|
|
|
25.10.2006 - 9:06
Сообщение
#4
|
|
|
Новенький Текущее настроение: ![]() Вст. ник | Цитата Группа: registered Сообщений: 2 Регистрация: 24.10.2006 Пользователь №: 4763 Награды: Нет Подарки: 0 Репутация: 0
|
во втором задании 2)Сформировать новый массив К [16] :
К [i] = Z [i]* корень третьей степени из (i*S[i]) Кто-нибудь знает как блок схему к этой задаче сделать? -------------------- Подарки: (Всего подарков: 0 ) У пользователя нет подарков
|
|
|
|
|
|
|
25.10.2006 - 20:46
Сообщение
#5
|
|
![]() Местный ![]() ![]() Текущее настроение: ![]() Вст. ник | Цитата Группа: registered Сообщений: 289 Регистрация: 8.07.2006 Пользователь №: 1690 Из: Н.Новгород Награды: Нет Подарки: 0 Пол: М Репутация: 1
|
Цитата(Sith) Код S:=0; P:=1;
for i:=1 to 16 do begin P:=P*Z[i]; S:=S+Z[i]; i:=i+1; end; так точнее Ага..после Си хрен вспомнишь этот паскаль)) Цитата(CMEX) 2)Сформировать новый массив К [16] :
К [i] = Z [i]* корень третьей степени из (i*S[i]) Тогда так попробуй: Код for i:=1 to 16 do begin
K[i]:=Z[i]*(i*S[i])^(1/3); i:=i+1; end; Ты вообще блок схемы рисовать не умеешь? Это же элементарный алгоритм.. -------------------- Fall○ut рулит!!
-------------------- Подарки: (Всего подарков: 0 ) У пользователя нет подарков
|
|
|
|
|
|
|
| Гость_Гость_* |
14.11.2006 - 17:01
Сообщение
#6
|
|
| Цитата Guests |
мдааа Я и этого не знаю,а мне 15 лет!Даже незнаю с чего начать.
|
|
|
|
|
|
|
| Гость_Гость_* |
14.11.2006 - 17:02
Сообщение
#7
|
|
| Цитата Guests |
И не могу зарегистрироваться!
|
|
|
|
|
|
|
15.03.2007 - 15:20
Сообщение
#8
|
|
|
Новенький Текущее настроение: ![]() Вст. ник | Цитата Группа: registered Сообщений: 9 Регистрация: 14.03.2007 Пользователь №: 9408 Награды: Нет Подарки: 0 Пол: М Репутация: 0
|
С i:=i+1 внутри цикла работать будет, но вообще это некорректно (например, компилятор дельфи ругнулся бы на такое)
Грамотно это пишется так: Код S:=0; P:=1; for i:=0 to 7 do begin P:=P*Z[i+1]; S:=S+Z[i+1]; i:=i+1; end; что же касается корня третьей степени - на паскале он реализуется с через логарифмы: a^b = e^b * ln (a) (по-моему так) или function pow(a,b:Extended):Extended; begin pow:=exp(b) * ln(a); end; кто рубит в математике - проверьте пжлст, а то столько водки протекло сквозь мозг после того, как я покинул школьную скамью... Остальное, надеюсь, сами додумаете? -------------------- Подарки: (Всего подарков: 0 ) У пользователя нет подарков
|
|
|
|
|
|
|
|
|
16.03.2007 - 13:10
Сообщение
#9
|
|
![]() Древний Ирландец ![]() ![]() ![]() ![]() Текущее настроение: ![]() Вст. ник | Цитата Группа: Жители Сообщений: 582 Регистрация: 4.03.2007 Пользователь №: 9189 Из: Страна восходящего солнца Награды: Нет Подарки: 0 Пол: М Репутация: 6
|
А как его перевести?
-------------------- Маленький мальчик в лесу потерялся,
Вкусный обед медведю достался! ![]() -------------------- Подарки: (Всего подарков: 0 ) У пользователя нет подарков
|
|
|
|
|
|
|
![]() ![]() |
![]() |
| Текстовая версия | Сейчас: 20.04.2023 - 16:10 |