1 / 1 / 1
Регистрация: 17.12.2012
Сообщений: 83
1

Среди элементов четных столбцов массива заменить все элементы на их квадраты

03.03.2015, 18:52. Показов 1319. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан массив X(N,M). Среди элементов четных столбцов массива заменить все элементы на их квадраты.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.03.2015, 18:52
Ответы с готовыми решениями:

Все нулевые элементы среди четных столбцов массива заменить на среднее значение положительных элементов
НУЖНО ПЕРЕПИСАТЬ ЭТУ ПРОГРАММУ БЕЗ RANDOMIZE И RANDOM!!! Помогите пожалуйста (если можно с блок...

Все нулевые элементы среди четных столбцов массива заменить на среднее значение положительных элементов
Помогите сделать задачу! Дан двумерный массив X(N,M). Все нулевые элементы среди четных столбцов...

Дан массив X(M,N). Все нулевые элементы среди четных столбцов заменить на среднее положительных элеменов столбцов
4.44 Дан массив X(M,N). Все нулевые элементы среди четных столбцов заменить на среднее значение...

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

1
5 / 5 / 5
Регистрация: 28.11.2014
Сообщений: 40
04.03.2015, 20:54 2
Лучший ответ Сообщение было отмечено Prapor48 как решение

Решение

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
42
43
44
45
46
47
48
49
50
51
52
53
54
Uses crt;
const M = 5;
      N = 5;
Type T_Mas = array [1..M,1..N] of integer;
 
Procedure Input (var x:T_Mas);
Var i,j:integer;
begin
 randomize;
 writeln ('Исходная матрица*:');
 writeln;
 for i:=1 to M do
  begin
   for j:=1 to N do
    begin
     x[i,j]:=random(21)-10;
     write(x[i,j]:4);
    end;
   writeln;
  end;
 writeln;
end;
 
Procedure Square(var x:T_Mas);
Var i,j:integer;
begin
 for i:=1 to M do
  for j:=1 to N do
     If j mod 2 = 0 then
       x[i,j]:=x[i,j]*x[i,j];
End;
 
Procedure Output (const x:T_Mas);
Var i,j:integer;
Begin
 Writeln ('Новая матрица:');
 Writeln;
 For i:=1 to M do
  begin
   for j:=1 to N do
   Write (x[i,j]:4);
   Writeln;
  end;
End;
 
Var x:T_Mas;
 
BEGIN
 Clrscr;
 Input(x);
 Square(x);
 Output (x);
 Readkey;
END.
Добавлено через 1 час 44 минуты
По хорошему, заменить это
Pascal
1
x[i,j]:=x[i,j]*x[i,j];
на это:
Pascal
1
x[i,j]:=sqr(x[i,j]);
Результат один и тот же, но второй вариант более корректен
1
04.03.2015, 20:54
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.03.2015, 20:54
Помогаю со студенческими работами здесь

Заменить все элементы первых трех столбцов матрицы на их квадраты
дан двумерный массив заменить все элементы первых трех столбцов на их квадраты

Заменить все нечетные элементы матрицы на 0, а у четных найти квадраты
Обменять все нечетные элементы на 0,а у четных найти квадраты. A(n*m) матрица

Заменить все элементы первых трех столбцов на их квадраты. Поменять местами средние строки с первой и последней
Ребята горит курсовая , прошу помощи в написании программы! Дан двумерный массив размером 8x7,...

Все отрицательные элементы массива заменить на их квадраты
Дан массив целых чисел. Все отрицательные элементы заменить на их квадраты. Заранее большое...


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

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

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