Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Alexartun
1 / 1 / 5
Регистрация: 01.10.2015
Сообщений: 127
#1

Определить, упорядочены ли по убыванию элементы одномерного массива - Pascal ABC

15.02.2016, 16:39. Просмотров 471. Ответов 5
Метки нет (Все метки)

Составить процедуру, вычисляющую значение TRUE, если все элементы одномерного массива упорядочены по убыванию их значений, и FALSE в противном случае.
Используя эту процедуру, распечатать заданный массив TA, если его элементы не упорядочены в порядке убывания их значений. В противном случае - вывести сообщение "упорядочен".
TA=(4,2;3,15;3,005;-2,4;0,1528;-12,77)

Честно, не знаю как делать, наброски есть, но не работает, нужна помощь, через 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
Type mas = array [1..5] of integer;
var 
i,g: integer;
FlagSort:boolean; 
 
function Sort(var m1:mas);
Var i:Byte;
Begin
  FlagSort:=True;
  For i:=2 to 5 do
    If m1[i]>m1[i-1] then
    Begin
      FlagSort:=False;
      Break;
    End;
End;
 
var
m:mas;
begin 
writeln('Введите  массив');
for i:= 1 to 5 do 
read(m[i]); 
Sort(m[i]);
end.

http://www.cyberforum.ru/pascalabc/thread997706.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.02.2016, 16:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, упорядочены ли по убыванию элементы одномерного массива (Pascal ABC):

Упорядочить по убыванию все положительные элементы одномерного массива, остальные элементы заменить нолями
Составить программу упорядочения (по убыванию) всех положительных элементов...

Составить процедуру определяющую, что все элементы одномерного массива упорядочены по убыванию их значений
program rf; uses crt; type mas = array of integer; var a, b: mas; i,...

Найти количество строк заданного массива, элементы которых упорядочены по убыванию
Дан двумерный массив размером m*n.Найти количество строк заданного массива,...

Даны три целочисленных массива А, В и С размера NА, NВ, NС соответственно, элементы которых упорядочены по убыванию
Даны три целочисленные массивы А, В и С размера NА, NВ, NС соответственно,...

Составить программу, которая сортирует по убыванию элементы одномерного массива
Составить программу, которая сортирует по убыванию элементы одномерного...

5
Constantin Cat
1628 / 940 / 356
Регистрация: 28.02.2015
Сообщений: 2,185
Завершенные тесты: 1
15.02.2016, 16:57 #2
Pascal
1
2
if Sort(m) then write('Sorted')
              else for i:=1 to 5 do write(m[i]:4);
1)функция должна иметь тип boolean;
2)массив ТА оперделен как целый, а задании вещественный;
3)количество элементов массива не совпадает.
0
Alexartun
1 / 1 / 5
Регистрация: 01.10.2015
Сообщений: 127
15.02.2016, 17:02  [ТС] #3
Можете в программе исправить, которую я вложил, просто не догоняю ?!
Пожалуйста !
0
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,290
15.02.2016, 17:24 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Type mas = array [1..20] of integer;
procedure ubyv(a:mas;n:byte;var f:boolean);
var i:byte;
begin
i:=2;
f:=true;
while (i<=n)and f do
if a[i]>a[i-1] then f:=false else inc(i);
end;
var m:mas;
    n,i:byte;
    f:boolean;
begin
write('Размер массива n=');
readln(n);
writeln('Введите  массив');
for i:=1 to n do
read(m[i]);
ubyv(m,n,f);
if f then write('Массив упорядочен по убыванию')
else write('Массив не упорядочен по убыванию')
end.
0
Alexartun
1 / 1 / 5
Регистрация: 01.10.2015
Сообщений: 127
15.02.2016, 20:59  [ТС] #5
Спасибо большое, все работает. Только 1 вопрос.
В Задаче написано про массив ТА, и заданные уже числа, что с ними делать ?
0
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,290
15.02.2016, 21:22 #6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

А где у тебя этот массив?

Добавлено через 14 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=6;
Type mas = array [1..6] of real;
procedure ubyv(a:mas;var f:boolean);
var i:byte;
begin
i:=2;
f:=true;
while (i<=n)and f do
if a[i]>a[i-1] then f:=false else inc(i);
end;
const TA:mas=(4.2,3.15,3.005,-2.4,0.1528,-12.77);
var i:byte;
    f:boolean;
begin
for i:=1 to n do
write(TA[i]:8:4);
writeln;
ubyv(TA,f);
if f then write('Массив упорядочен по убыванию')
else write('Массив не упорядочен по убыванию')
end.
0
15.02.2016, 21:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.02.2016, 21:22
Привет! Вот еще темы с решениями:

Определить упорядочены ли элементы массива по возрастанию
Как сделать программу: Ввести одномерный массив А , вывести его. Определить...

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

Отсортировать по убыванию элементы одномерного массива, стоящие на нечетных местах, методом простого выбора
Отсортировать по убыванию элементы одномерного массива, стоящие на нечетных...

Отсортировать по убыванию элементы одномерного массива, стоящие на нечетных местах, методом простого обмена
Отсортировать по убыванию элементы одномерного массива, стоящие на нечетных...


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

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

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