Практикум по решению задач на ЭВМ. Тарова И.Н - 67 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
Лабораторная работа № 18
Геометрия
1) Даны действительные положительные числа a,b,c,d. Выяснить, можно
ли построить четырехугольник с такими длинами сторон.
2) Даны действительные числа x
1
,y
1
,x
2
,y
2
(x
1
≠
x
2
), которые определяют две
точки A(x
1
,y
1
) и B(x
2
,y
2
). На оси абсцисс найти такую точку, сумма рас-
стояний от которой до точек A и B – наименьшая для всех точек этой
оси.
3) Даны действительные числа x, y. Определить
принадлежит ли точка с координатами (x, y)
заштрихованной части плоскости.
program strelok(input,output);
var x,y:real;
begin
write('Введите координаты x и y: ');
readln(x,y);
if (x*x+y*y<=1) and (y<=x/2) then writeln('принадлежит')
else writeln('не принадлежит');
readln;
end.
4) Условие то же.
program strelok(input,output);
uses CRT;
67
                     Практикум по решению задач на ЭВМ




  Лабораторная работа № 18
                              Геометрия
1) Даны действительные положительные числа a,b,c,d. Выяснить, можно
ли построить четырехугольник с такими длинами сторон.

2) Даны действительные числа x1,y1,x2,y2 (x1≠ x2), которые определяют две
точки A(x1,y1) и B(x2,y2). На оси абсцисс найти такую точку, сумма рас-
стояний от которой до точек A и B – наименьшая для всех точек этой
оси.

3) Даны действительные числа x, y. Определить
принадлежит ли точка с координатами (x, y)
заштрихованной части плоскости.
  program strelok(input,output);
  var x,y:real;
  begin
write('Введите координаты x и y: ');
      readln(x,y);
      if (x*x+y*y<=1) and (y<=x/2) then writeln('принадлежит')
      else writeln('не принадлежит');
      readln;
  end.




4) Условие то же.

  program strelok(input,output);
  uses CRT;

                                     67

Страницы