Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Egor89
0 / 0 / 0
Регистрация: 25.10.2012
Сообщений: 10
1

Найти в каждом массиве произведение компонентов и определить, какое из них больше

31.10.2012, 21:25. Просмотров 828. Ответов 2
Метки нет (Все метки)

Дано два массива, содержание 3х4 и 3х3 целых компонентов. Ввести оба массива, найти в каждом массиве произведение компонентов, принадлежащих к интервалу (-5 до 5) и определить, какое из найденных произведений больше. Найденные значения и оба массива вывести на экран. Спасибо заранее...
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2012, 21:25
Ответы с готовыми решениями:

Найти в каждом массиве сумму положительных компонентов и определить, какая из найденных сумм больше
дано два массива, содержание соответственно 3*3 и 5*2 вещественных компонентов. Ввести оба...

Найти в каждом массиве сумму четных компонентов
дано 2 массива содержащий соответсвенно 3*4 и 3*3 целых компонентов.ввесчти оба массива найти в...

В одновременном массиве X (15) найти сумму и произведение элементов и выбрать из них наибольшее
В одновременном массиве X (15) найти сумму и произведение элементов и выбрать из них наибольшее. ...

В массиве A(m,n) в каждом столбце найти минимум, умножить каждый минимум на 5 и найти произведение этих чисел.
В массиве A(m,n) в каждом столбце найти минимум, умножить каждый минимум на 5 и найти произведение...

В массиве а ( m, n ) в каждом столбце найти минимум, вывести эти минимумы в линейный массив, умножить каждый минимум на 5 и найти произведение
В массиве а (m, n) в каждом столбце найти минимум, вывести эти минимумы в линейный массив, умножить...

2
Nirvanovec
25 / 31 / 22
Регистрация: 25.01.2010
Сообщений: 321
Записей в блоге: 1
31.10.2012, 21:59 2
Лучший ответ Сообщение было отмечено Egor89 как решение

Решение

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
35
36
37
38
39
40
41
program matrix;
uses crt;
const n=3;
var a:array[1..3,1..4] of integer;i,j,maxa,maxb:integer;
b:array[1..3,1..3] of integer;
begin
clrscr;
randomize;
writeln;
maxa:=0;
maxb:=0;
writeln('massiv a 3x4: ');
for i:=1 to n do begin
for j:=1 to 4 do begin
a[i,j]:=random(19)-9;
if (a[i,j]>-5) or (a[i,j]<5) then begin
maxa:=a[i,j]*a[i,j];
end;
write(a[i,j]:3);
end;
writeln;
end;
writeln;
writeln ('massiv b 3x3: ');
for i:=1 to n do begin
for j:=1 to n do begin
b[i,j]:=random(19)-9;
if (b[i,j]>-5) or (b[i,j]<5) then begin
maxb:=b[i,j]*b[i,j];
end;
write(b[i,j]:3);
end;
writeln;
end;
writeln;
writeln('max a= ',maxa);
writeln('max b= ',maxb);
if maxa>maxb then writeln ('a>b') else writeln ('a<b');
if maxa=maxb then writeln('a=b');
readkey;
end.
Добавлено через 3 минуты
работает следующим образом,
два массива один 3x4 второй 3x3 оба состоят из произвольных чисел от -9 до 9
числа в интервале (-5;5) умножаются сами на себя.
самое большое по значению произведение массива А сравнивается с таким же числом массива В далее она сравниваются и программа покзывает какое произведение больше
1
Leshak
259 / 235 / 160
Регистрация: 10.12.2011
Сообщений: 513
31.10.2012, 22:47 3
Pascal
1
maxb:=b[i,j]*b[i,j];
А причём тут maxb, и умножаете вы не правильно.

Код
b:=1;
for i:=1 to n do begin
 for j:=1 to n do begin
   b[i,j]:=random(19)-9;
   if (b[i,j]>-5) or (b[i,j]<5) then begin
       b:=b*a[i,j];
   end;
  end;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2012, 22:47

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

Найти сумму всех компонентов и произведение отрицательных компонентов файла
Создать числовой файл F. Найти сумму всех компонентов и произведение отрицательных компонентов...

Напишите программу подсчета нечетных и четных компонентов файла f, и определите, каких из них больше
Создайте файл f, компоненты которого являются целыми числами. Напишите программу подсчета нечетных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru