Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
MaxWinchester
0 / 0 / 0
Регистрация: 04.04.2019
Сообщений: 12
1

Уменьшить все элементы массива Делфи

17.04.2019, 22:27. Просмотров 812. Ответов 7
Метки нет (Все метки)

Как правильно представить этот код для Delphi?

Delphi
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
Program Lime;
const 
n = 7;
var 
a: array[1..n] of integer; 
q, i, min: integer;  
begin 
Randomize; 
min := 1; 
for i := 1 to n do 
begin 
a[i] := -n div 2 + Random(n); 
write(a[i]:4); 
if a[min] > a[i] then 
min := i; 
end; 
writeln; 
writeln('Min: ', a[min]); 
q := a[min]; 
for i := 1 to n do 
begin 
if odd(i) then 
a[i] := a[i] - q; 
write(a[i]:4); 
end; 
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.04.2019, 22:27
Ответы с готовыми решениями:

уменьшить все элементы данного массива на величину х
Разработать программное обеспечение в котором уменьшить все элементы данного массива данных...

StringGrid: все элементы, стоящие на нечётных местах, уменьшить на 1
Ребят такая задачка. Мы сами задаём массив с помощью stringgrid и все элементы стоящие на нечётных...

Все элементы матрицы, удовлетворяющие заданному условию, уменьшить в два раза
Здравствуйте. Прошу помощи в решении с комментариями или ссылки на литературу, которая поможет...

Дан двумерный массив. Все элементы с четными номерами уменьшить на 1,а с нечетными увеличить на 1
Дан двумерный массив. Все элементы с четными номерами уменьшить на 1,а с нечетными увеличить на 1.(...

Уменьшить элементы одномерного массива, стоящие на не четных местах, в 2 раза
Создать одномерный массив x случайным образом. Вывести его в строку. Затем уменьшить элементы...

7
Matan!
Delphi/Java/DB Dev + Math
589 / 501 / 160
Регистрация: 31.05.2013
Сообщений: 4,034
Записей в блоге: 6
Завершенные тесты: 2
17.04.2019, 22:35 2
Как Ваш код относится к задаче? Нафига Вам минимальный элемент? Кроме того, Вы сначала поставили вопрос:
Цитата Сообщение от MaxWinchester Посмотреть сообщение
Уменьшить все элементы массива
а затем пишете:
Цитата Сообщение от MaxWinchester Посмотреть сообщение
Delphi
1
2
if odd(i) then 
...
Уберите тогда этот if, и будет Вам все элементы массива.
0
droider
Universal
Эксперт Pascal/Delphi
4471 / 2494 / 791
Регистрация: 04.10.2012
Сообщений: 9,083
17.04.2019, 22:36 3
Цитата Сообщение от MaxWinchester Посмотреть сообщение
представить этот код для Delphi
этот код прекрасно подходит для Delphi в консольном приложении.
0
MaxWinchester
0 / 0 / 0
Регистрация: 04.04.2019
Сообщений: 12
17.04.2019, 22:42  [ТС] 4
Matan!, возможно я не совсем до конца довел задачу,суть состоит в том что нужно "уменьшить все элементы массива с нечётными индексами заданного массива данных a1,a2,...2n на величину минимального элемента этого массива." код уже представлен,но мне нужно понять как его представить в Delphi правильно,дабы он работал
0
17.04.2019, 22:42
droider
Universal
Эксперт Pascal/Delphi
4471 / 2494 / 791
Регистрация: 04.10.2012
Сообщений: 9,083
17.04.2019, 22:52 5
Лучший ответ Сообщение было отмечено MaxWinchester как решение

Решение

Цитата Сообщение от MaxWinchester Посмотреть сообщение
мне нужно понять как его представить в Delphi правильно,дабы он работал
меню File-New>Other>Console application. Вставляете Ваш код так

Delphi
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
program Lime;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
SysUtils;
 
const
n = 7;
var
a: array[1..n] of integer;
q, i, min: integer;
begin
Randomize;
min := 1;
for i := 1 to n do
begin
a[i] := -n div 2 + Random(n);
write(a[i]:4);
if a[min] > a[i] then
min := i;
end;
writeln;
writeln('Min: ', a[min]);
q := a[min];
for i := 1 to n do
begin
if odd(i) then
a[i] := a[i] - q;
write(a[i]:4);
end;
Readln;
end.
Profit!
0
Миниатюры
Уменьшить все элементы массива Делфи  
MaxWinchester
0 / 0 / 0
Регистрация: 04.04.2019
Сообщений: 12
17.04.2019, 22:58  [ТС] 6
droider, Спасибо большое,все работает!
0
droider
Universal
Эксперт Pascal/Delphi
4471 / 2494 / 791
Регистрация: 04.10.2012
Сообщений: 9,083
17.04.2019, 23:01 7
Цитата Сообщение от MaxWinchester Посмотреть сообщение
все работает
я об этом упомянул еще выше в п.#3.
0
MaxWinchester
0 / 0 / 0
Регистрация: 04.04.2019
Сообщений: 12
17.04.2019, 23:03  [ТС] 8
droider, Понимаю,просто возможно не заметил
0
17.04.2019, 23:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2019, 23:03

Вычислить элементы массива в Делфи 7
Или хотя бы как начать.Заранее огромное спасибо

Уменьшить положительные элементы массива A на величину K, а положительные элементы массива B увеличить на величину К
Дан массив вещественных чисел A(A1,A2,...,An) и B(B1,B2,...,Bn).Уменьшить положительные элементы...

Заданы два массива A и B. Удалить из массива А все элементы, входящие в состав массива В
Половину я сделала, задала массивы, а дальше не получается :sorry: %-) Поможете? program...


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

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

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