Задание № 1 Арифметические и логические выражения
Цель работы – ознакомление со структурой одномодульных программ и простейшей реализацией ввода исходных величин и вывода результатов счета; приобретение навыков записи арифметических и логических выражений.
Постановка задачи: вычислить значение Y, Z .
Пример:
при 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
1) Y= ;
2) Z=
Вариант № 2
1) Y=
2) Z=
Вариант № 3
1) Y=
2) Z=
Вариант № 4
1) Y=
2) Z=
Вариант № 5
1) Y=
2) Z=
Вариант № 6
1) Y= ;
2) Z=
Вариант № 7
1) Y=
2) Z=
Вариант № 8
1) Y=
2) Z= ;
Вариант № 9
1) Y=
2) Z=
Вариант № 10
1) Y= ;
2) Z= ;
Вариант № 11
1) Y= ;
2) Z=
Вариант № 12
1) Y= ;
2) Z=
Вариант № 13
1) Y= ;
2) Z=
Вариант № 14
1) Y= ;
2) Z=
Вариант № 15
1) Y= ;
2) Z=
Вариант № 16
1) Y= ;
2) Z=
Вариант № 17
1) Y= ;
2) Z=
Вариант № 18
1) Y=
2) Z=
Вариант № 19
1) Y= ;
2) Z=
Вариант № 20
1) Y=
2) Z=
Вариант № 21
1) Y= ;
2) Z=
Вариант № 22
1) Y=
2) Z=
Вариант № 23
1) Y=
2) Z= ;
Вариант № 24
1) Y=
2) Z=
Вариант № 25
1) Y= ;
2) Z= ;
Вариант № 26
1) Y= ;
2) Z=
Вариант № 27
1) Y= ;
2) Z=
Вариант № 28
1) Y= ;
2) Z=
Вариант № 29
1) Y= ;
2) Z=
Вариант № 30
1) Y= ;
2) Z= ;
Задание № 2 условные операторы
Цель работы – ознакомление с задачами, в которых используются условные операторы if и case; приобретение навыков в применении условных операторов в программе.
Постановка задачи: составить программу ввода исходных данных, анализа аномальных ситуаций и условий для вычислений; вывести результаты в виде, принятом в математике.
Порядок выполнения работы
Выполнить три задачи, используя операторы if и case. Каждую задачу можно выполнять в разных программах или в одной. Эту одну программу можно организовать так, чтобы была возможность каждую задачу выполнять несколько раз с разными исходными данными, не выходя из режима выполнения программы. Ниже приведен как раз такой пример выполнения всех задач в одной программе.
Задача 1.
Значения a и x ввести с клавиатуры.
Вычислить
Задача 2.
Значения a, x и номер варианта k ввести с клавиатуры.
Вычислить
Задача 3.
Координаты точки (x, y) ввести с клавиатуры. Определить, попадет ли эта точка в заштрихованную область (кольцо):
PROGRAM EXAMPLE;
USES CRT;
VAR X1,A1,Y1:REAL; { ОПИСАНИЕ ПЕРВОЙ ЗАДАЧИ }
X2,A2,Y2:REAL; K:INTEGER; { ОПИСАНИЕ ВТОРОЙ ЗАДАЧИ }
X3,Y3,Z:REAL; { ОПИСАНИЕ ТРЕТЬЕЙ ЗАДАЧИ }
SELECTOR:BYTE;
BEGIN
REPEAT
CLRSCR; { ОЧИСТКА ЭКРАНА }
WRITELN(' ВВЕДИТЕ НОМЕР ЗАДАЧИ СОГЛАСНО МЕНЮ : ');
WRITELN;
WRITELN(' 1.........ЗАДАЧА 1 ');
WRITELN(' 2.........ЗАДАЧА 2 ');
WRITELN(' 3.........ЗАДАЧА 3 ');
WRITELN(' 4.........ВЫХОД ИЗ ПРОГРАММЫ ');
READLN(SELECTOR);
CASE SELECTOR OF
1: BEGIN { ПЕРВАЯ ЗАДАЧА }
CLRSCR;
WRITELN('ВВЕДИТЕ ВЕЩЕСТВЕННЫЕ ЧИСЛА X И A ');
READLN(X1,A1);
IF X1<A1 THEN Y1:=LN(SQR(A1)+1)
ELSE Y1:=SIN(A1*X1);
WRITELN('A=',A1:5:3,' X=',X1:5:3,' Y=',Y1:5:3);
WRITELN;WRITELN;
WRITELN('НАЖМИТЕ ENTER ДЛЯ ПРОДОЛЖЕНИЯ');
READLN;
END; { КОНЕЦ ПЕРВОЙ ЗАДАЧИ }
2: BEGIN { ВТОРАЯ ЗАДАЧА }
CLRSCR;
WRITELN('ВВЕДИТЕ ВЕЩЕСТВЕННЫЕ ЧИСЛА А И Х ');
READLN(A2,X2);
WRITELN('ВВЕДИТЕ НОМЕР ВАРИАНТА ( ЧИСЛО К) ');
READLN(K);
CASE K OF
0: Y2:=A2*X2+1;
1: Y2:=A2*SQR(X2)/2;
2: Y2:=X2-A2;
3: Y2:=1000
END; { CASE }
WRITELN('A=',A2:5:3,' X=',X2:5:3,' Y=',Y2:5:3);
WRITELN;WRITELN;
WRITELN('НАЖМИТЕ ENTER ДЛЯ ПРОДОЛЖЕНИЯ');
READLN;
END; { КОНЕЦ ВТОРОЙ ЗАДАЧИ }
3: BEGIN { ТРЕТЬЯ ЗАДАЧА }
CLRSCR;
WRITELN(' ВВЕДИТЕ КООРДИНАТЫ ТОЧКИ X И Y :');
READLN(X3,Y3);
Z:=X3*X3+Y3*Y3;
IF ( Z>=1 ) AND ( Z<=4 )
THEN WRITELN ('ТОЧКА ПРИНАДЛЕЖИТ ОБЛАСТИ')
ELSE WRITELN ('ТОЧКА НЕ ПРИНАДЛЕЖИТ ОБЛАСТИ');
WRITELN;WRITELN;
WRITELN('НАЖМИТЕ ENTER ДЛЯ ПРОДОЛЖЕНИЯ');
READLN;
END; { КОНЕЦ ТРЕТЬЕЙ ЗАДАЧИ }
4: EXIT; { ВЫХОД ИЗ ПРОГРАММЫ }
END; { CASE }
UNTIL FALSE;
END.
Варианты заданий
Задача 1
Ввести числа x и a и вычислить значения функции Y при помощи оператора if. Предусмотреть проверку аномальных ситуаций, при которых функций не существует. Эта задача соответствует задаче 1 в примере.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.