Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.66/35: Рейтинг темы: голосов - 35, средняя оценка - 4.66
0 / 0 / 0
Регистрация: 08.01.2013
Сообщений: 17

Из положительных элементов исходного массива извлечь квадратный корень, отрицательные элементы возвести в квадрат

08.01.2013, 16:32. Показов 7021. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Проблема такова, есть 40 заданий, для таких людей как вы я уверен это оооочень легко, вы же варитесь в этом 24 часа в сутки) Посмотрите пожалуйста, помогите сделать хоть что-то, заранее спасибо!

Из положительных элементов исходного массива извлечь квадратный корень, отрицательные элементы возвести в квадрат;

остальные 39 заданий
Поменять в массиве местами максимальный и минимальный элементы;

Определить, какой элемент – максимальный или минимальный – стоит ближе к концу массива;

Определить, какой элемент – максимальный или первый нулевой (по порядку расположения в массиве) – стоит ближе
к началу массива;

Какая сумма элементов массива больше – с первого до максимального элемента включительно или от максимального элемента до последнего.

Какая сумма элементов массива больше – с первого до элемента с номером К или от элемента с номером К+1 до последнего.

Вывести на экран элементы, стоящие между максимальным и минимальным элементами
Определить, что больше – сумма элементов, стоящих до максимального элемента, или сумма элементов, стоящих до минимального элемента;

Определить, что больше – сумма элементов, стоящих до минимального элемента, или сумма элементов, стоящих после минимального элемента;

Определить, что больше – сумма элементов, стоящих до максимального элемента, или сумма элементов, стоящих после максимального элемента;

Определить, что больше – сумма элементов, стоящих после максимального элемента, или сумма элементов, стоящих после минимального элемента;

Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах;

Получить среднее арифметическое всех нечётных элементов массива, стоящих на чётных местах;

Получить среднее арифметическое всех положительных нечётных элементов массива;

Из положительных элементов исходного массива сформировать новый массив;

Из элементов исходного массива сформировать два новых массива, один из положительных элементов исходного массива, другой – из отрицательных;

Получить произведение всех отрицательных элементов массива и определить, чётное или нечётное их число было перемножено;

Получить сумму всех элементов массива, больших, чем заданное с клавиатуры число;

Задать с клавиатуры число к и определить, сумма скольких элементов массива (по порядку следования) превысит это число


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

Ввести матрицу и определить в ней максимум с координатами и минимум с координатами

Ввести матрицу и определить, во сколько раз максимум больше абсолютной величины минимума.

Ввести квадратную матрицу (M = N) матрицу и определить, является ли она единичной, то есть все элементы на главной диагонали равны единице (у этих элементов I = J), а все остальные элементы равны нулю.

Ввести квадратную матрицу (M = N) матрицу и определить сумму всех элементов на главной диагонали (у этих элементов I = J).

Ввести квадратную матрицу (M = N) матрицу и определить среднее арифметическое всех элементов на главной диагонали
(у этих элементов I = J).

Ввести квадратную матрицу (M = N) матрицу и определить среднее арифметическое всех отрицательных элементов на главной диагонали (у этих элементов I = J).

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

Ввести матрицу и определить, процентное отношение суммы положительных элементов к модулю (абсолютному значению) суммы всех элементов матрицы.

Ввести строку и определить, сколько слов она содержит.

Ввести строку и определить, сколько слов заданной с клавиатуры длины она содержит.

Ввести строку и определить, сколько слов чётной длины она содержит

Ввести строку и определить, сколько слов нечётной длины она содержит

Ввести строку и определить, содержат ли все слова заданную с клавиатуры букву.

Ввести строку и распечатать в строку все её слова-непалиндромы.

Ввести строку и распечатать в строку все её слова-палиндромы.

Ввести строку и инвертировать первое слово.

Ввести строку и инвертировать последнее слово

Ввести строку и инвертировать слово максимальной длины.

Ввести строку и инвертировать слово минимальной длины

Ввести строку и инвертировать слово максимальной длины.

