3. Объекты и средства исследования
1. Персональный IBM PC совместимый компьютер;
2. Среда программирования TurboPascal 7.0.
4. Задание на работу
Вычислить на ПЭВМ значения следующих выражений в соответствии с вариантом по указанию преподавателя.
Варианты заданий
Вариант |
Коэффициенты |
Выражения |
1 |
a=0,59, z=-4,8, x=2,1 |
|
2 |
a=0,95, z=-2,4, x=2,1 |
|
3 |
a=0,59, z=-8,8, x=2,1 |
|
4 |
a=0,59, z=-4,8, x=7,1 |
|
5 |
a=2,59, z=-4,8, x=2,1 |
|
6 |
a=3,59, z=-4,8, x=2,1 |
|
7 |
a=8,59, z=-4,8, x=2,1 |
|
8 |
a=0,59, z=-4,1, x=2,4 |
|
9 |
a=0,59, z=-4,2, x=2,1 |
|
10 |
a=0,59, z=-4,3, x=8,3 |
|
11 |
a=6,59, z=-4,8, x=2,1 |
|
12 |
a=9,59, z=-4,8, x=6,1 |
|
13 |
a=5,59, z=-4,8, x=2,1 |
; |
14 |
a=0,59, z=-4,8, x=2,7 |
|
15 |
a=0,59, z=-4,8, x=2,8 |
;
;
;
;
5. Порядок выполнения работы
Перед началом работы следует:
Включить компьютер;
Войти в локальную сеть со своим зарегистрированным именем и паролем;
1. Запустить среду программирования TurboPascal 7.0. Создать новый файл с расширением pas.
2. Разработать алгоритм программы в соответствии с вариантом задания.
3. По разработанному алгоритму составить программу.
3. Произвести компиляцию программы, а также провести ее отладку при необходимости. Пример программы вычисления выражений:
;
Program prim;
Uses crt;
Var a,x,z,y,p,c:real;
Begin
Clrscr;
Writeln(‘введите значения a,x,z’);
Readln(a,x,z);
C:=sin(x)/cos(x);
Y:=a*c*sqr(x)+sqrt(sqr(z)/(sqr(a)+sqr(x));
P:=ln(a+sqr(x))+sqr(sin(z/a));
Writeln (‘y=’,y:8:3, ‘ p=’, p:8:3);
Repeat until keypressed;
End.
4. Запустить выполнение программы и ознакомиться с результатами работы.
5. Завершить работу программы и закрыть среду программирования TurboPascal 7.0.
6. Содержание отчета
Отчет должен содержать название, цели и задачи лабораторной работы, задание, блок схему алгоритма работы программы в соответствии с ГОСТ 19.003 – 80, листинг программы, результат работы программы и выводы по работе.
7. Контрольные вопросы
1. Какую структуру имеет программа алгоритма линейной структуры?
2. Каково назначение оператора присваивания?
3. Каков формат вызова оператора присваивания?
4. Из чего может формироваться выражение в операторе присваивания?
5. Какие типы операций различают в языке Pascal?
6. Какие стандартные функции предусмотрены в Turbo Pascal?
Лабораторная работа №4
«Приобретение навыков составления программ, реализующих алгоритм разветвляющейся структуры»
1. Цель и задачи работы
Овладение практическими навыками разработки и программирования вычислительного процесса разветвляющейся структуры.
2. Основные теоретические положения
Разветвление программ на TP 7.0 в общем случае организуется с помощью условного оператора if или оператора выбора варианта case.
Общие правила записи условного оператора .
if условие then оператор 1 [ else оператор 2] ;
[] здесь означают, что в частном случае их содержимое при использовании оператора if может отсутствовать.
Условие – это чаще всего либо арифметические выражения, соединенные знаками сравнения и логических операций, или условие равенства или неравенства строк.
Знаков сравнения шесть:
> – больше >= – больше или равно = – равно
< – меньше <= – меньше или равно <> – неравно
Логических операций три:
and – логическое "и" – условия, соединенные этим знаком должны выполняться одновременно.
or – логическое "или" – этот знак между условиями говорит, что достаточно , если будет выполняться хотя бы одно из них.
not – логическое "не" – логическое отрицание.
Приоритет логических операций выше, чем у операций сравнения.
После ключевых слов then и else может в общем случае стоять последовательность операторов, которые в Паскале формально объединяются в один оператор, который называется основным. Для этого последовательность операторов заключается в ключевые скобки, т.е. заключается между словами begin... end;
Например: if (a>5) and (b>0)
then begin
c:= a+b;
d:= a;
end
else begin
c:= a-b;
d:= b;
end;
Перед else ; ставить запрещено.
Существует возможность организации структуры со вложенными друг в друга if:
if (otm=1) or (otm=2)
then writeln('Позор!')
else if otm=3
then writeln('Неважно')
else if otm=4
then writeln('Неплохо')
else if otm=5
then writeln('Молодец')
else writeln('Таких отметок не бывает');
Данную задачу в Паскале однако удобнее решить, используя оператор case, общая форма записи которого:
case селектор of
n1: оператор1;
n2: оператор2;
.........................
nn: операторn;
[else оператор]
end;
У оператора case есть существенное ограничение – переменная или выражение, стоящие после case (селектор) должны быть порядкового типа. К этому типу, в частности относятся переменные типы integer и char. В процессе выполнения оператора case значение "селектора" сравнивается со значениями меток n1,n2,..., стоящими перед":" и в случае совпадения выполняется оператор (простой или составной), стоящий после ":". На этом исполнение case завершается.
Если же совпадающего значения так и не нашлось, то выполняется оператор, стоящий после ключевого слова else. Конструкция else может и отсутствовать в операторе case. В этом случае при отсутствии совпадения с одной из меток выполняется следующий оператор программы, стоящий сразу же после end;.
Например:
case otm of
1,2: writeln('Позор!');
3: writeln('Неважно');
4: writeln('Неплохо');
5: writeln('Молодец!');
else writeln('Таких отметок не бывает')
end;