Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi элементы попадающие в промежуток от А до В, где А и В вводятся с клавиатуры https://www.cyberforum.ru/ delphi-beginners/ thread141181.html элементы попадающие в промежуток от А до В, где А и В вводятся с клавиатуры ------------------------------------------------------------------------------ Пожалуйста распишите все команды котоорые...	Delphi А какие програмы написал ты? Какие программы вы писали? пользуются ли другие вашими прогами, или только для себя? Может админ создаст раздел на форуме и там будем выкладывать свои работы :)
Delphi Найти среднее арифметическое все нечетных элементов массива Найти среднее арифметическое все нечетных элементов массива https://www.cyberforum.ru/ delphi-beginners/ thread141164.html	Delphi панель вывода семантической информации https://www.cyberforum.ru/ delphi-beginners/ thread141163.html Здаврстуйте . Многим наверное знакома программа дубольгис . Так вот вопрос , как создать панель вывода семантической информации на подобии как у 2gis. Грубо говоря , делаем запрос к бд . В...
Пароль Delphi Помогите сделать страницу с паролем, который попытаться ввести можно будет только 5 раз и при не удачной попытке писалось сколько попыток осталось.	Delphi Функция с Edit-a https://www.cyberforum.ru/ delphi-beginners/ thread141145.html Подскажите пж как оформить это программно никак чет не могу сообразить Я в Делфи не силен - если кому то вопрос покажется глупым. ТАк вот - есть функция например function...
Delphi Вставка картинки Как вставить картинку в форму? https://www.cyberforum.ru/ delphi-beginners/ thread141144.html	Delphi Создание пользовательской инструкции Нужно создать пользовательский хелп для студенческой программы. Написано, что делается это так: создаётся ртф файл, а потом компилируется в chw.exe Проблема в том, что chw.exe у меня вообще не...
Delphi Парочка вопросов https://www.cyberforum.ru/ delphi-beginners/ thread141103.html Доброй ночи! есть парочка вопросов : 1.как сделать условие для маск едит,например если там не все символы введены чтоб сообщило об этом. 2.при нажимании на крестик в углу окна сама программа не...	Delphi Рекурсия: найти количество цифр в строке S без использования оператора цикла помогите плиз, скоро экзамен, рекурсии совергенно не понимаю, и если можно закомментируйте!! Описать рекурсивную функцию Digits(S) целого типа, находящую количество цифр в строке S без использования... https://www.cyberforum.ru/ delphi-beginners/ thread141098.html
Delphi Программа при открытии .dbf показывает ошибку... Всем привет! У меня программа которая конвертирует dbf в txt, она открывает без проблем dbf файл только из определенного каталога, при открытии dbf файла из любого другого каталога на винте она пишет...	Delphi Какой это шифр?? Здравствуйте! Нужна срочно помощь! Завтра диплом, такой вот вопрос! Какой это шифр? Точнее каким шифром шифрует? Если можно поподробней..каким методом происходит шифровка и т.д! Очень надо, завтра... https://www.cyberforum.ru/ delphi-beginners/ thread141092.html

arni

912 / 877 / 62

Регистрация: 06.01.2010

Сообщений: 2,367

Записей в блоге: 6

05.06.2010, 13:59

В массиве все четные элементы заменить на их квадраты, а нечетные удвоить. - Delphi - Ответ 781235

05.06.2010, 13:59. Показов 2809. Ответов 1

Метки (Все метки)

Ответ

Сообщение от drago72

В массиве все четные элементы заменить на их квадраты, а нечетные удвоить.

Если на четность проверять индексы, то:

Pascal

for i:=Low(Arr) to High(Arr) do
  if Odd(i) then
    Arr[i]:=Arr[i]*2
  else
    Arr[i]:=Sqr(Arr[i])

Если на четность проверять значения элементов, то:

Pascal

for i:=Low(Arr) to High(Arr) do
  if Odd(Arr[i]) then
    Arr[i]:=Arr[i]*2
  else
    Arr[i]:=Sqr(Arr[i])

Вернуться к обсуждению:
В массиве все четные элементы заменить на их квадраты, а нечетные удвоить. Delphi

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.06.2010, 13:59

Готовые ответы и решения:

Заменить все четные элементы на их квадраты, а нечетные удвоить
Нашел четные и нечетные элементы, подскажите как их вывести в новый listbox ? И четные заменить на...

Заменить все чётные элементы массива на их квадраты, а нечётные удвоить
Задача на массивы: "Заменить все чётные элементы массива на их квадраты, а нечётные удвоить." ...

Заменить все четные элементы массива на их квадраты, а нечетные удвоить
Так и не пойму эти массивы, помогите с задачами, пожалуйста!!! 1. Удалить из массива М (26)...

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.06.2010, 13:59

Помогаю со студенческими работами здесь

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

В одномерном массиве все четные элементы заменить на их квадраты, а нечетные умножить на 2
В одномерном массиве все четные элементы заменить на их квадраты, а нечетные умножить на 2.

Удвоить все четные элементы массива, а нечетные заменить на 0
Удвоить все четные элементы массива, а нечетные заменить на 0.

Массивы: все элементы, кратные 10, заменить 0, все нечетные элементы удвоить, а четные уменьшить в 2 раза
помогите написать программу (массивы) Дан массив целых чисел из 50 элементов. - Все элементы...

Наверх