Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/82: Рейтинг темы: голосов - 82, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 9
1

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

12.12.2011, 21:25. Просмотров 14737. Ответов 4
Метки нет (Все метки)


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

заранее спасибо)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2011, 21:25
Ответы с готовыми решениями:

Если значение элементов массива подчиняются условию x1<=x2<=...<=x15,то все нечётные элементы массива умножить на А,в противном случае чётные умножить
Помогите пожалуйста решить задачу:cry:: 1.Задан массив x(15).Если значение элементов массива...

работа с элементами массива в заданном интервале, чётные и нечётные элементы массива
Задача: Определить наибольший элемент среди нечётных по номеру элементов второй четверти массива...

Разным цветом вывести чётные и нечётные элементы матрицы (двумерного массива)
Писал программу, которая заполняет матрицу случайными числами от 1 до 100 и выводит матрицу, при...

В матрице заменить все чётные элементы на 0
Нужно составить программу, которая в двумерном массиве размером 5х5, заполненная целыми числами от...

4
52 / 51 / 19
Регистрация: 22.03.2009
Сообщений: 173
12.12.2011, 21:38 2
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
uses crt;
var a:array [1..10] of integer;
i:integer;
begin
clrscr;
randomize;
 
{генерируем и выводим новый массив}
for i:=1 to 10 do
 begin
  a[i]:=random(9)+1;
  write(a[i]:3);
 end;
 
writeln;
 
{в цикле проверяем если счетчик i делится на 2 ( признак четности) то либо возводим в степень либо удваиваем}
for i:=1 to 10 do
  begin
    if (i mod 2=0 ) then a[i]:=a[i]*a[i]
    else a[i]:=a[i]*2;
  end;
 
{выводим конечный массив}
for i:=1 to 10 do
write(a[i]:3);
readkey;
 
end.
1
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 9
12.12.2011, 21:52  [ТС] 3
большое спасибо)
0
2 / 2 / 0
Регистрация: 22.12.2013
Сообщений: 86
23.12.2013, 12:23 4
Можно сделать? Чтобы сначала рандомные числа выводились, а потом уже в продолжение они удваивались и возводились в квадрат. Что бы было наглядно видно, какие цифры на какие изменились
0
52 / 51 / 19
Регистрация: 22.03.2009
Сообщений: 173
23.12.2013, 21:37 5
вот в этой части как раз генерируется массив и выводиться на экран
Pascal
1
2
3
4
5
6
{генерируем и выводим новый массив}
for i:=1 to 10 do
 begin
  a[i]:=random(9)+1;
  write(a[i]:3);
 end;
далее по Вашему условию можно создать новый цикл, и поэлементно умножать значение на 2 и так же выводить
Pascal
1
2
3
4
5
6
{умножаем массив на 2 и выводим}
for i:=1 to 10 do
begin
a[i]:=a[i]*2; 
write(a[i]:3);
end;
так же можно и в квадрат возводить, изменить лишь действие с массивом ( либо a[i]*a[i] либо sqr(a[i]); )

PS balbesenok, и по правилам форума для каждой задачи нужно создавать свою тему
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2013, 21:37

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Заменить в файле все элементы на их квадраты
Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты. в делфи

Заменить в файле чисел все элементы на их квадраты.
1. Дан текстовый файл не менее чем из 4-х элементов. Вывести первый, второй, предпоследний и...

Все чётные столбцы массива А заменить массивом Х
Само задание: Дан двумерный массив А и одномерный Х. Все чётные столбцы массива А заменить...

Заменить все элементы первых трех столбцов матрицы на их квадраты
дан двумерный массив заменить все элементы первых трех столбцов на их квадраты


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

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

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