IPB
X   Сообщение сайта
(Сообщение закроется через 2 секунды)

Здравствуйте, гость ( Авторизация | Регистрация )


> Паскаль
СМЕХ
сообщение 24.10.2006 - 20:54
Сообщение #1


Новенький


Текущее настроение:

Вст. ник | Цитата

Группа: registered
Сообщений: 2
Регистрация: 24.10.2006
Пользователь №: 4763

Награды: Нет
Подарки: 0



Репутация:   0  

Люди добрые помогите решить прогу на Паскале. Буду пожизненно благодарен.

Дан массив Z [16] любых численных элементов.
Определить:
1) Произведение Р и сумму S элементов массива, занимающих нечетные места
2) Сформировать новый массив К [16] :
К [i] = Z [i]*


--------------------
Подарки: (Всего подарков: 0 )
У пользователя нет подарков




Go to the top of the pageGo to the end of the page
 
+Quote Post
 
Start new topic
Ответов (1 - 8)
Pip
сообщение 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 )
У пользователя нет подарков




Go to the top of the pageGo to the end of the page
 
+Quote Post
Sith
сообщение 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 )
У пользователя нет подарков




Go to the top of the pageGo to the end of the page
 
+Quote Post
СМЕХ
сообщение 25.10.2006 - 9:06
Сообщение #4


Новенький


Текущее настроение:

Вст. ник | Цитата

Группа: registered
Сообщений: 2
Регистрация: 24.10.2006
Пользователь №: 4763

Награды: Нет
Подарки: 0



Репутация:   0  

во втором задании 2)Сформировать новый массив К [16] :
К [i] = Z [i]* корень третьей степени из (i*S[i])


Кто-нибудь знает как блок схему к этой задаче сделать?


--------------------
Подарки: (Всего подарков: 0 )
У пользователя нет подарков




Go to the top of the pageGo to the end of the page
 
+Quote Post
Pip
сообщение 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 )
У пользователя нет подарков




Go to the top of the pageGo to the end of the page
 
+Quote Post
Гость_Гость_*
сообщение 14.11.2006 - 17:01
Сообщение #6






| Цитата

Guests







    

мдааа Я и этого не знаю,а мне 15 лет!Даже незнаю с чего начать.




Go to the top of the pageGo to the end of the page
 
+Quote Post
Гость_Гость_*
сообщение 14.11.2006 - 17:02
Сообщение #7






| Цитата

Guests







    

И не могу зарегистрироваться!




Go to the top of the pageGo to the end of the page
 
+Quote Post
Belissimo
сообщение 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 )
У пользователя нет подарков




Go to the top of the pageGo to the end of the page
 
+Quote Post
PeaceHaver
сообщение 16.03.2007 - 13:10
Сообщение #9


Древний Ирландец
****

Текущее настроение:

Вст. ник | Цитата

Группа: Жители
Сообщений: 582
Регистрация: 4.03.2007
Пользователь №: 9189
Из: Страна восходящего солнца

Награды: Нет
Подарки: 0

Пол: М


Репутация:   6  

А как его перевести? ai.gif


--------------------
Маленький мальчик в лесу потерялся,
Вкусный обед медведю достался!


--------------------
Подарки: (Всего подарков: 0 )
У пользователя нет подарков




Go to the top of the pageGo to the end of the page
 
+Quote Post

Closed TopicStart new topic
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




> Статистика
Board Stats

Подарок форуму

10 евро

100 евро

10000 евро

1000000eur

  


Текстовая версия Сейчас: 20.04.2023 - 16:10