В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
любимая24
любимая24
08.07.2021 16:28 •  Информатика

я вас у меня СОР по информатике ​


я вас у меня СОР по информатике ​

Показать ответ
Ответ:
dimadenisen
dimadenisen
08.04.2021 23:05
Var
  a:array[1..3,1..2]of real;
  b:array[1..3]of real; //массив для координат пересечения сторон с ОХ
  i,j,z:integer;
// (y1-y2)x+(x2-x1)y+(x1y2-x2y1)=0 - ур-е прямой, прохоходящей через 2 точки
// тогда x=(x2y1-x1y2)/(y1-y2) - координата ее пересечения с осью х  
// найдем координаты пересечения сторон с осью х
function cross(x1,x2,y1,y2:real):real;
begin
result:=(x2*y1-x1*y2)/(y1-y2);
if ((result>x1) and (result>x2)) or ((result<x1) and (result<x2)) then
  result:=1 //это точка пересечения не самой стороны, а ее продолжения
                //поскольку в дальнейшем нам нужны будут знаки координат,           
                //ей приписываем положительной значение, чтобы она не влияла
                //на конечный результат
end;

begin
for i:=1 to 3 do
  begin
  writeln('Введите координаты х,у вершины:');
  readln(a[i,1],a[i,2]);
  end;
z:=1;
for i:=1 to 3 do
  begin
  j:=i+1;
  if j>3 then j:=1;
  b[i]:=cross(a[i,1],a[j,1],a[i,2],a[j,2]);
  z:=sign(b[i])*z;
  end;
write('Начало координат ');
if z<0 then writeln('принадлежит треугольнику')
  else writeln('не принадлежит треугольнику');
end.
0,0(0 оценок)
Ответ:
Аккаунт удален
Аккаунт удален
25.04.2021 20:20
Const n=10; m=5;
var
   i,j,k:integer;
   A:array[1..n] of integer;
   B,C:array[1..m] of integer;
begin
   writeln('Введите элкменты массива');
   for i:=1 to n do readln(a[i]);
   j:=0; k:=0;
   for i:=1 to n do
     if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
     else begin k:=k+1; C[k]:=A[i] end;
   writeln('Массив А');
   for i:=1 to n do write(A[i],' ');
   writeln;
   writeln('Массив B');
   for i:=1 to j do write(B[i],' ');
   writeln;
   writeln('Массив C');
   for i:=1 to k do write(C[i],' ');
   writeln
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота