Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Если среднее арифметическое элементов стоящих над главной диагональю больше суммы элементов стоящих под побочной диагона Дана действительная матрица размерности (nхn). Если среднее арифметическое элементов стоящих над главной диагональю больше суммы элементов стоящих под побочной диагонали, то транспонировать матрицу и к элементам, стоящим на главной диагонали добавить минимальный элемент матрицы. В противном случае матрицу оставить без изменения. https://www.cyberforum.ru/ turbo-pascal/ thread2448812.html Дан текст. Удалить все слова, которые начинаются на одну и ту же букву Turbo Pascal
Дан текст. Удалить все слова, которые начинаются на одну и ту же букву.
Turbo Pascal Дан текст. Создать новый текст, который содержит предложения исходного текста, не содержащие слов нечетной длины https://www.cyberforum.ru/ turbo-pascal/ thread2448805.html
Дан текст. Создать новый текст, который содержит предложения исходного текста, не содержащие слов нечетной длины.
Turbo Pascal Дан текст. Удалить повторяющиеся слова https://www.cyberforum.ru/ turbo-pascal/ thread2448803.html
Дан текст. Удалить повторяющиеся слова.
Turbo Pascal Создать текст, из слов исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины
Создать новый текст, содержащий все слова исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины.
Turbo Pascal Найти самое короткое симметричное слово в тексте https://www.cyberforum.ru/ turbo-pascal/ thread2448801.html
SOS Найти самое короткое симметричное слово в тексте.
Turbo Pascal Дан целочисленный вектор А(n). Отсортировать его элементы методом линейного выбора https://www.cyberforum.ru/ turbo-pascal/ thread2448799.html
Помогите Дан целочисленный вектор А(п). Отсортировать его элементы методом линейного выбора.
Turbo Pascal Если у целочисленного вектора А(п) как минимум 2 элемента больше, чем 2, то все отрицательные компоненты заменить
Помогите плиз Если у целочисленного вектора А(п) как минимум 2 элемента больше, чем 2, то все отрицательные компоненты заменить их кубами, оставив все остальные без изменения. В противном случае вектор А умножить на -3. На печать выдавать исходный и полученный вектора.
Turbo Pascal Дан целочисленный вектор А(N). Все нечетные числа, стоящие за максимальным элементом, умножить на первый четный элемент https://www.cyberforum.ru/ turbo-pascal/ thread2448795.html
Помогите плиз Дан целочисленный вектор А(N). Все нечетные числа, стоящие за максимальным элементом, умножить на первый четный элемент. На печать выдавать исходный, полученный вектора, максимальный элемент и его индекс, первый нечетный элемент.
Turbo Pascal Дан целочисленный вектор А(n). Отсортировать его элементы методом линейной вставки Помогите плиз Дан целочисленный вектор А(и). Отсортировать его элементы методом линейной вставки. https://www.cyberforum.ru/ turbo-pascal/ thread2448790.html
Turbo Pascal Дан целочисленный вектор А(и). Найти наибольшее из нечетных чисел входящих в вектор. Определить его индекс и поменять
Помогите плиз Дан целочисленный вектор А(и). Найти наибольшее из нечетных чисел входящих в вектор. Определить его индекс и поменять местами с максимальным элементом. На печать выдавать исходный вектор, полученный результат и преобразованный вектор.
Turbo Pascal Дан целочисленный вектор А(n). Поменять местами последний положительный элемент вектора с первым ненулевым элементом Дан целочисленный вектор А(п). Поменять местами последний положительный элемент вектора с первым ненулевым элементом вектора. https://www.cyberforum.ru/ turbo-pascal/ thread2448786.html
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
07.05.2019, 16:26 0

Заменить все отрицательные элементы матрицы их квадратами, положительные - их кубами, нулевые элементы заменить на -1 - Turbo Pascal - Ответ 13551569

07.05.2019, 16:26. Показов 2595. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
program Zadanie78;
const
  nmax = 20;     // Максимальный размер матрицы.
var
  a: array[1..nmax,1..nmax] of real; // Переменная для хранения массива.
  i,j: integer;      //  Промежуточные переменные для организации циклов.
  n: integer;     // Переменная для хранения значения размерности матрицы.
begin
  randomize;
  writeln('Введите значение количества элементов матрицы N:');
  Readln(n);
  writeln('Исходная матрица:');
  for i:= 1 to n do      //  Перебор индексов строк и столбцов в цикле.
    begin
    for j:= 1 to n do
      begin
        a[i,j]:= (random(50 + 1) - 25)/10 ;  // Генерация случайных чисел и присвоение их элементам .
        write(a[i,j]:5:1);
      end;
    writeln;
    end;
  for i:= 1 to n do          // Перебор индексов строк и столбцов в цикле.
    for j:= 1 to 10 do
      begin
        if a[i,j] < 0 then       // Условие выбора элементов строк.
          a[i,j]:= a[i,j]*a[i,j]   // Замена отрицательного значения элемента его квадратом.
        else
          if a[i,j] > 0 then              // Условие выбора элементов строк.
            a[i,j]:= a[i,j]*a[i,j]*a[i,j]    // Замена  положительного значения элемента его кубом.
          else
            if a[i,j] = 0 then    // Условие выбора элементов строк.
              a[i,j]:= -1;          //  Замена нулевого значения элемента числом -1.
      end;
  writeln('Матрица после вычислений:');
  for i:= 1 to n do      //  Перебор индексов строк и столбцов в цикле.
    begin
    for j:= 1 to n do
      write(a[i,j]:8:3);    // Вывод значений элементов на экран.
    writeln;
    end;
 
  writeln;
  readln;
end.


Вернуться к обсуждению:
Заменить все отрицательные элементы матрицы их квадратами, положительные - их кубами, нулевые элементы заменить на -1 Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.05.2019, 16:26
Готовые ответы и решения:

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

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

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

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

2
07.05.2019, 16:26
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.05.2019, 16:26
Помогаю со студенческими работами здесь

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

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

В матрицы заменить все отрицательные элементы их квадратами
Данная целочисленная матрица размером n × m . В матрицы заменить все отрицательные элементы их...

Все отрицательные элементы в строке матрицы, заменить их квадратами
Даны три целые матрицы размером n×n. Преобразовать каждую из них по следующему правилу: все...

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