|
Реферат: Отчет по лабораторной работе №2 (Компьютеры)
МОСКОВСКИЙ ИНСТИТУТ РАДИОТЕХНИКИ,
ЭЛЕКТРОНИКИ И АВТОМАТИКИ
(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)
Отчет по лабораторной работе №2
Программирование на языках В/У
Студент:
Группа:
Москва 2003
СОДЕРЖАНИЕ
1 ЗАДАНИЕ 3
2 БЛОК-СХЕМА ПРОГРАММЫ 3
3 ТЕКСТ ПРОГРАММЫ 5
4 ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ 6
5 РУКОВОДСТВО ОПЕРАТОРА 10
1 ЗАДАНИЕ
Многочлен [pic] с целыми коэффициентами представить в виде списка.
Программа должна проверять на равенство многочлены 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'); 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) and (Q^.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| |Динамическая переменная со структурой 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 завершается. Таким образом происходит
заполнение списка Р, который содержит значения коэффициентов и степеней
всех элементов многочлена вида [pic].
После этого программа выводит на экран строку "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 РУКОВОДСТВО ОПЕРАТОРА
Многочлен [pic] с целыми коэффициентами представить в виде списка.
Программа должна проверять на равенство многочлены 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" и программа завершает работу.
-----------------------
m:=m+1
m=k
m:=k
LP^.p:=P;
LP:=P;
m=1
New(Q);
Write('Koef. :> ');
ReadLn(Q^.a);
Write('Step. :> ');
ReadLn(Q^.n);
Q^.p:=nil;
Write('Kol. Elementov Q:> ');
ReadLn(k);
m:=1
FstP:=P;
LP:=P;
m=1
LQ^.p:=Q;
LQ:=Q;
P:=FstP;
Q:=FstQ;
FstQ:=Q;
LQ:=Q;
m:=m+1
New(P);
Write('Koef. :> ');
ReadLn(P^.a);
Write('Step. :> ');
ReadLn(P^.n);
P^.p:=nil;
m=k
Начало программы
Write('Kol. Elementov P:> ');
ReadLn(k);
(P^.pnil)
and
(Q^.pnil)
Write('P Q');
b:=true;
(P^.a=Q^.a) and (P^.n=Q^.n)
Write('P = Q');
b:=true;
ReadLn
b=true
Write('P Q');
b:=true;
(P^.a=Q^.a)
and
(P^.n=Q^.n)
P:=P^.p; Q:=Q^.p;
(P^.p=nil)
and
(Q^.p=nil)
Write('P Q');
b:=true;
((P^.pnil) and (Q^.p=nil))
or ((P^.p=nil) and (Q^.pnil))
Выход
Реферат на тему: Отчет по практике по Turbo Pascal
Практическое задание №1
Записать выражение на языке Паскаль. Использование стандартных функций.
Оператор присваивания.
Цель задания
Освоение простейших конструкций языка Паскаль.
Получение навыков работы с числами. Использование стандартных функций,
арифметических операций для записи математических выражений на языке
Паскаль.
Получение практических навыков работы над ошибками. Освоение синтаксиса
языка Паскаль.
Поставка задачи
Записать математическое выражение на языке Паскаль, и составить
программу вычисления значения оператора присваивания. Описать порядок
действий, над выражением исходя из приоритетности вычислений стандартных
функций и арифметических операции.
|1. a = | x=47,8 |
|(x+y/(5+x))/|y-sinx+x|+5arctgx|y=-5,5 |
| |u=2,3 |
| |v=0,8 |
|2. b= etgu+1 lnarcsinv [pic] | |
Листинг программы
program zadanie_1;
uses crt;
var
x,y,u,v:real;
a,b:real;
begin
clrscr;
x:=47.8;
y:=-5.5;
u:=2.3;
v:=0.8;
writeln('Протокол работы програмы');
writeln('вычисление значений a и b');
a:=(x+y/(5+sqrt(x)))/abs(y-sin(x)+sqrt(x))+5*arctan(x);
b:=exp(sin(u)/cos(u)+1)*ln(arctan(v/sqrt(1-v*v)));
writeln('a=',a);
writeln('b=',b);
writeln('конец счета');
readln;
readln;
end.
Протокол работы програмы
вычисление значений a и b
a= 3.0959950475E+01
b=-6.7000345276E-02
конец счета
В данной программе были использованы следующие стандартные функции:
sin(x), cos(x), abs(x), sqr(x), sqrt(x), arctan(x),exp(x),ln(x).
В частности через функции: arctan(x), sin(x), cos(x), были выражены
такие тригонометрические функции как arcos(x), tg(x).
В ходе работы ошибок допущено не было.
Практическое задание №2
Организация ввода/вывода стандартных типов данных
Цель задания
1. Освоение простейшей структуры программы.
1. Получение навыков в организации ввода/вывода значений стандартных типов
данных.
2. Получение практических навыков работы в интерактивном (диалоговом)
режиме.
Постановка задачи
Организовать ввод/вывод данных заданных типов, предусмотрите выводы с
соответствующими заголовками.
| |целые числа | |Вещественные числа |
| | |формат | |формат |
|1 |2 |3 |4 |5 |6 |7|8 |9 |10 |
|N |ко|ста|ш |ко|Ст|ш|зна|си|печать |
| |ли|нда|и |ли|ан| |ков|мв|булевской|
|в |че|ртн|р |че|да|и| |ол|переменно|
|а |ст|ый |и |ст|рт|р|пос|ов|й |
|р |во| |н |во|ны|и|ле | | |
|и | | |а | |й |н|. | | |
|а | | | | | |а| | | |
|н | | |п | | | | | | |
|т | | |о | | | | | | |
|а | | |л | | |п| | | |
| | | |я | | |о| | | |
| | | | | | |л| | | |
| | | | | | |я| | | |
|13 |3 |c |3 |6 |C |5|2 |4 |FALSE |
Листинг программы
program zadanie_2;
uses crt;
const
log=false;
var
k,l,m:integer;
a,b,c,d,e,f:real;
s1,s2,s3,s4:char;
begin
clrscr;
writeln('Введите целые числа K,L,M:');
read(k,l,m);
writeln('':30,'целые числа');
writeln('','стандартная форма','':18,'заданная ширина поля');
writeln('',k,' ',l,' ',m,'':30,'K=',k:3,' L=',l:3,' M=',m:3);
writeln;
writeln('':25,'Введите вещественные числа A,B,C,D,E,F:');
readln(a,b,c,d,e,f);
writeln('':20,'стандартная форма');
writeln('',a,' ',b,' ',c,' ',d,' ',e,' ',f);
writeln('':18,'заданная ширина поля');
writeln('A=',a:5:2,' B=',b:5:2,' C=',c:5:2,' D=',d:5:2,' E=',e:5:2,'
F=',f:5:2);
writeln;
writeln('Введите символы S1,S2,S3,S4:');
readln(s1,s2,s3,s4);
writeln('символьные переменные:');
writeln('S1=',s1,' S2=',s2,' S3=',s3,' S4=',s4);
writeln('печать символьных переменных с шириной поля 5:');
writeln(s1:5,s2:5,s3:5,s4:5);
writeln('логическая переменная равна ',log);
readln;
readln;
end.
Протокол работы
Введите целые числа K,L,M:
1
2
3
целые числа
стандартная форма заданная ширина поля
1 2 3 K= 1 L= 2 M= 3
Введите вещественные числа A,B,C,D,E,F:
234 4 5 6 7 8
стандартная форма
2.3400000000E+02 4.0000000000E+00 5.0000000000E+00 6.0000000000E+00
7.00000
00000E+00 8.0000000000E+00
заданная ширина поля
A=234.00 B= 4.00 C= 5.00 D= 6.00 E= 7.00 F= 8.00
Введите символы S1,S2,S3,S4:
qwer
символьные переменные:
S1=q S2=w S3=e S4=r
печать символьных переменных с шириной поля 5:
q w e r
логическая переменная равна FALSE
3
Практическое задание №3
Разветвляющие структуры. Оператор IF с GO TO, THEN, ELSE
Цель задания
1. Получение навыков в использовании условного оператора при написании
программ.
2. Разбор и знакомство с задачами, для решения которых используется
условный оператор.
Постановка задачи
Организуйте ввод и вывод пяти целых положительных чисел a, b, c, p,
q. Определив остаток К от деления на 9 величины М, равной [pic]вычислите
значение функции
y=arctg4,7x/(x2-secx)-xcosx ,при к=0
y=2sinx ,при к=1
y=cos(|ax2+b|-1) ,при к=2
Листинг программы
program zadanie_3;
uses crt;
var
a,b,c,p,q,k,m:integer;
x,y:real;
begin
clrscr;
writeln('Протокол работы');
writeln('Введите исходные данные:');
readln(a,b,c,p,q,x);
writeln('a=', a,', b=',b,', c=',c,', p=',p,', q=',q,', x=',x:6:3);
m:=(a+b+c+p) div q;
k:=m mod 9;
if k=0 then
begin
y:=sqrt(arctan(4.7*x)/x*x-sin(x))-exp(cos(x)*cos(x)*ln(x));
writeln('К=0, значение переменной Y равно ',y:6:3);
end;
if k=1 then
begin
y:=exp(sin(x)*ln(2));
writeln('К=1, значение переменной Y равно ',y:6:3);
end;
if k=2 then
begin
y:=cos(abs(a*x*x+b)-1);
writeln('К=2, значение переменной Y равно ',y:6:3);
end;
if k>2 then
writeln('Значение переменной Y неопредено т.к. К>2');
readln;
end.
Протокол работы
Введите исходные данные:
2
3
76
3
76
4
a=2, b=3, c=76, p=3, q=76, x= 4.000
К=1, значение переменной Y равно 0.592
В данной программе было использовано четыре оператора IF в сокращенной
форме.
При работе над данной программой ошибок допущено не было.
Практическое здание №4
Решение задач, описываемых алгоритмами циклической структуры с
использованием одномерных массивов.
Цель задания
1. Получение практических навыков работы с одномерным массивом.
1. Закрепление навыков в организации ввода/вывода значений одномерного
массива.
2. Получение практических навыков работы в интерактивном(диалоговом)
режиме.
3. Работа с диагностическими сообщениями транслятора при выполнении
программ с одномерным массивом.
Постановка задачи
Организуйте ввод/вывод одномерного массива, предусмотрите вывод
соответствующими заголовками.
В массиве {zi}, i=1, 2, ... , 10 есть положительные и отрицательные
элементы. Подсчитать количество отрицательных и положительных элементов.
Решить задачу для двух наборов данных:
а. –5,25,17,18,20,-10,-9,-5,12,23;
б.15,20,15,4,-8,-5,-20,-43,-9,-25;
Листинг программы
program zadanie_4;
uses crt;
const
n=10;
var
z: array [1..n] of integer;
a,b,i:integer;
begin
clrscr;
writeln('Введите через пробел 10 чисел');
for i:=1 to n do
begin
readln(z[i]);
if z[i]>0 then
a:=a+1;
if z[i] | |
