Отчет по лабораторной работе №2
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
МОСКОВСКИЙ ИНСТИТУТ РАДИОТЕХНИКИ,
ЭЛЕКТРОНИКИ И АВТОМАТИКИ
(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)
Отчет по лабораторной работе №2
Программирование на языках В/У
Студент:
Группа:
Москва 2003
СОДЕРЖАНИЕ
1ЗАДАНИЕ 3
2БЛОК-СХЕМА ПРОГРАММЫ 3
3ТЕКСТ ПРОГРАММЫ 5
4ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ 6
5РУКОВОДСТВО ОПЕРАТОРА 10
1ЗАДАНИЕ
Многочлен с целыми коэффициентами представить в виде списка. Программа должна проверять на равенство многочлены P и Q.
2БЛОК-СХЕМА ПРОГРАММЫ
да
нет
нет
да
да
нет
нет
да
Нет
Да
Нет Да
Нет
Да
Нет Да
Нет
Да
Да Нет
3ТЕКСТ ПРОГРАММЫ
Program Project1;
{$APPTYPE CONSOLE}
Uses SysUtils;
type
spisok=^s;
s=record a,n:Integer; p:spisok; end;
var
k,m:word; b:boolean; P,Q,FstP,LP,FstQ,LQ:spisok;
BEGIN
{ФОРМИРОВАНИЕ СПИСКОВ P и Q}
Write(Kol. Elementov P:> ); ReadLn(k);
FOR m:=1 to k do BEGIN
New(P);
Write(Koef. :> ); ReadLn(P^.a); Write(Step. :> ); ReadLn(P^.n);
P^.p:=nil;
IF m=1 THEN begin FstP:=P; LP:=P; end
ELSE begin LP^.p:=P;LP:=P; end;
END;
Write(Kol. Elementov Q:> ); ReadLn(k);
FOR m:=1 to k do BEGIN
New(Q);
Write(Koef. :> ); ReadLn(Q^.a);
Write(Step. :> ); ReadLn(Q^.n);
Q^.p:=nil;
IF m=1 THEN begin FstQ:=Q; LQ:=Q; end
ELSE begin LQ^.p:=Q;LQ:=Q; end;
END;
{ПРОГРАММА}
P:=FstP;Q:=FstQ;
REPEAT
If ((P^.pnil)) Then
Begin Write(P <> Q); b:=true; End;
If (P^.p=nil) and (Q^.p=nil) Then Begin
If (P^.a=Q^.a) and (P^.n=Q^.n) Then Begin Write(P = Q); b:=true; End
Else Begin Write(P <> Q); b:=true; End;
End;
If (P^.pnil) Then BEGIN
If (P^.a=Q^.a) and (P^.n=Q^.n) Then Begin P:=P^.p; Q:=Q^.p; End
Else Begin Write(P <> Q); b:=true; End;
END;
UNTIL b=true;
ReadLn;
END.
4ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ
ТАБЛИЦА ТИПОВ, ИСПОЛЬЗУЕМЫХ ПРОГРАММОЙ
Имя типаТипНазначениеspisokДинамическая переменная со структурой ssrecordЗапись, содержащая переменные типа integer (а, n) и ссылку (p). а используется для записи значения коэффициента многочлена, а n для степени при которой стоит этот коэффициент
ТАБЛИЦА ПЕРЕМЕННЫХ, ИСПОЛЬЗУЕМЫХ ПРОГРАММОЙ
ИмяТипНазначениеmWordСчетчик цикловkWordКоличество элементов в многочленахbbooleanПризнак нахождения результата сравнения списков P и QPspisokУказатель, содержащий адрес произвольного элемента списка РQspisokУказатель, содержащий адрес произвольного элемента списка QFstPspisokУказатель, содержащий адрес первого элемента списка РFstQspisokУказатель, содержащий адрес первого элемента списка QLPspisokУказатель, содержащий адрес последнего элемента списка РLQspisokУказатель, содержащий адрес последнего элемента списка Q
Вначале работы программа выводит на экран строку "Kol. Elementov P:>", после чего необходимо ввести значение количества элементов, которые будут записываться в список P. Затем происходит считывание этого значения и переменной k присваивается это значение.
Далее организуется цикл для ввода коэффициентов (а) и степеней каждого отдельного элемента (n) списка Р, начиная с элемента имеющего наибольшую степень и заканчивая коэффициентом элемента имеющего наименьшую степень. Цикл организуется операторами FOR и TO. Начиная с m, принимающего значение 1, до значения переменной k (количество элементов в списке) программа выполняет следующее:
- С помощью процедуры New резервирует место в памяти ЭВМ под динамическую переменную, адрес которой содержит указатель P.
- Выводит на экран строку, в которой написано "Koef. :>". После вывода строки программа ждет ввода значения коэффициента элемента. После ввода значения оно присваивается в поле а динамической переменной структуры s, на которую ссылается указатель Р.
- Выводит на экран строку, в которой написано "Step. :>". После вывода строки программа ждет ввода значения степени элемента. После ввода значения оно присваивается в поле n динамической переменной структуры s, на которую ссылается указатель Р. В поле p записывается значение nil.
- Проверяется условие: если m равно 1, что соответствует первому элементу списка, тогда программа присваивает значение указателя Р указателям FstР (указатель, содержащий адрес первого элемента списка) и LР (указатель, содержащий адрес последнего элемента списка). То есть указатель FstL будет содержать адрес первого элемента списка. А иначе если m не равно 1, что соответствует второму и последующим элементам списка, программа присваивает ссылке последнего элемента списка, на который указывает указатель LР значение указателя Р, и указателю LР присваивает адрес указател?/p>