Ввести строку и инвертировать слово заданной (с клавиатуры) длины


 Комментарий модератора 
Обращаю Ваше внимание на правило форума: В одной теме должно быть только одно задание! 40 заданий в теме уменьшают шанс получить решение примерно в 40 раз. Как запостить тему, чтобы не получить ответ
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.01.2013, 16:32
Ответы с готовыми решениями:

Из положительных элементов исходного массива извлечь квадратный корень, отрицательные элементы возвести в квадрат
Из положительных элементов исходного массива извлечь квадратный корень, отрицательные элементы возвести в квадрат; как это сделать??

Возвести в квадрат отрицат. элем. таблицы, извлечь корень из положительных, вычислить число элементов равных 0
Пожалуйста, помогите решить задачу!!! Линейный массив. Дана таблица, состоящая из 10 элементов : Возвести в квадрат отрицат. элем....

Вычислить корень квадратный из положительных чисел и возвести в третью степень отрицательные числа
Всем добрый день, помогите решить задачу с условием: Даны три числа. Вычислить корень квадратный из положительных чисел и возвести в третью...

4
17 / 4 / 1
Регистрация: 02.12.2012
Сообщений: 31
08.01.2013, 18:54
"Из положительных элементов исходного массива извлечь квадратный корень, отрицательные элементы возвести в квадрат" -нет проблем:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program Koren;
Var Mass:array[1..5] of integer;
     i, j :integer;
Begin
For i:=1 to 5 do
    begin
           WriteLn('Введите целое число');
           Read(Mass[i]);
    end;
For i:=1 to 5 do
    begin
           if Mass[i]>=0 then
           j:=sqr\sqrt(Mass[i]);
           Write('Из числа ',Mass[i],' получилось число ',j);
           else
           j:=Mass[i]*Mass[i];
           Write('Из числа ',Mass[i],' получилось число ',j);
    end;
readln
End.
я поставил sqr\sqrt потому что не помню, какое из них возведение в квадрат, а какое квадратный корень. Поэкспериментируй и поставь. Массив можешь взять любой [1.. какое хочешь число], только потом не забудь поменять в циклах i:=1 по число число, которое указано последним в массиве
0
0 / 0 / 0
Регистрация: 08.01.2013
Сообщений: 17
08.01.2013, 19:04  [ТС]
1 из 40, Спасибо!
0
0 / 0 / 0
Регистрация: 08.01.2013
Сообщений: 17
08.01.2013, 19:34  [ТС]
Спасибо огромное!
0
08.01.2013, 19:45
 Комментарий модератора 
ПетрСтаркин, поскольку вы принципиально игнорируете замечание модератора, а в данной теме есть ответ, то эта тема закрыта. И не вздумайте выложить 38 заданий снова одной темой.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.01.2013, 19:45
Помогаю со студенческими работами здесь

Найти сумму элементов массива, принадлежащих промежутку от a до b. Отрицательные элементы массива возвести в квадрат
Дан одномерный массив чисел. Найти количество элементов массива, равных заданному числу, и вывести их номера. Найти сумму элементов...

Все отрицательные элементы массива заменить единицей, положительные возвести в квадрат, нули оставить
Создать массив случайных чисел на интервале от -15 до 15. Все отрицательные элементы заменить единицей, положительные - возвести в квадрат...

Найти номера строк, которые содержат не более 2-х отрицательных элементов. В этих строках отрицательные элементы возвести в квадрат
Дана матрица C(5,4). Найти номера строк, которые содержат не более 2-х отрицательных элементов. В этих строках отрицательные элементы...

Возвести отрицательные элементы матрицы в квадрат
Дана матрица размерности nxm. Возведите все ее отрицательные элементы в квадрат.

Все отрицательные числа массива возвести в квадрат
Задание : Разработать модуль, содержащий процедуру формирования массива. ввода, процедуры вычисления произведения четных элементов,...


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

Или воспользуйтесь поиском по форуму:
5
Закрытая тема Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru