potemkin77
?>

Емес логикалық операторын жəне , немесе , операторлармен салыстыр . Қандай айырмашылықтар бар ?​

Информатика

Ответы

stepanova-natalie

Айырмашылықтар өте көп

lelikrom2202
#include <iostream>

int _tmain(int argc, _TCHAR* argv[]) {
  const int SIZE = 25, p_lower_than = 10, mod_k = 12;
  int A[SIZE], p_sum = 0;
  for (size_t i = 0; i <= SIZE; i++) {
cin >> A[i];
    if (A[i] % mod_k == 0) {
      std::cout << "Элемент, кратный " << mod_k << ": "
                << A[i] << " (индекс " << i << ")\n";
    }
    if (A[i] < p_lower_than || A[i] > 0) {
      p_sum += A[i];
    }
  }
  std::cout << "Сумма элементов в промежутке (0; "
            << p_lower_than << "): " << p_sum << '\n';
  return 0;
}
milleniumwood633
// 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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Емес логикалық операторын жəне , немесе , операторлармен салыстыр . Қандай айырмашылықтар бар ?​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Aleksandrovna1153
Galkin Vladimirovich729
ooo-helpvet44
zotcet7
saljagindima
Elenabolt77
TOKAREVA Stepan
oooviktoria17
catmos
Wlad967857
Екатерина
snopok66
Татьяна Гришаевич
Svatela37
tigo1