овернути на 90 і перевірити для кожної грані два випадки.
Визначити приналежність точки фігурі. Нехай фігура задана обмежують її прямими. br/>В
Для кожної прямий визначимо підлозі площину, в якій знаходиться фігура-трикутник АВС. Напівплощина задається нерівністю. p align="justify"> півплощин, що знаходиться вище від осі х визначається нерівністю y> 0.
півплощин, що знаходиться праворуч від прямої, що з'єднує точки (-1,0) і (0,2), задається нерівністю y-2x-2 <0.
півплощин, що знаходиться зліва від прямої, що з'єднує точки (1,0) і (0,2), задається нерівністю y +2 x-2 <0.
Умова приналежності точки (x, y) фігурі
(y> 0) and (y-2 * x-2 <0) and (y +2 * x-2 <0).
Наведемо приклад програми визначальна існування трикутника зі сторонами a, b і c. Умова існування трикутника відомо з геометрії: сума двох будь-яких сторін повинна бути більше третьою. Отже, для всіх сторін умова сума двох більше третьою має виконуватися.
Program e4; a, b, c: real;
Writeln ( дитя довжини трьох сторін трикутника );
Readln (a, b, С);
Write ( трикутник зі сторонами , a, b, c);
If (a + b> c) and (b + c> a) and (a + c> b) writeln ( існують ) writeln ( НЕ существуюет );
End.
2.2 Математичні завдання
). У комп'ютер вводиться слово. Комп'ютер повинен просто роздрукувати його. Однак, якщо введеним словом буде "льотчик", то комп'ютер повинен надрукувати замість нього слово "пілот". p align="justify"> Ось як виглядатиме наша програма-"цензор":
Slovo: String; (Slovo); {мінлива Slovo матиме значенням рядок символів, введених з клавіатури}
if Slovo = 'льотчик' then Slovo: = 'пілот';
WriteLn (Slovo) ..
). Написати програму, яка виводить на екран рядок, що складається з 20 зірочок. br/>
Uses crt; n: integer; sterlinei: integer; i: = 1 to len do ( * ); ; ( 20 ); (n); (n);;.
). Дан текст, що містить числа. Знайти суму всіх чисел, що зустрічаються всередині тексту. br/>
Var: array [1 .. 1000] of real;, k: string;: set of char;, h, j: integer;: real;;...