<em><u>Блок-схема во вложении.</u></em>
var
x,y,c:double;
begin
Write('x='); Read(x);
Write('y='); Read(y);
if x=y then c:=sqr(x+y)+sin(x)
else
if (x-y)=3 then c:=(x+y)*sqr(x+y)+cos(x)
else c:=x+y+tan(x);
Write('c=',c)
end.
<em><u>Тестовое решение:</u></em>
x=0.563
y=-1.514
c=-0.319863379954563
X1, y1 - начло отрезка
x2, y2 - конец отрезка
x0, y0 - координаты точки принадлежность которой мы будем проверять
Вывод будет True, если принадлежит, False, если не принадлежит.
Программа:
program fff;
const _Eps: Real = 1e-3;
var x0, y0, x1, y1, x2, y2 : real; tmp : boolean; begin
readln(x1, y1); readln(x2, y2); readln(x0, y0); tmp := ((x0 - x1) * (y2 - y1) - (y0 - y1) * (x2 - x1)) <= _Eps; tmp := tmp and ( ((x1 < x0) and (x0 < x2)) or ((x2 < x0) and (x0 < x1)) ); write(tmp); <span>end.</span>
1)Проверь контакты видеокарты.
2)Проверь биос
3)Чекни через специальную программу комп на вируса
Код находится в приложении.