ради всего святого Задача. Дано два кола із загальним - вопрос №15288769 от Zipchik 27.01.2020 11:18

Question

Информатика: ради всего святого Задача. Дано два кола із загальним центром і радіусами R1 і R2 (R1 R2). Знайти площі цих кіл S1 і S2, а також площа S3 кільця, зовнішній радіус якого дорівнює R1, а внутрішній радіус дорівнює R2: S1 = π·(R1)2, S2 = π·(R2)2, S3 = S1 − S2. 1. Розпішіть етапи комп’ютерного моделювання цієї задачі. 2. Виконайте комп’ютерне моделювання цієї задачі в табличному процесорі. 3. Збережіть електрону книгу в файлі з ім’ям Практична робота 5. 4. Створіть проект у середовищі Lazarus або CodeBlocks

Zipchik · Answer

Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты

program zadacha;

var x1,y1,x2,y2,x3,y3,a,b: real;

begin

writeln('Введите координаты x1,y1');

readln(x1,y1);

writeln('Введите координаты x2,y2');

readln(x2,y2);

writeln('Введите координаты x3,y3');

readln(x3,y3);

a:=(y1-y2)/(x1-x2);

b:=((y1+y2)-a*(x1+x2))/2;

if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)

then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')

end.