|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Найти первое нечетное число
setConsoleOutputCP(1251);
SetConsoleCP(1251); Последний раз редактировалось Smile188, 12.10.2016 в 10:45. |
#2
|
||||
|
||||
Оффтоп:
Цитата:
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
А точно нужно находить элемент списка, у которого СЛЕДУЮЩИЙ элемент содержит нечётное число?
Может быть надо так Код:
function Found_last_elem(L:TList):TList; begin result:=L; while (result <> nil) do begin if (result^.info mod 2) <>0 then exit; result:=result^.next; end; end; Код:
if Podd=nil then writeln('Нечетных чисел нет') else И, кстати, если это Дельфи, то значок ^ можно не писать. |
#4
|
|||
|
|||
Спасибо, но ошибки мне выдает , когда я пытаюсь вставить квадрат первого нечетнооо числа
|
#5
|
||||
|
||||
А квадрат вычисляете
Код:
squared := Sqr(number); Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#6
|
|||
|
|||
Да, влетаешь на result=nil во втором условии. Надо так:
Код:
function Found_last_elem(L:TList):TList; begin result:=L; while(result^.next<>nil)and (result^.info mod 2=0 ) do result:=result^.next; end; Код:
var NewItem : TList; ... Podd:=Found_last_elem(L); if Podd = Nil then writeln('No odd elements.') else begin New(NewItem); New^.Info := sqr(Podd^.info); New^.next := Podd^.next; Podd^.next := NewItem; end; ... |