В среде Lazarus создать проект для решения уравнения ах+b=с, где a,b,c - действительные числа и их задает пользователь. Для сдедующих значений: 1) a=0, b=12, c=3 2) a=7, b= -5, c=2 Большое за ответ
Над найти расстояние от точки до центра окружности. Прще использовать квадрат расстояния. Если он равен квадрату радиуса, то точка на окружности. Если меньше, то внутри круга. Больше, то вне круга.
var xm,ym,xc,yc,r:real; begin writeln('Введите координаты точки Xm, Ym'); readln(xm,ym); writeln('Введите координаты центра окружности Xc, Yc'); readln(xc,yc); writeln('Введите радиус окружности R'); readln(r); if sqr(r)=sqr(xm-xc)+sqr(ym-yc) then writeln ('На окружности') else if sqr(r)>sqr(xm-xc)+sqr(ym-yc) then writeln ('Внутри круга') else writeln('Снаружи круга'); end.
Тест №1 Введите координаты точки Xm, Ym 4 2 Введите координаты центра окружности Xc, Yc 2 2 Введите радиус окружности R 2 На окружности
Тест №2 Введите координаты точки Xm, Ym 3 1 Введите координаты центра окружности Xc, Yc 2 2 Введите радиус окружности R 2 Внутри круга
Тест №3 Введите координаты точки Xm, Ym -1 -3 Введите координаты центра окружности Xc, Yc 2 2 Введите радиус окружности R 2 Снаружи круга
Пилот = n1 + n4 + n6 + n7 = 700
Пилот | Вертолёт | Акула = n1 + n2 + n3 + n4 + n5 + n6 + n7 = 1200
Пилот & Вертолёт & Акула = n7 = 0
Пилот & Акула = n4 + n7 = 110
Пилот & Вертолёт = n6 + n7 = 220
Вертолёт & Акула = n5 + n7 = 330
Найти : n2 + n3 + n4 + n5 + n6
Т.к n7 = 0, то n4=110
n5 = 330
n6 = 220
Тогда из первого выражения находим, что :
n1 + n4 + n6 + n7 = 700
n1 + 110 + 220 + 0 = 700
n1 = 370
Из второго выражения получаем итоговый ответ:
n1 + n2 + n3 + n4 + n5 + n6 + n7 = 1200
n2 + n3 + n4 + n5 + n6 = 1200 - n1 - n7 = 1200 - 370 = 830
ответ: 830
var xm,ym,xc,yc,r:real;
begin
writeln('Введите координаты точки Xm, Ym');
readln(xm,ym);
writeln('Введите координаты центра окружности Xc, Yc');
readln(xc,yc);
writeln('Введите радиус окружности R');
readln(r);
if sqr(r)=sqr(xm-xc)+sqr(ym-yc) then writeln ('На окружности') else
if sqr(r)>sqr(xm-xc)+sqr(ym-yc) then writeln ('Внутри круга') else
writeln('Снаружи круга');
end.
Тест №1
Введите координаты точки Xm, Ym
4 2
Введите координаты центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
На окружности
Тест №2
Введите координаты точки Xm, Ym
3 1
Введите координаты центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
Внутри круга
Тест №3
Введите координаты точки Xm, Ym
-1 -3
Введите координаты центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
Снаружи круга