0 / 0 / 1
Регистрация: 04.06.2013
Сообщений: 12
1

Если индекс элемента массива четный, то элемент возвести в квадрат, если нечетный – удвоить

12.06.2013, 17:39. Показов 1642. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке [-25,25]. Сформировать второй массив по правилу: если индекс элемента исходного массива четный, то элемент возвести в квадрат, если нечетный – удвоить. Вывести исходный и полученный массивы на печать.

случайными числами я заполнила, а как сделать "если индекс элемента исходного массива четный, то элемент возвести в квадрат, если нечетный – удвоить."? помогите,пожалуйста!


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  a, b : Array [1..20] Of Integer;
begin
   randomize;
  For i := 1 To 20 Do
    Begin
      a[i] := -25 + Random(51);
      memo1.Lines.Add(inttostr(a[i]));
          End;
         end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.06.2013, 17:39
Ответы с готовыми решениями:

Если элемент массива четный, то его нужно возвести в квадрат
Дана последовательность n - натурольных чисел. Если элемент массива четный, то его нужно возвести в...

Если элемент массива четный, то прибавить к нему первый элемент массива, если нечетный - то последний. В чем ошибка?
Помогите решить: Если элемент массива четный, то прибавить к нему первый элемент массива, если...

Если элемент массива четный, то прибавить к нему первый элемент, а если нечетный - последний.
Если значение элемента массива четно, то прибавить к нему первый элемент массива, а если нечетно -...

Если элемент массива четный — прибавить к нему первый, если нечетный — последний элемент
здравствуйте еще раз)) Спасибо за то что помогли с прошлой задачей огромной)) можно еще одну)...

2
Всегда онлайн
1084 / 788 / 295
Регистрация: 07.04.2013
Сообщений: 2,703
12.06.2013, 17:46 2
Delphi
1
2
3
4
5
6
 For i := 1 To 20 Do
    Begin
      if odd(a[i]) = true then b[i]:=a[i]*a[i] else b[i]:=a[i]*2; //Условие
      memo1.Lines.Add(inttostr(b[i]));
          End;
         end;
Функция odd возвращает true, если число четное.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32835 / 21172 / 8148
Регистрация: 22.10.2011
Сообщений: 36,431
Записей в блоге: 8
13.06.2013, 12:22 3
Цитата Сообщение от MrOnlineCoder Посмотреть сообщение
Функция odd возвращает true, если число четное НЕчетное.
Fixed. По английски odd - нечетный, even - четный...

Так что в программе надо будет перед odd добавить not:
Delphi
1
2
3
4
5
For i := 1 To 20 Do
Begin
   if not odd(a[i]) then b[i]:=a[i]*a[i] else b[i]:=a[i]*2; //Условие
   memo1.Lines.Add(inttostr(b[i]));
End;
0
13.06.2013, 12:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.06.2013, 12:22
Помогаю со студенческими работами здесь

Если очередной элемент массива чётный, то прибавь к нему первый, если нечётный — прибавить последний
Дан одномерный массив состоящий из n элементов. Если очередной элемент чётный, то прибавь к нему...

Для двумерного массива. Если элемент четный, то прибавить к нему первый, если нечетный — последний элементы массива
Для двумерного массива. Если элемент четный, то прибавить к нему первый, если нечетный — последний...

Если элемент массива четный, то прибавить к нему первый, если нечетный - последний элементы массива
Написать программу изменения элементов массива. Если элемент четный, то прибавить к нему первый,...

Удвоить данные числа, если a>=b>=c, и возвести их в квадрат, если это не так
Даны целые числа a,b,c. Удвоить эти числа, если a>=b>=c, и возвести их в квадрат если это не так....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru