Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Паскаль
Форум Точек.нет - общение без границ ! > Техномир > Программирование > Архив
СМЕХ
Люди добрые помогите решить прогу на Паскале. Буду пожизненно благодарен.

Дан массив Z [16] любых численных элементов.
Определить:
1) Произведение Р и сумму S элементов массива, занимающих нечетные места
2) Сформировать новый массив К [16] :
К [i] = Z [i]*
Pip
Цитата(СМЕХ)
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]
Sith
Код
S:=0; P:=1;

for i:=1 to 16 do

begin

  P:=P*Z[i];

  S:=S+Z[i];

  i:=i+1;

end;

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


Кто-нибудь знает как блок схему к этой задаче сделать?
Pip
Цитата(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;

Ты вообще блок схемы рисовать не умеешь? Это же элементарный алгоритм..
Гость
мдааа Я и этого не знаю,а мне 15 лет!Даже незнаю с чего начать.
Гость
И не могу зарегистрироваться!
Belissimo
С 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;

кто рубит в математике - проверьте пжлст, а то столько водки протекло сквозь мозг после того, как я покинул школьную скамью...

Остальное, надеюсь, сами додумаете?
PeaceHaver
А как его перевести? ai.gif
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2023 IPS, Inc.