Категория
Информатика
Тип
реферат
Страницы
9 стр.
Дата
08.07.2008
Формат файла
.doc — Microsoft Word
Архив
19918.zip — 20.23 kb
  • otchet-po-laboratornoj-rabote-no2_19918_1.doc — 100 Kb
  • Readme_docus.me.txt — 125 Bytes
Рейтинг
10  из 10
Оценок
1
Оцените работу
Хорошо  или  Плохо


Текст работы

МОСКОВСКИЙ ИНСТИТУТ РАДИОТЕХНИКИ,
ЭЛЕКТРОНИКИ И АВТОМАТИКИ
(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)
Отчет по лабораторной работе №2Программирование на языках В/У
Студент:
Группа:
Москва 2003
СОДЕРЖАНИЕ
1 ЗАДАНИЕ 3
2 БЛОК-СХЕМА ПРОГРАММЫ 3
3 ТЕКСТ ПРОГРАММЫ 5
4 ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ 6
5 РУКОВОДСТВО ОПЕРАТОРА 101 ЗАДАНИЕ
Многочлен с целыми коэффициентами представить в виде списка. Программа должна проверять на равенство многочлены 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) and (Q^.p=nil)) or ((P^.p=nil) and (Q^.pnil)) Then
Begin Write('P Q');



Ваше мнение



CAPTCHA