Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
afsdsome
0 / 0 / 0
Регистрация: 31.03.2013
Сообщений: 32
1

Заменить каждый элемент матрицы его квадратом

03.04.2013, 23:22. Просмотров 875. Ответов 3
Метки нет (Все метки)

Дан массив x[1..4, 1..3]. Заменить каждый элемент его квадратом.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2013, 23:22
Ответы с готовыми решениями:

Каждый отрицательный элемент матрицы заменить результатом его целочисленного деления на 3
Ввести двумерный массив A NxM. Каждый отрицательный элемент в массиве заменить...

Если элемент массива меньше 25 – заменить его квадратом индекса
2 Сформировать одномерный массив из 10 элементов (значения элементов задаются...

Каждый нулевой элемент матрицы заменить на максимальное значение строки, в которой находится данный элемент.
Дана действительная квадратная матрица порядка n (n<10). Каждый нулевой элемент...

Заменить каждый элемент массива его обращением
Дан массив из n целых чисел. Заменить каждый элемент массива его обращением...

Заменить каждый элемент матрицы А значением этого элемента матрицы В по условию
Кроме матрицы А, дана матрица В такого же размера. Если для всех i,j...

3
Gidropon
75 / 75 / 52
Регистрация: 28.02.2013
Сообщений: 206
Записей в блоге: 9
03.04.2013, 23:59 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от afsdsome Посмотреть сообщение
Дан массив x[1..4, 1..3]. Заменить каждый элемент его квадратом.
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
program xxx;
 
const n=4;
const m=3;
 
type matrix = array [1..n,1..m] of integer;
 
var
    x:matrix;
    i,j:integer;
    
begin
    writeln('Заполните матрицу: ');
    for i:=1 to n do
        for j:=1 to m do
            begin
                write('x[',i,',',j,']= ');
                readln(x[i,j]);
            end;
    writeln('-----ИСХОДНАЯ МАТРИЦА-----');
    {вывод матрицы}
    for i:=1 to n do
        begin
            for j:=1 to m do
                write(x[i,j],' ');
                writeln();
        end;
    writeln('-----ПОСЛЕ ЗАМЕНЫ-----');
    {замена}
    for i:=1 to n do
        for j:=1 to m do
            x[i,j]:=sqr(x[i,j]);
    {замена + вывод}
    for i:=1 to n do
        begin
            for j:=1 to m do
                write(x[i,j],' ');
                writeln();
            end;
    readln;
end.
1
afsdsome
0 / 0 / 0
Регистрация: 31.03.2013
Сообщений: 32
04.04.2013, 00:30  [ТС] 3
благодарю
0
Gidropon
75 / 75 / 52
Регистрация: 28.02.2013
Сообщений: 206
Записей в блоге: 9
04.04.2013, 01:27 4
Обращайтесь)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2013, 01:27

Каждый элемент массива, больший 10, заменить на его квадратный корень
Дан массив вещественных чисел. Каждый элемент,больший 10,заменить на его...

Каждый элемент массива, больший 10, заменить на его квадратный корень
Дан массив вещественных чисел.Каждый элемент,больший 10,заменить на его...

Каждый отрицательный элемент массива заменить на его абсолютную величину
Дан массив вещественных чисел. а) Каждый отрицательный элемент заменить на его...


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

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

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