Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Doubted
0 / 0 / 0
Регистрация: 01.05.2011
Сообщений: 3
1

Определить, является ли последовательность вводимых чисел возрастающей

06.05.2011, 23:46. Просмотров 335. Ответов 1
Метки нет (Все метки)

подскажите, пожалуйста, где ошибка? программа должна определять является ли последовательность вводимых чисел возрастающей.
Pascal
1
2
3
4
5
6
7
8
9
10
11
const max=10000;
var k:boolean;
i:array[1..max] of integer;
begin
writeln ('vvedite chisla');
readln;
readln (array[i]);
if array[i]<array[i-1] then k:=false;
end;
if k:=true then writeln ('vozrastaet');
end.
еще вопрос: как тут обойтись без массива, используя циклы?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.05.2011, 23:46
Ответы с готовыми решениями:

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

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

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

Определить, является ли последовательность возрастающей
Здраствуйте,помогите написать 3 программы!!нужно сделать с While и Repeat Требуется написать...

Определить, является ли последовательность возрастающей
Здраствуйте. Требуется написать программу которая вводит последовательность целых ненулевых...

1
Puporev
Модератор
56358 / 43130 / 29833
Регистрация: 18.05.2008
Сообщений: 102,497
07.05.2011, 10:05 2
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,b,n,i:integer;
    f:boolean;
begin
clrscr;
write('Размер последовательности >2 до n=');
readln(n);
writeln('Введите последовательность чисел:');
f:=true;
readln(a);
for i:=2 to n do
 begin
  readln(b);
  if f and(b<=a) then f:=false;{если возрастание не строгое типа 1 2 2 3, то знак = убрать}
  a:=b;
 end;
if f then write('Последовательность возрастающая')
else write('Последовательность не возрастающая');
readln
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.05.2011, 10:05

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

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

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


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

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

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