Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.53/55: Рейтинг темы: голосов - 55, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 02.12.2010
Сообщений: 28
1

Дан целочисленный массив В[1..4, 1..3]. Заменить все его элементы их квадратами.

27.04.2011, 18:13. Показов 11085. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
решите задачу с помощю подпрограммы.

Задача(290):

Дан целочисленный массив В[1..4, 1..3]. Заменить все его элементы их квадратами.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.04.2011, 18:13
Ответы с готовыми решениями:

дан целочисленный массив заменить в нём все элементы
. Дан целочисленный массив X. Заменить в нем все элементы, меньшие 5 числом 111.(маасивы...

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

Дан целочисленный массив. Вывести все его нечетные элементы и их количество
Дан целочисленный массив. вывести все его нечетные элементы и их количество

Дан массив А(20), в данном массиве все положительные элементы заменить их квадратами и подсчитать сумму элементов полученного массива.
Дан массив А(20), в данном массиве все положительные элементы заменить их квадратами и подсчитать...

2
143 / 143 / 141
Регистрация: 05.04.2011
Сообщений: 270
27.04.2011, 18:17 2
Лучший ответ Сообщение было отмечено Дмитрий1818 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a:array[1..10,1..10] of longint;
    n,m,i,j:longint;
begin
n:=4;m:=3;
for i:=1 to n do
for j:=1 to m do
    begin
    read(a[i,j]);
    a[i,j]:=sqr(a[i,j]);
    end;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.
0
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
27.04.2011, 19:13 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
const
 n=4;
 m=3;
var
 arr: array[1..n, 1..m] of integer;
 i, j: integer;
begin
 writeln('Исходная матрица: ');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(10);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
 writeln('Матрица с элементами в квадрате: ');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=sqr(arr[i, j]);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end.
0
27.04.2011, 19:13
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.04.2011, 19:13
Помогаю со студенческими работами здесь

Дан целочисленный двумерный массив размера NxM (N,M<=14). Проверить, все ли его элементы четные
В заданной матрице 5x6 найти номера столбцов, в которых положительных элементов больше, чем...

Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем - нечетные.
Помогите: Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем -...

Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем нечетные
Помогите пожалуйста

Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем — нечетные
Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем —...

Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами (1, 3, …)
Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все элементы с...

Дан двумерный массив 5*5 Заменить все его отрицательные элементы нулем
Я в Делфи недавно и нам задали написать две программы. Если кто-нибудь знает как решить напишите...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Как подключить JavaScript файл в другом JavaScript файле
InfoMaster 20.01.2025
В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .
Как откатить изменения в исходниках, не внесенные в Git
InfoMaster 20.01.2025
При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .
В чем разница между px, in, mm, pt, dip, dp, sp
InfoMaster 20.01.2025
В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .
Как изменить адрес удалённого репозитория (origin) в Git
InfoMaster 20.01.2025
В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .
Как переместить последние коммиты в новую ветку (branch) в Git
InfoMaster 20.01.2025
При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .
Как вернуть результат из асинхронной функции в JavaScript
InfoMaster 20.01.2025
Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать
InfoMaster 19.01.2025
В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .
Почему планшеты и iPad уже не так популярны, как раньше
InfoMaster 19.01.2025
Эра революционных инноваций История планшетных компьютеров началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые. . .
Как самому прошить BIOS ноутбука
InfoMaster 19.01.2025
BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .
Какой Linux выбрать для домашнего компьютера
InfoMaster 19.01.2025
Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .
Как объединить два словаря одним выражением в Python
InfoMaster 19.01.2025
В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .
Как без исключения проверить существование файла в Python
InfoMaster 19.01.2025
При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru