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

дана последовательность вещественных чисел а1,а2,.а15 Определить являеться ли последовательность упорядоченной по возрастанию

19.06.2013, 10:05. Просмотров 3464. Ответов 1
Метки нет (Все метки)


дана последовательность вещественных чисел а1,а2,...а15 Определить являеться ли последовательность упорядоченной по возрастанию. В случае отрицательного ответа определить порядковый номер первого числа, нарушаю такую упорядоченность



спс)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2013, 10:05
Ответы с готовыми решениями:

Дана последовательность вещественных чисел a1, a2, ..., а15. Определить, есть ли в последовательности отрицательные числа.
Дана последовательность вещественных чисел a1, a2, ..., а15. Определить, есть ли в...

Дана последовательность вещественных чисел а1, а2, …., а15 упорядоченная по возрастанию, и число n, не равное
Дана последовательность вещественных чисел а1, а2, …., а15 упорядоченная по возрастанию, и число n,...

Дана последовательность из n вещественных чисел. Найти наиболее длинную последовательность подряд идущих нулей.
Дана последовательность из n вещественных чисел. Найти наиболее длинную последовательность подряд...

Определить является ли последовательность упорядоченной по возрастанию
Дана последовательность вещественных чисел а1, а2, … а20. Определить является ли...

1
23 / 23 / 18
Регистрация: 28.06.2012
Сообщений: 58
19.06.2013, 10:14 2
Лучший ответ Сообщение было отмечено Mustafander как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses Crt;
var
 a: array [1..15] of real;
 i,n: integer;
Begin
 ClrScr;
 n:=0;
 
 for i:=1 to 15 do
 begin
   Write('Введите ',i,' число: ');
   ReadLn(a[i]);
   if (i>1) and (n=0) and (a[i]<a[i-1]) then n:=i;
 end;
 
 if n=0 then WriteLn('Последовательность упорядочена по возрастанию')
 else WriteLn('Последовательность не упорядочена! номер первого числа нарушающего последовательность: ',n);
 
ReadKey;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.06.2013, 10:14

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

Определить, является ли последовательность упорядоченной по возрастанию
Дана последовательность вещественных чисел, оканчивающаяся числом 10 000. Количество чисел в...

Определить, является ли последовательность упорядоченной по возрастанию
Дана последовательность вещественных чисел a1,a2...an. Определить, является ли последовательность...

Определить является ли последовательность упорядоченной по возрастанию
Дана последовательность вещественных чисел a1,a2, ... an . Определить является ли она упорядоченной...

Определить, являеться ли последовательность чисел строго возрастающей
вводяться числа до первого отрицательного, определить являеться ли последовательность чисел строго...


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

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

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