Как составить программу по этой блок-схеме? - QBasic

Узнай цену своей работы

Формулировка задачи:

вот блок-схема и задание.у меня вариант 20.

Решение задачи: «Как составить программу по этой блок-схеме?»

textual
Листинг программы
CONST n = 5
DIM x(n), y(n)
FOR i = 0 TO n
  PRINT USING "x(#), y(#)"; i; i;
  INPUT x(i), y(i)
NEXT
INPUT "x"; x
p1 = 1
p2 = 1
pl = 0
FOR j = 0 TO n
  FOR i = 0 TO n
    IF i <> j THEN
      p1 = p1 * (x - x(i))
      p2 = p2 * (x(j) - x(i))
    END IF
  NEXT
  pl = pl + y(j) * p1 / p2
NEXT
PRINT pl

Объяснение кода листинга программы

В этом коде выполняется вычисление площади параллелограмма по координатам вершин, заданным в виде массива x и y. В первой части кода запрашиваются координаты вершин параллелограмма и сохраняются в массивах x и y. Во второй части кода вычисляются коэффициенты a и b, которые используются для вычисления площади параллелограмма по формуле S=a*b. Затем вычисляется площадь параллелограмма и выводится на экран.

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы