Реферат : Отчет по лабораторной работе №2 


Полнотекстовый поиск по базе:

Главная >> Реферат >> Информатика, программирование


Отчет по лабораторной работе №2




МОСКОВСКИЙ ИНСТИТУТ РАДИОТЕХНИКИ,

ЭЛЕКТРОНИКИ И АВТОМАТИКИ

(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)

Отчет по лабораторной работе №2

Программирование на языках В/У

Студент:

Группа:

Москва 2003

СОДЕРЖАНИЕ

1 ЗАДАНИЕ 3

2 БЛОК-СХЕМА ПРОГРАММЫ 3

3 ТЕКСТ ПРОГРАММЫ 5

4 ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ 6

5 РУКОВОДСТВО ОПЕРАТОРА 10

1 ЗАДАНИЕ

Многочлен с целыми коэффициентами представить в виде списка. Программа должна проверять на равенство многочлены P и Q.

2 БЛОК-СХЕМА ПРОГРАММЫ

Write('Kol. Elementov P:> ');

ReadLn(k);


m:=1



New(P);

Write('Koef. :> ');

ReadLn(P^.a);

Write('Step. :> ');

ReadLn(P^.n);

P^.p:=nil;


m:=m+1




FstP:=P;

LP:=P;


да


LP^.p:=P;

LP:=P;


нет


нет


да

Write('Kol. Elementov Q:> ');

ReadLn(k);


m:=k



New(Q);

Write('Koef. :> ');

ReadLn(Q^.a);

Write('Step. :> ');

ReadLn(Q^.n);

Q^.p:=nil;


m:=m+1


FstQ:=Q;

LQ:=Q;


да


нет


LQ^.p:=Q;

LQ:=Q;

нет


да

P:=FstP;

Q:=FstQ;



Нет



Да

Write('P <> Q');

b:=true;



Нет Да



Нет


Да

Write('P = Q');

b:=true;

Write('P <> Q');

b:=true;




Нет Да


Нет

Да




ReadLn

Да Нет



P:=P^.p; Q:=Q^.p;

Write('P <> Q');

b:=true;


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^.p<>nil) and (Q^.p=nil)) or ((P^.p=nil) and (Q^.p<>nil)) 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^.p<>nil) and (Q^.p<>nil) 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

Динамическая переменная со структурой s

s

record

Запись, содержащая переменные типа integer (а, n) и ссылку (p). а используется для записи значения коэффициента многочлена, а n для степени при которой стоит этот коэффициент

ТАБЛИЦА ПЕРЕМЕННЫХ, ИСПОЛЬЗУЕМЫХ ПРОГРАММОЙ

Имя

Тип

Назначение

m

Word

Счетчик циклов

k

Word

Количество элементов в многочленах

b

boolean

Признак нахождения результата сравнения списков P и Q

P

spisok

Указатель, содержащий адрес произвольного элемента списка Р

Q

spisok

Указатель, содержащий адрес произвольного элемента списка Q

FstP

spisok

Указатель, содержащий адрес первого элемента списка Р

FstQ

spisok

Указатель, содержащий адрес первого элемента списка Q

LP

spisok

Указатель, содержащий адрес последнего элемента списка Р

LQ

spisok

Указатель, содержащий адрес последнего элемента списка 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Р присваивает адрес указателя Р. Элемент, на который ссылается указатель Р становится последним в списке.

На этом цикл оператора FOR завершается. Таким образом происходит заполнение списка Р, который содержит значения коэффициентов и степеней всех элементов многочлена вида .

После этого программа выводит на экран строку "Kol. Elementov Q:>", после чего необходимо ввести значение количества элементов, которые будут записываться в список Q. Затем происходит считывание этого значения и переменной k присваивается это значение.

Далее организуется цикл аналогичный циклу записи элементов списка Р. Вместо Р здесь используется указатель Q, вместо FstP указатель FstQ, который содержит адрес первого элемента списка Q, а вместо LP используется LQ, который содержит адрес последнего элемента списка Q. Таким образом формируется два списка Р и Q.

Указателям Р и Q присваивается адрес первого элемента списков Р и Q, которые содержатся соответственно в указателях FstР и FstQ. Затем организуется цикл с помощью операторов REPEAT и UNTIL, который выполняется до тех пор пока переменная b (признак нахождения результата сравнения списков P и Q) не станет равным true.

1) Проверяется условие с помощью оператора IF. Если значение поля р динамической переменной структуры s, на которую указывает указатель Р, не равно значению nil и это же поле динамической переменной структуры s, на которую указывает указатель Q, равно значению nil ИЛИ наоборот значение поля р динамической переменной структуры s, на которую указывает указатель Р, равно значению nil и это же поле динамической переменной структуры s, на которую указывает указатель Q, не равно значению nil, то тогда выполняется следующее. На экран выводится строка "P <> Q" и переменной b присваивается значение true. Это соответствует тому, что один из списков содержит меньшее количество элементов, чем в другом. Соответственно многочлены не могут быть равны друг другу.

2) Проверяется условие с помощью оператора IF. Если значение поля р динамической переменной структуры s, на которую указывает указатель Р, равно значению nil и это же поле динамической переменной структуры s, на которую указывает указатель Q, равно значению nil, что соответствует адресам последних элементов двух списков, то тогда проверяется равенство коэффициентов и степеней последних элементов списков Р и Q. Если значения полей а динамических переменных структуры s, на которые указывают указатели Р и Q, равны друг другу, что соответствует тому что все предыдущие элементы этих списков были равны и последние элементы тоже равны. Тогда на экран выдается строка "P = Q" и переменной b присваивается значение true. А иначе на экран выводится строка "P <> Q" и переменной b присваивается значение true. Это соответствует тому, что все элементы кроме последних в списках равны.

3) Проверяется условие с помощью оператора IF. Если значение поля р динамической переменной структуры s, на которую указывает указатель Р, не равно значению nil и это же поле динамической переменной структуры s, на которую указывает указатель Q, не равно значению nil, что соответствует адресам не последних элементов двух списков, то тогда проверяется равенство коэффициентов и степеней последних элементов списков Р и Q. Если они равны, то тогда указателям присваивается значение следующих элементов списка, т. е. значения полей р динамической переменной структуры s, на которую они в данный момент ссылаются. И программа будет сравнивать в следующем цикле следующие элементы списка. Иначе на экран выводится строка "P <> Q" и переменной b присваивается значение true. Это соответствует тому, что какой-то элемент из одного списка отличается от соответствующего ему элемента другого списка. Соответственно многочлены не могут быть равны друг другу.

В результате этого цикла определяется равенство списков Р и Q.

Далее программа ждет нажатия на клавишу "Enter". Программа завершает работу.

5 РУКОВОДСТВО ОПЕРАТОРА

Многочлен с целыми коэффициентами представить в виде списка. Программа должна проверять на равенство многочлены P и Q.

Для работы программы необходимо задать два многочлена P и Q.

Для этого программа выдает на экран строку:

Kol. Elementov Р:>

После этого необходимо ввести количество элементов многочлена Р и нажать клавишу "Enter". Программа запоминает это значение.

Затем программа будет спрашивать у оператора коэффициент при х и степень х каждого элемента многочлена начиная с первого элемента, имеющего максимальную степень, и заканчивая элементом с наименьшей степенью.

Для этого программа выдает на экран строку:

Koef. :>

После этой строки необходимо ввести значение коэффициента элемента многочлена и нажать клавишу "Enter".

Далее программа выведет на экран следующую строку:

Step. :>

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

Далее программа будет запрашивать ввести коэффициент и степень следующего элемента, если их больше одного и т. д до.

Все вводимые значения программа запоминает и формирует список, содержащий все значения коэффициентов и степеней х, при которых они стоят.

Таким образом формируется список Р.

Затем программа выдает на экран строку:

Kol. Elementov Q:>

После этого необходимо ввести количество элементов многочлена Q и нажать клавишу "Enter". Программа запоминает это значение.

Затем программа будет спрашивать у оператора коэффициент при х и степень х каждого элемента многочлена начиная с первого элемента, имеющего максимальную степень, и заканчивая элементом с наименьшей степенью.

Для этого программа выдает на экран строку:

Koef. :>

После этой строки необходимо ввести значение коэффициента элемента многочлена и нажать клавишу "Enter".

Далее программа выведет на экран следующую строку:

Step. :>

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

Далее программа будет запрашивать ввести коэффициент и степень следующего элемента, если их больше одного и т. д до.

Все вводимые значения программа запоминает и формирует список, содержащий все значения коэффициентов и степеней х, при которых они стоят.

Таким образом формируется список Q.

После того как два многочлена представлены в виде списка начинается основная часть программы.

Если коэффициент или степень хотя бы одного элемента многочлена отличается от коэффициента или степени соответствующего элемента другого многочлена, то эти два многочлена никак не могут быть равны друг другу. Программа начинает сравнивать коэффициенты и степени каждого из элементов двух списков между собой, начиная с первого. Если программа находит хотя бы один элемент многочлена отличающийся от соответствующего элемента второго многочлена, то соответственно на экран будет выведена строка:

P <> Q

Если же программа не находит ни одного элемента многочлена отличающегося от соответствующего элемента второго многочлена, то соответственно на экран будет выведена строка:

P = Q

Далее программа ждет нажатия на клавишу "Enter". После этого программа завершает работу.

ПРИМЕР

1) Если вы хотите задать многочлен Р равный 4х2+2х+1, то необходимо:

Когда на экран будет выведена строка:

Kol. Elementov Р:>

Необходимо ввести значение 3 и нажать клавишу "Enter".

Далее будет выведена строка:

Koef. :>

После этой строки необходимо ввести значение 4 и нажать клавишу "Enter".

Далее программа выведет на экран следующую строку:

Step. :>

После этой строки необходимо ввести значение 2 и нажать клавишу "Enter".

Далее будет выведена снова строка, т. к. число элементов в многочлене равно 3:

Koef. :>

После этой строки необходимо ввести значение 2 и нажать клавишу "Enter".

Далее программа выведет на экран следующую строку:

Step. :>

После этой строки необходимо ввести значение 1 и нажать клавишу "Enter".

Далее будет выведена третий и последний раз строка:

Koef. :>

После этой строки необходимо ввести значение 1 и нажать клавишу "Enter".

Далее программа выведет на экран следующую строку:

Step. :>

После этой строки необходимо ввести значение 0 и нажать клавишу "Enter".

Таким образом вы зададите многочлен 4х2+2х+1.

Аналогично задается и многочлен Q. Если вы задали многочлен Q равный 3х2+2х+1, то после вычислений программа выдаст на экран строку о том, что эти два многочлена не равны:

P <> Q

Далее необходимо нажать клавишу "Enter" и программа завершает работу.

2) Если вы задали многочлен Р равный: 4х2+2х+1. И многочлен Q равный: 4х2+2х+1, то после вычислений программа выдаст на экран строку о том, что эти два многочлена равны друг другу:

P = Q

Далее необходимо нажать клавишу "Enter" и программа завершает работу.

Похожие работы:

  • Отчет по лабораторной работе

    Реферат >> Физика
    ... РАДИОТЕХНИКИ ЭЛЕКТРОНИКИ И АВТОМАТИКИ (ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ) ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ ОПРЕДЕЛЕНИЕ УДЕЛЬНОГО ЗАРЯДА ЭЛЕКТРОНА МЕТОДОМ ... движением является движение по спирали с шагом h. Рис. 2 В настоящей работе для определения удельного ...
  • Отчет по лабораторной работе по курсу «Проектирование информационно–вычислительных комплексов»

    Реферат >> Схемотехника
    ... им. Н. Е. Жуковского «ХАИ» кафедра 301 Отчет по лабораторной работе № 1 по курсу «Проектирование информационно – вычислительных комплексов» ...
  • Отчет по лабораторной работе Термодинамика

    Реферат >> Химия
    ... концентрации реагирующих веществ. 2.1.1 Описание хода работы. Используя мерный цилиндр в 5 обозначенных пробирках ... университет информатики и радиоэлектроники. Кафедра Химии. Отчет по лабораторной работе №1 “Кинетика физико-химических процессов. Химическое ...
  • Отчет по лабораторным работам

    Реферат >> Статистика
    ... исследований операций в экономике Отчет по лаборотной работе № 1 по теме «Группировки» по дисциплине «Статистика» Выполнила: ... операций в экономике Отчет по лаборотной работе № 2 по теме «Анализ распределения» по дисциплине «Статистика» Выполнила ...
  • Лабораторная работа №6

    Реферат >> Информатика, программирование
    Цель работы: Освоение правил составления ... № 17. Вычислить значение функции , по указанному графику для значений аргумента ... государственная радиотехническая академия Кафедра ВПМ Отчет о лабораторной работе № 6: «Проектирование программ циклической структуры ...
  • Лабораторная работа №7

    Реферат >> Информатика, программирование
    ... } {Цель: вычисление корня с заданной погрешностью по итерационному циклу} {Описание параметров и переменных ... государственная радиотехническая академия Кафедра ВПМ Отчет о лабораторной работе № 7: «Конструирование программ циклической структуры с неизвестным ...
  • Лабораторная работа №9

    Реферат >> Информатика, программирование
    ... значение } {x,a-переменные } {метод решения:вычесление по формулам } {подпрограммы:отсуствуют } {програмист:студент ... государственная радиотехническая академия Кафедра ВПМ Отчет о лабораторной работе № 8: «Проектирование алгоритмов и программ со структурой ...
  • Лабораторные по информатике

    Реферат >> Информатика, программирование
    ... M3 M5: NOP END Микропроцессоры. Отчет по лабораторным работам. Лабораторная работа №1. Задание. Составить программу записи ... Результаты совпали расчетными. Лабораторная работа №2. Задание. Запустить программу, написанную в лабораторной работе №1 на отладочной ...
  • Работа с типами данных записи

    Лабораторная работа >> Информатика, программирование
    ... автоматизированных систем Отчет по Лабораторной работе «Работа с типами данных записи» По дисциплине «Информатика» ... 2010г Цель и задачи работы Создание структуры данных; Возможность ... После выполнения этой лабораторной я освоил работу со структурами данных. ...