Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Gold10
0 / 0 / 0
Регистрация: 17.10.2017
Сообщений: 10
#1

В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения - Turbo Pascal

20.10.2017, 10:11. Просмотров 73. Ответов 2
Метки нет (Все метки)

В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2017, 10:11
Здравствуйте! Я подобрал для вас темы с ответами на вопрос В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения (Turbo Pascal):

Заменить все отрицательные числа на их абсолютные значения - Pascal
В таблице из 20 чисел,лежащих в промежутке от -50 до 50,заменить все отрицательные числа на их абсолютные значения. заранее спасибо)

В матрице заменить все отрицательные числа на их абсолютные значения - Turbo Pascal
В матрице A(5,5) заменить все отрицательные числа на их абсолютные значения.

Все отрицательные элементы массива заменить на их абсолютные значения - Turbo Pascal
Все отрицательные элементы массива A,P,R,T,Q,F заменить на их абсолютные значения, результат записать в те же файлы.

Заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел - Turbo Pascal
1)Ввести с клавиатуры 10 чисел – положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все полученные 10...

Все отрицательные числа в файле вещественных чисел заменить на 0 - Pascal
записать в файл 15 вещественных чисел. Прочитать этот файл, все отрицательные числа заменить на 0 и записать в этот файл. определить сумму...

В массиве вещественных чисел отрицательные значения заменить на абсолютные значения - C#
В массиве вещественных чисел отрицательные значения заменить на абсолютные значения.

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3594 / 2581 / 1760
Регистрация: 05.06.2014
Сообщений: 12,352
20.10.2017, 10:16 #2
Pascal
1
2
3
for i:=1 to 20 do
 if (a[i]>=-50) and (a[i]<=50) then
  a[i]:=abs(a[i]);
0
Cyborg Drone
Модератор
4835 / 3004 / 1208
Регистрация: 17.08.2012
Сообщений: 9,622
23.10.2017, 12:09 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Точнее,
Pascal
2
 if (a[i]>=-50) and (a[i]<0) then
или вовсе вторую строку выкинуть.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2017, 12:09
Привет! Вот еще темы с ответами:

Дана последовательность чисел а, в, с. Все отрицательные числа заменить - Pascal ABC
Дана последовательность чисел а, в, с. Все отрицательные числа заменить на нули. Входные данные вводятся пользователем с экрана. Вывод так...

Как используя очередь, написать процедуру или функцию, которая заменяет все отрицательные элементы файла на их абсолютные значения? - Pascal ABC
Как используя очередь, написать процедуру или функцию, которая заменяет все отрицательные элементы файла на их абсолютные значения?

Из 5 заданных чисел отрицательные числа сделать положительными, а все нули заменить на один - Turbo Pascal
из 5-ти заданных чисел отрицательные числа сделать положительными, а все нули заменить на один (через while)

Из пяти заданных чисел отрицательные числа сделать положительными, а все нули заменить на один - Turbo Pascal
из 5-ти заданных чисел отрицательные числа сделать положительными, а все нули заменить на один


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

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

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