[Smile188]

setConsoleOutputCP(1251);
SetConsoleCP(1251);

[Alegun]

Оффтоп:

Сообщение от M.A.D.M.A.N.

Ха, олимпиадная задачка.

Сообщение от Smile188

...я пыталась, но выдает ошибки...

Без Un_list.pas это не проверить

[icWasya]

А точно нужно находить элемент списка, у которого СЛЕДУЮЩИЙ элемент содержит нечётное число?
Может быть надо так

Код:

1 2 3 4 5 6 7 8 9

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;

И, соответственно, проверять

Код:

1 2	if Podd=nil then   writeln('Нечетных чисел нет') else

И, кстати, если это Дельфи, то значок ^ можно не писать.

[Smile188]

Спасибо, но ошибки мне выдает , когда я пытаюсь вставить квадрат первого нечетнооо числа

[Alegun]

А квадрат вычисляете

Код:

1	squared := Sqr(number);

?

[lmikle]

Да, влетаешь на result=nil во втором условии. Надо так:

Код:

1 2 3 4 5 6

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;

вставка тогда как-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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; ...

[Smile188]

Программа запустилась, но не возводит в квадрат число
Посмотрите пожалуйста, может есть какие нибудь ошибки

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

program Project1;    {$APPTYPE CONSOLE}    uses   SysUtils,   Un_list in 'Un_list.pas',   Windows; 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 L:TList; Podd: TList;  newItem:Tlist;       begin setConsoleOutputCP(1251); SetConsoleCP(1251); Create_Order_from_file(L, 'input.txt'); Print_to_file(L,'output.txt'); Podd:=Found_last_elem(L);   if Podd = Nil  then writeln('нет нечетных.')   else     begin        New(NewItem);        Newitem^.Info := sqr(Podd^.info);        Newitem^.next := Podd^.next;        Podd^.next := NewItem;     end;    Print_to_file(L,'output.txt'); Clear(L); writeln('Файл создан '); readln; end.

и

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96

unit Un_list;    interface         type TInfo=integer; Tlist=^Node; Node=record      info:TInfo;      next:Tlist; end;   Procedure Create_Order_from_file(var L:Tlist; file_name:string);   Procedure Print_to_file(L:Tlist; file_name:string);   Procedure Clear(var L:Tlist);     Function Del_After_Node(var Pnode:TList):TInfo;           implementation     procedure Init(var L:Tlist); begin new(L); L^.next:=nil; end;    Function Empty(L:TList):boolean; begin result:=L^.next= nil; end;    Procedure Add_after_Node(var PNode:TList; new_elem:TInfo); var p:TList; begin new(p); p^.info:=new_elem; p^.next:=PNode^.next; Pnode^.next:=p; end;    Function Del_After_Node(var PNode:TList):TInfo; var p:TList; begin p:=PNode^.next; PNode^.next:=p^.next; result:=p^.info; p^.next:=nil; dispose(p); end;    Function Found_Place(L:TList; new_elem:TInfo):TList; begin result:=L; While(result^.next<>nil) and (result^.next^.info< new_elem) do result:=result^.next; end;    Procedure Create_Order_from_file(var L:TList; file_name:string); var f:Textfile; new_elem:TInfo; place:TList; begin Init(L); AssignFile(f,file_name); Reset(f); While not eof(f) do begin read(f,new_elem); place:=Found_place(L, new_elem); Add_after_Node (Place,new_elem); end; closeFile(f); end;    Procedure Print_to_file(L:TList; file_name:string); var p:TList; f:Textfile; begin p:=L^.next; AssignFile(f,file_name); Rewrite(f); While p<> nil do begin Write(f,p^.info, ' '); p:=p^.next; end; CloseFile(f); end;    Procedure Clear(var L:TList); begin While not Empty(L) do Del_after_Node(L); dispose(L); end;       end.

[Alegun]

Программа запустилась и возводит в квадрат каждое нечётное число, это отображается в конечном файле output.txt, где за нечетчислом вставляется его квадрат, что не так, не понятки

[Smile188]

..............