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

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

22.11.2017, 22:03. Показов 1448. Ответов 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)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.11.2017, 22:03
Ответы с готовыми решениями:

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

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

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

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7814 / 4633 / 2837
Регистрация: 22.11.2013
Сообщений: 13,156
Записей в блоге: 1
23.11.2017, 01:10
Лучший ответ Сообщение было отмечено 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.11.2017, 01:10
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Раскрываем внутренние механики Android с помощью контекста и манифеста
mobDevWorks 07.07.2025
Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .
API на базе FastAPI с Python за пару минут
AI_Generated 07.07.2025
FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .
Основы WebGL. Раскрашивание вершин с помощью VBO
8Observer8 05.07.2025
На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:
Мониторинг микросервисов с OpenTelemetry в Kubernetes
Mr. Docker 04.07.2025
Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .
Проблемы с Kotlin и Wasm при создании игры
GameUnited 03.07.2025
В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .
Создаем микросервисы с Go и Kubernetes
golander 02.07.2025
Когда я только начинал с микросервисами, все спорили о том, какой язык юзать. Сейчас Go (или Golang) фактически захватил эту нишу. И вот почему этот язык настолько заходит для этих задач: . . .
C++23, квантовые вычисления и взаимодействие с Q#
bytestream 02.07.2025
Я всегда с некоторым скептицизмом относился к громким заявлениям о революциях в IT, но квантовые вычисления - это тот случай, когда революция действительно происходит прямо у нас на глазах. Последние. . .
Вот в чем сила LM.
Hrethgir 02.07.2025
как на английском будет “обслуживание“ Слово «обслуживание» на английском языке может переводиться несколькими способами в зависимости от контекста: * **Service** — самый распространённый. . .
Использование Keycloak со Spring Boot и интеграция Identity Provider
Javaican 01.07.2025
Два года назад я получил задачу, которая сначала показалась тривиальной: интегрировать корпоративную аутентификацию в микросервисную архитектуру. На тот момент у нас было семь Spring Boot приложений,. . .
Содержание темы с примерами на WebGL
8Observer8 01.07.2025
Все примеры из книги Мацуды и Ли в песочнице JSFiddle Пример выводит точку красного цвета размером 10 пикселей на WebGL 1. 0 и 2. 0 WebGL 1. 0. Передача координаты точки из главной программы в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru