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

Вычислить частное от деления суммы положительных элементов матрицы на сумму всех отрицательных

16.05.2010, 18:36. Показов 1203. Ответов 10
Метки нет (Все метки)

В двухмерном массиве вычислить частное от деления суммы всех положительных
элементов на сумму всех отрицательных элементов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2010, 18:36
Ответы с готовыми решениями:

В двухмерном массиве вычислить частное от деления суммы всех положительных элементов на сумму всех отрицательных элементов.
Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя ...

В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на произведение всех отрицательных элементов
В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на...

Вычислить частное от деления суммы отрицательных чисел на сумму положительных
Дан одномерный массив чисел {X(i)} i=1..12. вычислить частное от деления суммы отрицательных чисел...

Массивы: Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Всем привет, учусь в 9-ом классе. Помогите решить 3 задачи, пожалуйста. 1) Известны данные о...

10
11 / 10 / 2
Регистрация: 17.11.2009
Сообщений: 126
16.05.2010, 18:56 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
34
program massiv;
uses wincrt;
var a,b :  array [0..3, 0..3] of integer;
i,j,k , t,q: integer;
chastnoe:real;
begin
t:=0;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
write ('vvedite element massiva: ');
readln (a[i,j]);
end;
end;
writeln ('ishodnyi massive A: ');
for i:=1 to 3 do begin
for j:=1 to 3 do begin
write (a[i,j], ' ');
end;
writeln;
end;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
if a[i,j]>t then k:=k+a[i,j];
end;
end;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
if a[i,j]<t then q:=q+a[i,j];
end;
end;
chastnoe:=k/q;
write('chastnoe ot deleniya = ' , chastnoe:3:6);
readln;
end.
1
0 / 0 / 0
Регистрация: 15.05.2010
Сообщений: 9
16.05.2010, 19:08  [ТС] 3
ета прога не работаєт!!!((((
0
11 / 10 / 2
Регистрация: 17.11.2009
Сообщений: 126
16.05.2010, 19:25 4
у меня работает. Ты bp.exe используешь?

Добавлено через 6 минут
uses wincrt замени на uses crt или убери вообще
1
0 / 0 / 0
Регистрация: 15.05.2010
Сообщений: 9
16.05.2010, 19:51  [ТС] 5
мне в конце вибива ошибку!!!
а ти можеш зделать штоб уводить строки и столбци!!!
0
11 / 10 / 2
Регистрация: 17.11.2009
Сообщений: 126
16.05.2010, 20:12 6
мне в конце вибива ошибку!!!
а ти можеш зделать штоб уводить строки и столбци!!!
чего сделать? по-русски

Добавлено через 27 секунд
мне в конце вибива ошибку!!!
какую ошибку? номер или лучше принтсркин
0
0 / 0 / 0
Регистрация: 15.05.2010
Сообщений: 9
16.05.2010, 20:41  [ТС] 7
1. Создать или открыть текстовый (типизированный, нетипизированный) файл.
2. Выполнить над текстовым (типизированным, нетипизированным) файлом
необходимые преобразования или выполнить необходимые вычисления.
3. Вывести на экран монитора результаты преобразований или вычислений.
--------------------------------------------------------------------------------
Задана строка текста. Определить, сколько раз встречается эта строка текста в
каждой строке текстового файла.

а таке можеш зделать

Добавлено через 14 минут
error 200: division by zero
0
11 / 10 / 2
Регистрация: 17.11.2009
Сообщений: 126
16.05.2010, 21:08 8
а ты какие вводишь элементы массива? или тупо щелкаешь энтер каждый раз?
у меня все работает в двух компиляторах. попробуй ввести след значения
1 - 5 9
4 -3 -5
4 8 5

Добавлено через 37 секунд
Zhenia1,
а таке можеш зделать
вряд ли
0
нэ
64 / 64 / 42
Регистрация: 08.04.2010
Сообщений: 166
22.05.2010, 21:53 9
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
   c:array[1..100,1..100] of integer;
   i,j,n,m:longint;
   s1,s2:real;
begin
   write('n,m: ');
   readln(n,m);
   for i:=1 to n do
   for j:=1 to m do
      readln(c[i,j]);
   for i:=1 to n do
   for j:=1 to m do
   if c[i,j]>=0 then
   s1:=s1+c[i,j]
   else
      if c[i,j]<0 then
   s2:=s2+c[i,j];
   write(s1/s2);
   readln;
   end.
0
11 / 11 / 2
Регистрация: 07.08.2009
Сообщений: 85
22.05.2010, 22:01 10
End'оф мало, поставь побольше.
0
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
22.05.2010, 22:05 11
blecklov, зачем ? По-моему двух вполне достаточно.

Добавлено через 1 минуту
Домолаз, правда вот это
if c[i,j]<0 then
здесь ни к чему.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2010, 22:05
Помогаю со студенческими работами здесь

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Помогите написать программу на с++, желательно полностью(с шапкой) Дан массив. Определить...

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
1)Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных...

Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
1.определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных...

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных...


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

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

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