Лабораторная работа № 2 выражения
Цель работы – ознакомление со структурой одномодульных программ и простейшей реализацией ввода исходных величин и вывода результатов счета; приобретение навыков записи арифметических выражений.
Постановка задачи: вычислить значение Y .
Пример:
при
x
= 3.5; z
= 10-5;
b
=
4.
Программа расчета:
program lab;
CONST {исходные данные вводим как константы}
x=3.5;
z=1e-5;
b=4;
VAR
ch,zn,y:real; {числитель, знаменатель дроби, результат }
BEGIN
ch:=exp(x)+exp(6*ln(z))-4.5E2*sqrt(x); {числитель для Y}
zn:=exp(x*ln(z))+exp(3.5*ln(b)); {знаменатель}
y:=ch/zn; {значение Y }
WriteLn('Arithmetic expression: Y=',y:8:4);{вывод результатов на экран}
END.
Результаты расчета:
Arithmetic expression: Y= -6.3184
Варианты заданий
1.
Y=
;
2.
Y=
3.
Y=
4.
Y=
5.
Y=
6.
Y=
;
7.
Y=
8.
Y=
9.
Y=
10.
Y=
;
11.
Y=
;
12.
Y=
;
13.
Y=
;
14.
Y=
;
15.
Y=
;
16.
Y=
;
17.
Y=
;
18.
Y=
19.
Y=
;
20.
Y=
21.
Y=
;
22.
Y=
23.
Y=
24.
Y=
25.
Y=
;
26.
Y=
;
27.Y=
;
28.
Y=
;
29.
Y=
;
30.
Y=
;
Лабораторная работа № 3
УСЛОВНЫЕ ОПЕРАТОРЫ
Цель работы – ознакомление с задачами, в которых используются условные операторы if и case; приобретение навыков в применении условных операторов в программе.
Постановка задачи: составить программу ввода исходных данных, анализа аномальных ситуаций и условий для вычислений; вывести результаты в виде, принятом в математике.
Теоретические сведения
Оператор условия if является одним из самых популярных средств, изменяющих естественный порядок выполнения операторов программы. Он может принимать одну из следующих форм:
1. if <условие> then <оператор-1> else <оператор-2>; |
|
Ключевые слова if, then, else означают соответственно «если», «то», «иначе». Условие – это выражение булевского (логического) типа. Оно может быть простым или сложным. Сложные условия образуются с помощью логических операций and, or, not. При записи условий могут быть использованы все допустимые в Паскале операции отношения.
Если значение логического выражения (условия) истинно (True), выполняется <оператор-1>, если ложно (False) – <оператор-2>.
Пример: A:=3; B:=7;
if A>B then writeln ('A больше B')
else writeln ('A меньше или равно B');
На экране появится сообщение 'A меньше или равно B'.
2. if <условие> then <оператор>; |
|
Если результат логического выражения (условия) истинно (True), то выполняется <оператор>, если ложно (False) – оператор, следующий сразу за оператором if.
Пример: A:=3; B:=7; C:=0;
if A>B then begin
C:=A+B;
A:=0
end;
C:=C+5;
writeln('C=', C:2);
В этом примере выражение A>B ложно, оператор C:=A+B не выполнится и на экране появится сообщение 'C=5'. Один оператор if может входить в состав другого оператора if (вложенность операторов):
if <условие-1> then
if <условие-2> then <оператор-1>
else <оператор-2>;
При вложенности операторов каждое else присоединяется к тому then, которое непосредственно ему предшествует.
Оператор выбора case является обобщением оператора if и позволяет сделать выбор из произвольного количества имеющихся вариантов вычислений.
Оператор case может иметь две формы.
1. Case <выражение-селектор> of <список-1> : <оператор-1>; <список-2> : <оператор-2>; ………………………………… <список-n> : <оператор-n> else <оператор> end; |
|
2. Вторая (короткая) форма отличается от первой отсутствием строки else <оператор>.
Оператор case работает следующим образом. Сначала вычисляется значение выражения-селектора, затем выполняется тот оператор, константа выбора которого в списке равна этому вычисленному значению селектора. Если ни одна из констант ни одного из списков не равна текущему значению селектора, то выполняется оператор, стоящий за словом else. Если слово else отсутствует, то управление передается оператору, находящемуся за словом end.
Выражение-селектор может иметь любой скалярный тип, кроме вещественного, т.е. целый, символьный, булевский, интервальный, перечисляемый. Использование стринга (строкового типа) в качестве селектора запрещено. Список констант выбора состоит из произвольного количества значений или диапазонов, отделенных друг от друга запятыми. Тип констант в любом случае должен совпадать с типом селектора.
Пример 1. Селектор интервального типа:
Case n of
1..10 : writeln ('число', n:3,'в диапазоне 1-10');
11..20 : writeln ('число', n:3,'в диапазоне 11-20');
21..30 : writeln ('число', n:3,'в диапазоне 21-30')
else writeln('число ',n:3,'вне контроля')
end; {case}
Пример 2. Селектор целочисленного типа:
Case n of
1, 5, 7 : x:=n+1;
10..20 : x:=n+10
else goto metka1
end; {case}
Пример 3. Селектор символьного типа:
Writeln('Y/y – продолжение работы');
Writeln('N/n – выход из программы');
Readln(selector);
Case selector of
'Y', 'y' : Work; {продолжение работы}
'N', 'n' : exit {выход из программы}
end; {case}
Пример 4.
Case day of
1..5 : writeln ('рабочий день');
6, 0 : writeln ('выходной день)
end;
Согласно формуле Зеллера соответствие между номером дня недели и его названием будет таким:
0 – воскресенье; 1 – понедельник; …………………. 6 – суббота.