0 / 0 / 0
Регистрация: 18.12.2011
Сообщений: 16
1

Получить X1Y1+...+XsYs, где X1...Xp - отрицательные члены последовательности r1...r17, взятые в порядке их следования...

22.12.2011, 19:45. Показов 1798. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите разобраться, не правильно работает скрипт, идей больше нет.
Условие : Даны действительные числа r1...r17, среди которых заведомо есть как отрицательные, так и неотрицательные. Получить X1Y1+...+XsYs, где X1...Xp - отрицательные члены последовательности r1...r17, взятые в порядке их следования, Y1...Yq - неотрицательные члены, взятые в обратном порядке, s=min(p,q)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program asd;
var
h,s: real;
c:array [0..16] of real;
b:array [0..16] of real;
q,p,i:integer;
begin
for i:=0 to 16 do
begin
read (h);
  if h<0 then
   begin
    b[i]:=h; p:=p+1; writeln('b=',h,' p=',p);
   end
   else
   begin
   c[i]:=h; q:=q+1;  writeln('c=',h,' q=',q);
   end;
  end;
  
  
  if p>q then
     for i:=0 to q do s:=s+b[i]*c[q-i]
  else
      for i:=0 to p do s:=s+b[i]*c[p-i];
  
  writeln (s);
  end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2011, 19:45
Ответы с готовыми решениями:

Одномерные массивы (Получить x1y1+...+xsys, где x1,...,xp)
Задание: Даны действительные числа r1,...,r17, среди которых заведомо есть как отрицательные, так...

Получить все отрицательные члены последовательности, сохранив порядок их следования.
Даны целые числа a(1)...a(n), каждое из которых отлично от нуля. Если в последовательности...

Получить все отрицательные члены последовательности, сохранив порядок их следования
Плиз!!!! Кто - нибудь помогите решить задачу!!!!! Дан массив с целыми числами а1,...а25, каждое из...

Вычислите и выведите — отрицательные элементы массива, взятые в порядке их следования
Здравствуйте. Прошу помощи, не могу найти ошибки в коде. Задание: &quot;Введите одномерный массив...

4
Goldeeeeeeen !
245 / 237 / 186
Регистрация: 15.10.2011
Сообщений: 457
22.12.2011, 20:07 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var x,y,r:array[1..17] of integer;
    i,p,q,s,l:integer;
begin
   randomize;
   p:=0; q:=0; l:=0;
   writeln('Ìàññèâ:');
   for i:=1 to 17 do
      begin
        r[i]:=random(41)-20;
        write(r[i]:4);
        if r[i]<0 then
        begin
        p:=p+1;
        x[p]:=r[i];
        end;
        end;
 
for i:=17 downto 1 do
if r[i]>0 then
begin
q:=q+1;
y[q]:=r[i];
end;
writeln;
      
if p<q then s:=p
else s:=q;
      
 for i:=1 to s do
 l:=l+x[i]*y[i];
 
 writeln('Ñóììà :',l);
end.
1
0 / 0 / 0
Регистрация: 18.12.2011
Сообщений: 16
22.12.2011, 20:23  [ТС] 3
ЗолотойМальчик, ты же бейзик изучал вроде бы)) Бросил универ, потому что овладел всеми знаниями?))
0
Goldeeeeeeen !
245 / 237 / 186
Регистрация: 15.10.2011
Сообщений: 457
22.12.2011, 20:32 4
Ты меня с кем-то путаешь...
0
0 / 0 / 0
Регистрация: 18.12.2011
Сообщений: 16
22.12.2011, 20:43  [ТС] 5
А,все поятно, значит не ты, сорри))
0
22.12.2011, 20:43
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2011, 20:43
Помогаю со студенческими работами здесь

Одномерный массив/ Вычислить и вывести отрицательные числа элемента массива I, взятые в порядке их следования
Помогите ,пожалуйста, решить задачу!! Ввести одномерный массив I={13, 4, -2, 6,7,-1,-5,2,-3,4}...

Получить все отрицательные члены последовательности
Даны целые числа a1,...,an, каждое из которых отлично от нуля. Если в последовательности...

Получить все отрицательные члены последовательности
Даны целые числа a1...an . Если в данной последовательности ни одно целое четное число не...

В данной последовательности целых чисел переставьте члены так, чтобы отрицательные числа шли в порядке убывания в начале массива
В данной последовательности целых чисел переставьте члены так, чтобы отрицательные числа шли в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru