Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 1
Регистрация: 15.11.2016
Сообщений: 68
1

Оставить без изменения последовательность а1 - а30, если она упорядочена по возрастанию или по убыванию

15.11.2016, 18:21. Просмотров 1340. Ответов 1
Метки нет (Все метки)


Даны действительные числа а1.....а30. Оставить без изменения последовательность а1.....а30, если она упорядочена по возрастанию или по убыванию; в противном случае заменить нулем те члены последовательности, порядковые номера которых кратны 4.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2016, 18:21
Ответы с готовыми решениями:

Оставить без изменения последовательность, если она упорядочена по убыванию
Нужно написать программы(консольное приложение) в делфи самым простым способом без...

Даны действительные числа . Оставить без изменения последовательность, если она упорядочена по неубыванию, в противном
Даны действительные числа . Оставить без изменения последовательность, если она упорядочена по не...

Оставить массив без изменения, если он упорядочен по невозрастанию или по неубыванию
Дан целочисленный массив Н(30). Оставить его без изменения, если он упорядочен по невозрастанию или...

Даны действительные числа а1.а30. Оставить без изменений последовательность, если она упорядочена по не убыванию и не возрастанию, иначе - удалить и
Даны действительные числа а1...а30. Оставить без изменений последовательность, если она...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
3568 / 3040 / 819
Регистрация: 29.08.2013
Сообщений: 20,288
Записей в блоге: 2
15.11.2016, 19:23 2
Лучший ответ Сообщение было отмечено diesel77 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
a:array of integer;
good:boolean;
i:integer;
 
begin
  setlength(a,29);
  for i:=low(a) to higth(a) do 
  begin
    good:=true;
    if i<higth(a) then if a[i]>a[i+1] then good:=false;
    if i>1 then if a[i]>a[i-1] then good:=false;
  end;
  if good then 
    // массив упорядочен
  else begin
    for i:=low(a) to higth(a) do if (i mod 4 = 0) then a[i]:=0;
  end;
end;
как то так
в проверках не уверен - нужно отладить
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2016, 19:23

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

Оставить без изменений последовательность, если она упорядочена по не убыванию или по не возрастанию
Ребят,я начинающая программистка) помогите решить задачу на С Даны действительные числа a1, …,...

Оставить без изменения последовательность, если она упорядочена (по невозрастанию или неубыванию)
Оставить без изменения последовательность а1,...,а30, если она упорядочена по невозрастанию или...

Оставить без изменения последовательность, если она упорядочена
Даны целые числа а1...аn, где n - целое положительное число (n&lt;=100). Оставить без изменения...

Если последовательность упорядочена по не убыванию, то оставить ее без изменения
Дано натуральное число n,действительные числа а1,...,аn (n&gt;2). если последовательность а1,...,аn...


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

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

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