Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Сумма и произведение элементов массива 
:(
    Опции темы
СМЕХ
Дата 24.10.2006, 21:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

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

Дан массив Z [16] любых численных элементов.
Определить:
1)    Произведение Р и сумму S элементов массива, занимающих нечетные места
2)    Сформировать новый массив К [16] :
К [i] = Z [i]* 
PM MAIL   Вверх
Snowy
Дата 24.10.2006, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 4
Всего: 484
Модератор: Перенесено из Паскаля
PM MAIL   Вверх
Alexeis
Дата 24.10.2006, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

M
alexeis1		Модератор: Название темы должно отражать ее суть!



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Palladin
Дата 25.10.2006, 01:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
1)    Произведение Р и сумму S элементов массива, занимающих нечетные места 
Код

Program RooR;
var
z:array[1..16]of integer;
p,s,i,n:integer;
begin
Writeln('Vvedite kol-vo elementov massiva <=16');
Readln(n);
if n<=16 then 
 begin
   for i:=1 to n do
    begin
     Write('Z[',i,']= ');
     Readln(z[i]);
    end;
    s:=0; p:=1;
   for i:=1 to n do
     begin
       if (i mod 2)<>0 then 
         begin
          s:=s+z[i];
          p:=p*z[i];
         end;
     end;
       Writeln('Proizvedenie  elementov =   ',p);
       Writeln('Summa elementov =',s);
 end
 else
 Writeln('Vi vveli zapredelnoe kol-vo elementov massiva, povtorite!!!');
 Readln;
 end.


По поводу второй задачи, дак я чёто не понял заданияsmile)) умножить на пробел чтолиsmile


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
СМЕХ
Дата 25.10.2006, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
RooR большое спасибо. Второе задание         2)    Сформировать новый массив К [16] :
                                                                               К [i] = Z [i]*корень третей степени из (i*S[i]) 
PM MAIL   Вверх
Palladin
Дата 25.10.2006, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Цитата(СМЕХ @  25.10.2006,  08:59 Найти цитируемый пост)
2)    
Сформировать новый массив К [16] : К [i] = Z [i]*корень третей степени из (i*S[i])


Короче вот, но я давно уже математику закончил поэтмоу подзабыл корень в третьей степени как представить, вроде нужно в степень 1/3 взять, если да то вот код:
Код

program RooR;
var
z,k:array[1..16]of real;
i,j,n:integer;
begin
Writeln('Vvedite kol-vo elementov massiva Z: ');
readln(n);
if n<=16 then 
 begin
  for i:=1 to n do
   begin
     Writeln('Z[',i,']= ');
     readln(z[i]);
   end;
  
  for j:=1 to n do
   begin
     if z[i]<>0 then 
       begin
         k[i]:=z[i]*exp(1/3*ln((i*z[i])));
       end
     else
     z[i]:=0;
   end; 
   writeln('Iznachalniy MASSIV Z:');
  for i:=1 to n do
   Write(z[i],'  ');
    
    Writeln('Poluchenniy new MASSIV K:');
    for i:=1 to n do
    write(k[i],'  ');
 end
  else
  Writeln('Vi vveli zapredelnoe kol-vo elementov massiva, povtorite!!!');
  Readln;
 end.


Добавлено @ 12:13 
P.S.семечкиsmile, хочу на олимпиадуsmile


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
СМЕХ
Дата 25.10.2006, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
Большое спасибо
PM MAIL   Вверх
Palladin
Дата 25.10.2006, 15:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Что работает чтоли????? smile  это ж надо две задачи чисто на форуме писал и сразу работаютsmile))))


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
volvo877
Дата 25.10.2006, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116
Цитата(RooR @  25.10.2006,  14:29 Найти цитируемый пост)
работает чтоли?
С чего бы это оно работало... Оно просто не тестировалось...

Условие
Цитата(СМЕХ @  24.10.2006,  20:06 Найти цитируемый пост)
Дан массив Z [16] любых численных элементов.

И
Цитата(RooR @  25.10.2006,  11:12 Найти цитируемый пост)
Код
k[i]:=z[i]*exp(1/3*ln((i*z[i])));
 - несовместимо... при отрицательном значении Z[i] получишь RunTime Error #207 ... Догадайся, почему...
PM MAIL   Вверх
Palladin
Дата 25.10.2006, 17:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
СМЕХ, написал что работает


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
СМЕХ
Дата 25.10.2006, 20:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
прога работает. только когда запускаешь ее 

