Контрольная работа по «Экономическая информатика»

МИНИСТЕРСТВО ОБРАЗОВАНИЯ  И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ  МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ОТКРЫТЫЙ УНИВЕРСИТЕТ 

           Кафедра «Экономики  и  управления  в  горной  и

металлургической промышленности и геологоразведки»

Контрольная работа

по дисциплине: «Экономическая информатика»

Вариант № 1

Студента: Акъюлова А.Г.

                                           Направление подготовки:

                                           080100.62 «Экономика»

                                           Шифр зачетной книжки: 2411300 

2012г.

Задание:

Составить алгоритм для решения  задачи и определить его вид.

1) Определить, попадает ли  точка А с координатами x и y внутрь круга с радиусом R. Центр круга совпадает с началом координат. Радиусы круга и координаты точки А вводятся с клавиатуры.

Решение:

Определим расстояние от точки  А до начала координат (d) . Расстояние от центра координат до произвольной точки (d)определяется как квадратный корень из суммы квадратов координат точки. Очевидно, что точка А будет находится внутри круга, если d будет меньше R. d ≤ R

PROGRAM PR; VAR

X,Y,R: REAL;

BEGIN WRITE ('Введите значение R');

READLN (R);

WRITE ('Введите координаты точки X и Y');

READLN ( X,Y);

d:=sqrt ( x*x+y*y);

IF (d ≤ R) THEN WRITELN ('Точка попадает') ELSE WRITELN ('Точка не попадает');

END.