1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Помогите Исправить Программу

Тема в разделе "Pascal and Delphi", создана пользователем -, 2 июн 2012.

  1. Гость

    Репутация:
    0
    Задание:
    Получить новый список, в котором первый элемент = сумме первого и второго исходного, второй элемент - сумме второго и предпоследнего и т.д.
    Вот, собсно говоря, моя программа, первый элемент выводит верно, а остальные нет, прошу, помогите!
    Код:
    Type
    Link=^Elem;
    Elem=record
    inf:integer;
    lnext,rnext:Link;
    end;
    LinkNew=^ElemNew;
    ElemNew=record
    inf:integer;
    next:LinkNew
    end;
    var
    P,T,L,R:Link;
    n,i:byte;
    s:integer;
    F,Pnew,Tnew:LinkNew;
    begin
    writeln('Введите количество элементов');
    readln(n);
    writeln('Введите ',n,' элементов');
    new(P);
    P^.lnext:=nil;
    readln(P^.inf);
    L:=P;
    for i:=2 to n do
    begin
    new(T);
    readln(T^.inf);
    T^.lnext:=P;
    P^.rnext:=T;
    P:=T;
    end;
    T:=L;
    new(F);
    Pnew:=F;
    for i:=2 to n div 2 do
    begin
    new(Tnew);
    Pnew^.next:=Tnew;
    Pnew:=Tnew;
    s:=T^.inf+P^.inf;
    T:=T^.rnext;
    P:=P^.lnext;
    end;
    Pnew^.next:=nil;
    writeln('Получен список:');
    Pnew:=F;
    while Pnew<>nil do
    begin
    write(s,' ');
    Pnew:=Pnew^.next;
    end;
    writeln;
    end.
     
Загрузка...
Похожие Темы - Помогите Исправить Программу
  1. Rpp
    Ответов:
    1
    Просмотров:
    911
  2. victory
    Ответов:
    0
    Просмотров:
    1.078
  3. victory
    Ответов:
    0
    Просмотров:
    897
  4. victory
    Ответов:
    3
    Просмотров:
    1.517
  5. victory
    Ответов:
    3
    Просмотров:
    1.150

Поделиться этой страницей