МОСКОВСКИЙ ИНСТИТУТ РАДИОТЕХНИКИ, ЭЛЕКТРОНИКИ И АВТОМАТИКИ (ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ) Отчет по лабораторной работе №1 Программирование на языках В/У Студент: Группа: Москва 2003
    
    СОДЕРЖАНИЕ
    
    1 ЗАДАНИЕ 3
    2 БЛОК-СХЕМА ПРОГРАММЫ 3
    3 ТЕКСТ ПРОГРАММЫ 4
    4 ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ 5
    5 РУКОВОДСТВО ОПЕРАТОРА 7
    
     1 ЗАДАНИЕ
    
    Программа должна вставить новый элемент E после первого элемента непустого списка L.
    
    2 БЛОК-СХЕМА ПРОГРАММЫ
    
    
    
    
    
    
    
    
     да
    
    
     нет
    
     нет
     да
    
    
    
    
    
     нет
    
     да
    
    
    
    
    
    
     3 ТЕКСТ ПРОГРАММЫ
    
    Program Project1;
    {$APPTYPE CONSOLE}
    Uses SysUtils;
    
    type
    spisok=^s;
    s=record
    i:integer;
    p:spisok; end;
    var
    n,k:word;
    E:integer;
    L,FstL,LL:spisok;
    BEGIN
    Write('Kol. Elementov L:> ');ReadLn(k);
    FOR n:=1 to k do BEGIN
    New(L); Write('L',n,' :> '); ReadLn(L^.i);
    L^.p:=nil;
    IF n=1 THEN begin FstL:=L; LL:=L; end
    ELSE begin LL^.p:=L;LL:=L; end;
    END;
    
    Write('Element E:> '); ReadLn(E);
    New(L); L^.i:=E; L^.p:=FstL^.p; FstL^.p:=L; L:=FstL;
    
    While Lnil do begin Write(L^.i,' '); L:=L^.p; end;
    ReadLn;
    END.
     4 ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ
    
    ТАБЛИЦА ТИПОВ, ИСПОЛЬЗУЕМЫХ ПРОГРАММОЙ Имя типа Тип Назначение spisok Тип динамической переменной со структурой s s record запись, содержащая переменную типа integer (i) и ссылку (p)
    ТАБЛИЦА ПЕРЕМЕННЫХ, ИСПОЛЬЗУЕМЫХ ПРОГРАММОЙ Имя Тип Назначение n Word Счетчик циклов k Word Количество элементов в списке L E integer Элемент, который необходимо вставить после первого элемента в списке L L spisok Указатель, содержащий адрес произвольного элемента списка L FstL spisok Указатель, содержащий адрес первого элемента списка L LL spisok Указатель, содержащий адрес последнего элемента списка L
    
    
    Вначале работы программа выводит на экран строку "Kol. Elementov L:>", после чего необходимо ввести значение количества элементов, которые будут записываться в список L. Затем происходит считывание этого значения и переменной k присваивается значение количества элементов списка L.
    Далее организуется цикл для ввода элементов списка L c помощью операторов FOR и TO. Начиная с n, принимающего значение единицы до значения k, которое равно числу элементов списка, программа выполняет следующее. С помощью процедуры New резервирует место в памяти ЭВМ под динамическую переменную, адрес которой содержит указатель L. Выводит на экран строку, в которой содержится номер элемента списка, который следует вводить. ............