какую функцию в среде программирование выполняют компоненты визуальной среды? 2 что вы можете сказать о о компоненте radiogroup и его свойствах? 3 как вы опишите работу компонента CheckBox? 4 какие свойства компоненты memo вы можете перечислить?
105
230
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! type point=record x,y: real; name: char end; vector=record x,y,l: real; end; function createpoint(px,py: real): point; begin with result do begin x: =px; y: =py; end end; function createvector(a,b: point): vector; begin with result do begin x: =b.x-a.x; y: =b.y-a.y; l: =sqrt(x*x+y*y) end end; function isnormal(a,b: vector): =abs(b.x*a.x+b.y*a.y)< =1e-6; begin var x,y: real; write('введите координаты x и y точки a: '); read(x,y); var a: =createpoint(x,y); write('введите координаты x и y точки b: '); read(x,y); var b: =createpoint(x,y); var ab: =createvector(a,b); write('введите координаты x и y точки c: '); read(x,y); var c: =createpoint(x,y); var bc: =createvector(b,c); if abs(ab.l-bc.l)> 1e-6 then begin writeln('стороны ab и bc не равны'); exit end; if not isnormal(ab,bc) then begin writeln('стороны ab и bc не перпендикулярны'); exit end; write('введите координаты x и y точки d: '); read(x,y); var d: =createpoint(x,y); var cd: =createvector(c,d); if abs(ab.l-cd.l)> 1e-6 then begin writeln('стороны ab и cd не равны'); exit end; var ad: =createvector(d,a); if abs(ab.l-ad.l)> 1e-6 then writeln('стороны ab и adc не равны') else writeln('точки образуют квадрат с точностью не ниже 0.000001') end. пример здесь заданы координаты квадрата, сдвинутого относительно осей координат и повернутого на угол 30 градусов против часовой стрелки. поэтому числа такие "некруглые". введите координаты x и y точки a: -0.4641 -4.4641 введите координаты x и y точки b: 3.5359 2.4641 введите координаты x и y точки c: 10.4641 -1.5359 введите координаты x и y точки d: 6.4641 -8.4641 точки образуют квадрат с точностью не ниже 0.000001
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
olyaperminova21.08.2022 02:28
-
nastiatsiupak05.04.2022 19:52
-
olgagolikova228.04.2022 10:09
-
sofiya13030820.08.2022 23:47
-
hadisvv9925.06.2023 06:57
-
TimRus162rusg21.05.2021 06:45
-
cerf170921.04.2021 05:52
-
ааа51623.05.2023 13:18
-
Aaaaaarrrrr5505.11.2021 17:53
-
dashalev251011.12.2020 07:01
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.