Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 45
1

Если сумма двух первых строк матрицы А меньше суммы элементов двух последних её строк

30.12.2013, 11:24. Показов 2014. Ответов 10
Метки нет (Все метки)

Если сумма двух первых строк матрицы А меньше суммы элементов двух последних её строк. Изменить матрицу А, прибавив к элементам каждой строки заданные элементы х1,х2,..,х5
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.12.2013, 11:24
Ответы с готовыми решениями:

Четырехзначное число называется «счастливым», если сумма двух первых и двух последних его цифр совпадает
Четырехзначное число называется «счастливым», если сумма двух первых и двух последних его цифр...

Найти сумму элементов двух первых строк матрицы
4) Составить программу, которая в данной действительной квадратной матрицы порядка N найти сумму...

Установить, что сумма двух первых цифр равна сумме двух последних
Найти все трехзначные числа, удовлетворяющие условию: сумма двух первых цифр равно сумме двух...

Равна ли сумма двух первых цифр числа сумме двух его последних
Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его...

10
81 / 79 / 57
Регистрация: 21.11.2013
Сообщений: 173
30.12.2013, 11:31 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
const n=5;
var a:array[1..n,1..n]of integer;
x:array[1..n] of integer;
sum1,sum2,i,j:integer;
begin
 randomize;
 for i:=1 to n do readln(x[i]);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:5);
if (i=1) or (i=2) then sum1:=sum1+a[i,j];
if (i=4) or (i=5) then sum2:=sum2+a[i,j];
end;
writeln
end;
if sum1<sum2 then
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=a[i,j]+x[i];
write(a[i,j]:5);
end;
writeln
end;
readln
end.
1
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 45
30.12.2013, 11:36  [ТС] 3
Большое спасибо!

Добавлено через 1 минуту
j7777777,
Pascal
1
a[i,j]:=random(100);
А как без случайных чисел, преподаватель не принимает такое, нужен ручной ввод

Добавлено через 2 минуты
Нужен ручной ввод и заданных "х" и матрицы..
0
81 / 79 / 57
Регистрация: 21.11.2013
Сообщений: 173
30.12.2013, 11:38 4
ручной ввод, вместо этого:
Цитата Сообщение от j7777777 Посмотреть сообщение
a[i,j]:=random(100);
write(a[i,j]:5);
readln(a[i,j]);
1
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 45
30.12.2013, 11:40  [ТС] 5
j7777777,
Pascal
1
2
randomize;
for i:=1 to n do readln(x[i]);
А тут?
0
81 / 79 / 57
Регистрация: 21.11.2013
Сообщений: 173
30.12.2013, 11:47 6
randomize - убрать надо
а
Цитата Сообщение от Yoshik Посмотреть сообщение
for i:=1 to n do readln(x[i]);
это ввод х.
можно их не вводить, а присвоить значение на прямую, типа x[1]:=7;
1
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 45
30.12.2013, 11:50  [ТС] 7
j7777777,
Получается там я могу написать
Pascal
1
2
Writeln('введите х1,х2,х3,х4,х5');
Readln(x[i]);
Так?
0
81 / 79 / 57
Регистрация: 21.11.2013
Сообщений: 173
30.12.2013, 11:53 8
ага..
Цитата Сообщение от Yoshik Посмотреть сообщение
Writeln('введите х1,х2,х3,х4,х5');
for i:=1 to n do
Readln(x[i]);
1
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 45
30.12.2013, 11:54  [ТС] 9
И собственно последнее:
Что это?)
Pascal
1
2
if (i=1) or (i=2) then sum1:=sum1+a[i,j];
if (i=4) or (i=5) then sum2:=sum2+a[i,j];
Добавлено через 1 минуту
j7777777, ?
0
81 / 79 / 57
Регистрация: 21.11.2013
Сообщений: 173
30.12.2013, 11:57 10
вот:
Цитата Сообщение от Yoshik Посмотреть сообщение
if (i=1) or (i=2) then sum1:=sum1+a[i,j]; //если элементы двух первых строк
if (i=4) or (i=5) then sum2:=sum2+a[i,j]; // а это двух последних
1
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 45
30.12.2013, 11:58  [ТС] 11
j7777777,
Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2013, 11:58

Если сумма первых 15 элементов вектора больше суммы последних 15 элементов, сформировать матрицу
Дан вектор А. Если сумма первых 15 элементов вектора больше суммы последних 15 элементов, то из...

Вывести на экран те числа, у которых сумма первых двух цифр равна сумме двух последних
39. Дан массив из n четырехзначных натуральных чисел. Вывести на экран только те, у которых сумма...

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

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


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

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

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