End.
X:=2.0-x;
Begin
Begin
End;
Begin
End;
Else
End
Begin
ReadLn(x);
ClrScr;
Begin
Uses CRT;
Program Primer;
Пример
Then . . .
Else . . .
Begin
Then
Else . . .
3. Использование в операторных скобках, стоящих после Else или Then, слова Begin без End или наоборот:
If (n > m)
a:=1;
b:=0;
4. Использование точки с запятой перед словами Else или Then:
If (n > m);
Then a:=1;
Else a:=0;
5. При использовании в условии логических операций операнды не заключаются в скобки:
If n > m And n <= k
6. Использование лишних проверок условий:
If (n > m)
Then a:=1
Else If (n <= m)
Then a:=0
Else a:=2;
Задан график функции f(x) – полуокружность радиуса R=1:
Определить:
1. Значение функции y при заданном значении аргумента x.
2. Площади фигур слева и справа от линии разреза.
По теореме Пифагора:
Площадь фигуры слева от линии разреза определяется суммой площадей прямоугольного треугольника:
s1 = 0,5 x y
и сегмента:
s2 = 0,5 R2 (α – sin α), где α – центральный угол в радианах,
причем
α = arcsin(y/R).
Площадь всей фигуры (полукруга) определяется выражением:
S = π R2/2.
Программа решения задачи:
Var x, y, s_left, s_right, alfa, sin_alfa, segment : Real;
Write(‘x=’);
If (x<=1.0) Then первый участок
y:=Sqrt(1.0 - (x - 1.0 ) * (x - 1.0 ));
If (x<=0.0)
Then y:=0.0;
Begin второй участок
y:=Sqrt(1.0 - (x- Trunc(x)) * (x- Trunc(x)));
If (x>=2.0)
Then y:=0.0;
If (x=1.0) Then
s_left:=0.7854;
s_right:=0.7854;
If (x<1.0) Then первый участок
sin_alfa:=y;
If (sin_alfa<>1.0)
Then alfa:=Arctan(sin_alfa/Sqrt(1.0 - sin_alfa*sin_alfa))
Else alfa:=Pi/2.0;
segment:=0.5*(alfa - sin_alfa);
s_left:=segment + 0.5*x*y;
s_right:=Pi/2.0 - s_left;
End; x<=1.0
If (x>1.0) Then второй участок
sin_alfa:=y;
If (sin_alfa<>1.0)
Then alfa:=Arctan(sin_alfa/Sqrt(1.0 - sin_alfa*sin_alfa))
Else alfa:=Pi/2.0;
segment:=0.5*(alfa - sin_alfa);
s_right:=segment + 0.5*x*y;
s_left:=Pi/2.0 - s_right;
End; x>=1.0
WriteLn(‘y=’, y:6:4);
WriteLn(‘s_left=’, s_left:6:4);
WriteLn(‘s_right=’, s_right:6:4);
Часто приходится делать выбор не между двумя, а между несколькими путями решения задачи.
Такую ситуацию называют переключателем.
Структура переключателя предусматривает выполнение i-ой цепочки операторов, если селектор принимает значение-i.
В Паскале переключатель реализуется оператором выбора: