Королева6743
27.02.2022 16:14

Нужно описать значения вс слов (Турбо паскаль) Exports-
External-
Far-
File-
For-
Forward-
Function-
Goto-
If-
Implementation-
In-
Index-
Inherited-
Inline-
Interrupt-
Label-

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:

Өріс (атырап, аймақ, разрядтар тобы) (Поле (область, зона, группа разрядов); field, key) — 1) мәліметтер базасында — файл жазбасының дербес мағынасы бар қызметтік бөлігі, яғни кесте түріндегі базаның бір бағанасы. Объект құрылымының атаулы бөлігі, мысалы, мәліметтердің, баспа құжатының және т.б.; жазбаның элементар мәліметтер енгізетін бөлігі; ақпараттық мағынасы бар ең аз мәліметтер жиыны. Ол программаларда мәліметтер элементі ретінде өңделеді; мәтінді, графикалық элементтерді, беттің нөмірлерін және баска мәліметтерді құжатқа автоматты түрде кірістіруге арналған кодтар жиыны. Мысалы, Date өрісі ағымдағы датаны, ал Time өрісі ағымдағы уақытты көрсетеді; 2) белгілі бір мақсатта пайдалануға арналған экранный, бланкінің, басылған құжаттың немесе мәліметтер

0,0(0 оценок)
Ответ:
sleta1998A
24.04.2023 06:56

program treyg;

uses crt;

var x1,y1,x2,y2,x3,y3 : integer;

a,b,c,s,p : real;

begin

write('Введите координаты первой точки: ');

Readln(x1,y1);

write('Введите координаты второй точки: ');

Readln(x2,y2);

write('Введите координаты третьей точки: ');

Readln(x3,y3);

a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x3-x1)+sqr(y3-y1));

if ((a+b)>c) and ((b+c)>a) and ((c+a)>b) then

writeln('Данные координаты не могут являться вершинами треугольника')

else

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

Writeln('Площадь треугольника ',s);

end

end.

Объяснение:

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота