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

Написать программу, которая перевернёт в обратном порядке каждую вторую строку матрицы

30.03.2020, 15:53. Показов 953. Ответов 3
Метки нет (Все метки)

Дана прямоугольная матрица из целых чисел (10 строк и 15 столбцов). Написать программу, которая перевернёт в обратном порядке каждую вторую строку.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2020, 15:53
Ответы с готовыми решениями:

как это можно попроще сделать?
ребят ,выручите пожалуйста девушку начинающую в программировании.. :curtsy: нужно написать...

Обработка одномерного массива. Сделайте, пожалуйста, попроще
в одномерном массиве, состоящем из п вещественных элементов, вычислить: 1) количество элементов...

Обработка матриц. Просьба объяснить программу.
#include <stdio.h> #include <conio.h> void main() { int a,i,j,p,d,x,b; clrscr();...

что можно использовать вместо tokenizer, только попроще?
StringTokenizer stringTokenizer = new StringTokenizer(lineFromFile.replaceAll("", " ")); ...

3
4611 / 2308 / 2205
Регистрация: 10.12.2014
Сообщений: 8,842
30.03.2020, 16:51 2
Лучший ответ Сообщение было отмечено arzikulov как решение

Решение

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
procedure s(var a, b : Integer);
var
  c : Integer;
begin
  c := a; a := b; b := c;
end;
 
var
  m : array [0..9,0..14] of Integer;
  r, c : Integer;
begin
  for r := 0 to 9 do
    for c := 0 to 14 do
      begin
        Write('m[', r, ',', c, '] ='); ReadLn(m[r,c]);
      end;
  for r := 0 to 9 do
    if odd(r) then
      for c := 0 to 6 do
        s(m[r,c], m[r,14-c]);
  for r := 0 to 9 do
    begin
      for c := 0 to 14 do
        Write(m[r,c]:5);
      WriteLn;
    end;
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6019 / 3588 / 2512
Регистрация: 22.11.2013
Сообщений: 10,205
Записей в блоге: 1
01.04.2020, 12:32 3
JuriiMW,
магические числа -- зло:
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
procedure s(var a, b : Integer);
var
  c : Integer;
begin
  c := a; a := b; b := c;
end;
 
const
  rows=10; cols=15;
 
var
  m : array [0..rows-1,0..cols-1] of Integer;
  r, c : Integer;
begin
  for r := 0 to rows-1 do
    for c := 0 to cols-1 do
      begin
        Write('m[', r, ',', c, '] ='); ReadLn(m[r,c]);
      end;
  for r := 0 to rows-1 do
    if odd(r) then
      for c := 0 to cols div 2-1 do
        s(m[r,c], m[r,cols-1-c]);
  for r := 0 to rows-1 do
    begin
      for c := 0 to cols-1 do
        Write(m[r,c]:5);
      WriteLn;
    end;
end.
1
4611 / 2308 / 2205
Регистрация: 10.12.2014
Сообщений: 8,842
01.04.2020, 16:30 4
bormant, дык, задание такое!
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2020, 16:30

Калькулятор (все работает просто хотел узнать можно было как то попроще?)
Было задание сделать калькулятор , при воде 'q' выход из программы два варианта получилось мои...

Обработка матриц в с++
даны матрицы D размерностью m*n, E n*k и число a. найти значение выражения: D*a*E проверить...

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

Обработка матриц
Даны две матрицы: обычная матрица и матрица битых пикселей. Битый пиксель вычисляется путем...


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

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

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