|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.10.2007, 23:29 | #1 |
Регистрация: 29.10.2007
Сообщений: 5
|
Паскаль. выявить отрезки возрастания в последовательности
дана последовательность из n чисел (n=50).выявить отрезки возрастания в этой последовательности и вывести каждый из них на экран с новой строки.на паскале
|
30.10.2007, 08:11 | #2 |
Форумчанин
Регистрация: 07.08.2007
Сообщений: 154
|
Я вижу решение так:
Дан массив из 50 элементов. Код:
|
30.10.2007, 08:30 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А я это так вижу :
var a:array[1..50] of integer; var s,k:integer; begin clrscr; {Здесь мы массив забиваем как хотим} for k:=2 to high(a) do begin if a[k]>a[k-1] then write('(',a[k-1],' to ',a[k],') ');end; writeln; end.
I'm learning to live...
|
30.10.2007, 09:00 | #4 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
фразу
Цитата:
Код:
Последнее writeln убрать, т.к. появляются лишние пробелы, и решение даже при TextMode(258) не влезает. А все таки интересно, как вывести все числа из интервала. У меня не получается. Последний раз редактировалось puporev; 30.10.2007 в 09:34. |
|
30.10.2007, 09:07 | #5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Верно, и еще я там провтыкал если такая последовательность 2,3,3,4,3
то на самом то деле должно быть [2,4] а у меня будет [2,3][3,4] В общем там подправить нуна бы (Эт я просто не сразу допер )) )
I'm learning to live...
|
30.10.2007, 09:42 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Все у тебя првильно, просто плохо мы арифметику знаем. Интервал [3,3] не является интервалом возрастания по определению (a[i]>a[i-1],
а не а[i]>=a[i-1], ). Еще я свой предыдущий пост поправил, пока ты писал. Посмотри. |
30.10.2007, 16:28 | #7 |
Регистрация: 29.10.2007
Сообщений: 5
|
ВСЕМ БОЛЬШОЕ СПАСИБО ЧТО ПОМОГЛИ.
Последний раз редактировалось kano; 30.10.2007 в 16:34. |
30.10.2007, 16:34 | #8 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
30.10.2007, 17:48 | #9 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Я имел в виду то , что если интервал возрастания выглядит как -1,0,1,2, то на экран выводится [-1,2], а хотелось бы, чтоб выводилось -1,0,1,2.
|
30.10.2007, 19:21 | #10 | ||
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Цитата:
Цитата:
Я не маюсь бездельем, я от него тащусь!
|
||
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запись последовательности в txt | NeiL | Общие вопросы Delphi | 1 | 14.04.2008 22:23 |
Ввод последовательности чисел | POPOV | Общие вопросы Delphi | 5 | 16.02.2008 22:13 |
Как из последовательности чисел выделить недостающие | Юрій | Microsoft Office Excel | 2 | 27.01.2008 21:46 |
Не могу выявить ошибку | Cyn4uk | Общие вопросы Delphi | 14 | 14.01.2008 13:12 |
суммы членов числовой последовательности | tonic | Microsoft Office Excel | 2 | 04.01.2008 00:24 |