Z[1]=2
Z[2]=3
Z[3]=43
Z[4]=4
Z[5]=5
Z[6]=6
Z[7]=787
Z[8]=8
Z[9]=8
Z[10]=87
Z[11]=5
Z[12]=4
Z[13]=4
Z[14]=4
Z[15]=65
Z[16]=75
proizvedenie elementov = -15808
summa elementov = 919

iznachalniy MASSIV Z:
2 3 43 4 5 6 787 8 8 87 5 4 4 4 65 75 poluchenniy new MASSIV K:
 0.0000000000E+00  0.0000000000E+00  0.0000000000E+00  0.0000000000E+00  0.00000
00000E+00  0.0000000000E+00  0.0000000000E+00  0.0000000000E+00  0.0000000000E+0
0  0.0000000000E+00  0.0000000000E+00  0.0000000000E+00  0.0000000000E+00  0.000
0000000E+00  0.0000000000E+00  7.9699392689E+02

вот такая фигня внизу  smile

Добавлено @ 20:39 
ребята подскажите плиз как блок-схему написать
PM MAIL   Вверх
Palladin
Дата 25.10.2006, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
ХА вот переработанная smile 
Код

program RooR;
var
z,k:array[1..16]of real;
i,j,n:integer;
begin
Writeln('Vvedite kol-vo elementov massiva Z: ');
readln(n);
if n<=16 then 
 begin
  for i:=1 to n do
   begin
     Writeln('Z[',i,']= ');
     readln(z[i]);
   end;
  
  for j:=1 to n do
   begin
     if z[j]<>0 then 
       begin
         k[j]:=z[j]*exp(1/3*ln((j*z[j])));
       end
     else
     z[j]:=0;
   end; 
   writeln('Iznachalniy MASSIV Z:');
  for i:=1 to n do
   Write(z[i]:4:4);
    
    Writeln('Poluchenniy new MASSIV K:');
    for i:=1 to n do
    write(k[i]:4:4);
 end
  else
  Writeln('Vi vveli zapredelnoe kol-vo elementov massiva, povtorite!!!');
  Readln;
 end.




--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
СМЕХ
Дата 25.10.2006, 21:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет
16
Z[1]=2
Z[2]=3
Z[3]=4
Z[4]=5
Z[5]=6
Z[6]=7
Z[7]=8
Z[8]=9
Z[9]=0
Z[10]=12
Z[11]=13
Z[12]=12
Z[13]=22
Z[14]=33
Z[15]=45
Z[16]=43
proizvedenie elementov = 0
summa elementov = 100

iznachalniy MASSIV Z:
   2   3   4   5   6   7   8   9   0  12  13  12  22  33  45  43poluchenniy new
MASSIV K:
0.00000.00000.00000.00000.00000.00000.00000.00000.00000.00000.00000.00000.00000.
00000.0000379.6044
ТАЖА ФИГНЯ
PM MAIL   Вверх
volvo877
Дата 25.10.2006, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116
Цитата(СМЕХ @  25.10.2006,  20:57 Найти цитируемый пост)
ТАЖА ФИГНЯ 

Увеличь первый параметр форматирования при выводе... Например, так:
Код

  writeln('Iznachalniy MASSIV Z:');
  for i:=1 to n do write(z[i]:10:4); { <--- 10 вместо 4 }

  Writeln('Poluchenniy new MASSIV K:');
  for i:=1 to n do write(k[i]:10:4); { <--- 10 вместо 4 }


Для твоих входных данных получается:
Код

Iznachalniy MASSIV Z:
    2.0000    3.0000    4.0000    5.0000    6.0000    7.0000    8.0000    9.0000
    0.0000   12.0000   13.0000   12.0000   22.0000   33.0000   45.0000   43.0000
Poluchenniy new MASSIV K:
    2.5198    5.4514    9.1577   13.5721   18.6434   24.3322   30.6069   37.4415
    0.0000   59.1891   67.9812   62.8978  144.9477  255.1103  394.7424  379.6044
PM MAIL   Вверх
СМЕХ
Дата 26.10.2006, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет

iznachalniy MASSIV Z:
2 4 6 8 10 12 14 16 18 19 20 22 24 26 28 30 poluchenniy new MASSIV K:
    0.0000    0.0000    0.0000    0.0000    0.0000    0.0000    0.0000    0.0000
    0.0000    0.0000    0.0000    0.0000    0.0000    0.0000    0.0000  234.8921


Почемуто все числа в массиве K нули кроме последнего. 


ПОДСКАЖИТЕ как БЛОК СХЕМУ СДЕЛАТЬ
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1973 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.