Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
ElliotHell
0 / 0 / 1
Регистрация: 27.12.2011
Сообщений: 38
#1

Все отрицательные числа массива возвести в квадрат - Turbo Pascal

31.03.2012, 22:15. Просмотров 629. Ответов 1
Метки нет (Все метки)

Задание : Разработать модуль, содержащий процедуру формирования массива. ввода, процедуры вычисления произведения четных элементов, процедуру, которая все отрицательные числа массива возводит в квадрат.
Заранее спасибо.
http://www.cyberforum.ru/turbo-pascal/thread568786.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 22:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Все отрицательные числа массива возвести в квадрат (Turbo Pascal):

Возвести в квадрат все нечетные отрицательные числа
В массиве A(n), состоящий из вещественных чисел, возвести в квадрат все...

Массив. Возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу
В массиве A(n), состсящим из целых чисел, возвести в квадрат все нечетные...

Возвести в квадрат отрицательные числа и в третью степень
13. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью...

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

Возвести в квадрат отрицательные числа и в третью степень — положительные
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень...

1
MayaNash
1291 / 459 / 151
Регистрация: 24.08.2011
Сообщений: 2,245
31.03.2012, 22:52 #2
Лучший ответ Сообщение было отмечено ElliotHell как решение

Решение

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
unit matrix;
 
interface
 
type mtx = array [1..500] of integer;
procedure newMatrix(var m: mtx; var n: integer);
function even(const m: mtx; n: integer): longint;
procedure sqrMinus(var m: mtx; n: integer);
 
{----------------------------------------------------------------}
 
implementation
 
procedure newMatrix;
var i: integer;
begin
write('n = '); readln(n);
for i:=1 to n do read(m[i]);
end;
 
function even;
var i: integer;
    tmp: longint;
begin tmp:=1;
for i:=1 to n do
 if not odd(m[i]) then tmp:=tmp*m[i];
even:=tmp;
end;
 
procedure sqrMinus;
var i: integer;
begin
for i:=1 to n do
 if m[i] < 0 then m[i]:=sqr(m[i]);
end;
{----------------------------------------------------------------}
 
begin end.
Файл назовете matrix.pas, обязательно.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2012, 22:52
Привет! Вот еще темы с решениями:

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

Массив. Возвести в квадрат все нечетные отрицательные, а положительные четные заменить на единицу
В массиве А(n), состоящем из целых чисел, возвести в квадрат все нечетные...

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

Из положительных элементов исходного массива извлечь квадратный корень, отрицательные элементы возвести в квадрат
Проблема такова, есть 40 заданий, для таких людей как вы я уверен это оооочень...


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

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

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