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

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами

22.11.2017, 22:03. Показов 1239. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
переведите на паскаль
Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
RANDOMIZE TIMER
INPUT "Введите m, n: ", m, n
DIM r(m, n)
PRINT "A="
FOR i = 1 TO m
  FOR j = 1 TO n
    r(i, j) = INT(RND * 21) - 10
    PRINT USING " ###"; r(i, j);
  NEXT
  PRINT
NEXT
FOR i = 1 TO m
  IF r(i, 3) < 0 THEN r(i, 3) = 0
NEXT
FOR j = 1 TO n
  IF r(5, j) > 0 THEN r(5, j) = r(5, j) ^ 2
NEXT
PRINT "A'="
FOR i = 1 TO m
  FOR j = 1 TO n
    PRINT USING " ###"; r(i, j);
  NEXT
  PRINT
NEXT
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2017, 22:03
Ответы с готовыми решениями:

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все...

Заменить в третьем столбце матрицы все положительные элементы нулями
Срочно, помогите пожайлуста, у меня экзамен, а я не знаю, как делать... 1. Дан массив B(M,N)...

Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами
Не могу решить. 1.Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы...

Заменить все отрицательные элементы матрицы их квадратами, положительные - их кубами, нулевые элементы заменить на -1
Дана действительная матрица размерности (nхn). Заменить все отрицательные элементы массива их...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7534 / 4394 / 2785
Регистрация: 22.11.2013
Сообщений: 12,588
Записей в блоге: 1
23.11.2017, 01:10 2
Лучший ответ Сообщение было отмечено Zheka4190 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const m=5; n=5; W=5;
var
  a: array [1..m,1..n] of Integer;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to m do for j:=1 to n do a[i,j]:=-10+Random(21);
  WriteLn('A =');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:5); WriteLn; end;
  for i:=1 to m do if a[i,3]<0 then a[i,3]:=0;
  for j:=1 to n do if a[5,j]>0 then a[5,j]:=Sqr(a[5,j]);
  WriteLn('A''=');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:4); WriteLn; end;
end.
Добавлено через 5 минут
Или с динамическимми размерами, если поддерживается:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const W=5; ti=5; tj=3;
var
  a: array of array of Integer;
  i, j, m, n: Integer;
begin
  Randomize;
  repeat Write('Введите m (>=',ti,')  n (>=',tj,'): '); ReadLn(m,n);
  until (m>=ti) and (n>=tj);
  SetLength(a,m,n);
  for i:=1 to m do for j:=1 to n do a[i,j]:=-10+Random(21);
  WriteLn('A =');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
  for i:=1 to m do if a[i,tj]<0 then a[i,tj]:=0;
  for j:=1 to n do if a[ti,j]>0 then a[ti,j]:=Sqr(a[ti,j]);
  WriteLn('A''=');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
end.
Добавлено через 36 минут
или не поддерживается:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const W=5; ti=5; tj=3;
type
  PIntArr = ^TIntArr;
  TIntArr = array [1..$FFFE div SizeOf(Integer)] of Integer;
  PPIntArr = ^TPIntArr;
  TPIntArr = array [1..$FFFE div SizeOf(PIntArr)] of PIntArr;
var
  a: PPIntArr;
  i, j, m, n: Integer;
begin
  Randomize;
  repeat Write('Введите m (>=',ti,')  n (>=',tj,'): '); ReadLn(m,n);
  until (m>=ti) and (n>=tj);
  GetMem(a,m*SizeOf(a^[1])); for i:=1 to m do GetMem(a^[i],n*SizeOf(a^[1]^[1]));
  for i:=1 to m do for j:=1 to n do a^[i]^[j]:=-10+Random(21);
  WriteLn('A =');
  for i:=1 to m do begin for j:=1 to n do Write(a^[i]^[j]:W); WriteLn; end;
  for i:=1 to m do if a^[i]^[tj]<0 then a^[i]^[tj]:=0;
  for j:=1 to n do if a^[ti]^[j]>0 then a^[ti]^[j]:=Sqr(a^[ti]^[j]);
  WriteLn('A''=');
  for i:=1 to m do begin for j:=1 to n do Write(a^[i]^[j]:W); WriteLn; end;
  for i:=1 to m do FreeMem(a^[i],n*SizeOf(a^[1]^[1])); FreeMem(a,m*SizeOf(a^[1]));
end.
Добавлено через 5 минут
или
Pascal
1
2
3
4
5
6
7
8
{$R-}
const W=5; ti: Integer=5; tj: Integer=3;
type
  PIntArr = ^TIntArr;
  TIntArr = array [1..1] of Integer;
  PPIntArr = ^TPIntArr;
  TPIntArr = array [1..1] of PIntArr;
...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2017, 01:10
Помогаю со студенческими работами здесь

Циклы: заменить все отрицательные элементы матрицы нулями, а все положительные - единицами
Помогите с заданием. Цель работы: Приобретение навыков использования операторов цикла while, do...

Заменить в массиве отрицательные элементы нулями, а положительные – их квадратами
Задан линейный массив, состоящий из n элементов. Заменить в этом массиве все отрицательные...

Заменить в матрице А все отрицательные элементы нулями, а положительные единицами
Если разность максимального и минимального элемента матрицы А превышает заданную величину Р,...

В двумерном массиве заменить все отрицательные элементы их квадратами, а положительные оставить без изменения
31.Решить задачу в Turbo Pascal.В двумерном массиве заменить все отрицательные элементы их...


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

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

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