Задача такая - определить, являются ли введённые числа возрастающей последовательностью?
Вот так я это сделал:
Зачем у тебя там строка ? И кстате я так думаю ты хотела использовать массив, ты уверена что он тут нужен ? можно и без него ...
А зачем же там массив использовать?... тем более я его там и не наблюдаю..) мне кажется со строкой там удобнее (можно длину определить) а в массиве так можно разве?
Тут либо надо искать противоречие:
могу предложить такой вариант :
uses crt;
var
_pred,_succ,n,i : integer;
check : boolean;
begin
write('n = '); readln(n);
writeln('Введите последовательность');
i := 1; check := true;
readln(_pred);
while (i < n) and check do begin
readln(_succ);
check := (_pred < _succ);
_pred := _succ;
inc(i);
end;
writeln(check);
readln;
end.
klem4, последовательность до конца не будет введена...
из файла было бы не страшно, а с клавы...
Хотя у Lauri скорее цифры сравниваются, чем числа...
Можно сделать чтобы и до конца, какой только сысл ... представь сколько ты сэкономишь времени если у тебя в файле 100000 элементов а условие возрастания нарушается при первой проврке
Я и говорю, что если бы был файл, то все ok,
а у нее с клавы...
Ну и что ошибки то нету никакой, я имею в виду рпограмма завернаештся корректно .. можно убрать
and checkи все будет ок ...
Есть такой выход
вместо readln поставить read в твоем варианте
и просить вввести все числа в одну строуку через пробел
тогда будет не заметно, что ты пользователя прервал на полуслове
and checkи все будет ок ...
and checKбудет ошибка
Точно, тогда можно сдеать вот так :
while (i < n) do begin
readln(_succ);
if check then check := (_pred < _succ);
_pred := _succ;
inc(i);
end;
Pola, я не понял, ты умеешь только чужие решения критиковать? Свои шедевры ты считаешь зазорным выложить на форуме?
volvo, зачем за других делать?
вот ошибку можно помочь найти
учаться на своих ошибках...
а у меня способности искать ошибки.
У меня тоже есть такие способности - искать ошибки, так почему ты мне эти способности не даешь проявить на твоих программах? Нехорошо...
Да это не выход, даже если read и через пробел, то всё равно некорректно... буду как-нибудь другим способом, благо способов сортировки предостаточно..) всё равно спасибо за помощь;)
volvo, а уменя пока по своим вопросов к тебе нет
а коды я давала... про стороны треугольника посмотри
и исправляй сколько хошь
Чем не понравился вот этот вариант ? Это какраз ТО что тебе нужно, не используется массив и последовательность вводится ПОЛНОСТЬЮ
http://forum.pascal.net.ru/index.php?s=&showtopic=8830&view=findpost&p=59065 - пост N11