Как найти гипотенузу в pascal

Перейти к содержанию

var 

    a,b,c: real;

begin

    write('a=');

    readln(a);

    write('b=');

    readln(b);

    c := sqrt(a*a + b*b);

    writeln('c=',c:1:2);

end.

a=3

b=4

c=5.00

#include 

#include 

 
main() {

    float a,b,c;

    printf("a=");

    scanf("%f",&a);

    printf("b=");

    scanf("%f",&b);

    c = sqrt(pow(a,2)+pow(b,2));

    printf("%.2fn", c);

}



  


                       
  

a=3

b=4

5.00

import math

 
a = float(input("a="))

b = float(input("b="))

c = math.sqrt(a**2 + b**2)

print("c=%.2f" % c)

a=3

b=4

c=5.00

алг гипотенуза

нач

  вещ a, b, c

  вывод "a="

  ввод a

  вывод "b="

  ввод b

  c := sqrt(a**2 + b**2)

  вывод "c=",c

кон

a=3

b=4

c=5

input "a=", a

input "b=", b

c = sqrt(a^2 + b^2)

print "c=" + c

a=3

b=4

c=5

Перейти к контенту

Найти длину гипотенузы

Катеты и гипотенуза — это стороны прямоугольного треугольника. Если известны длины катетов, то длина гипотенузы находится по теореме Пифагора:

«Квадрат гипотенузы равен сумме квадратов катетов»

С помощью формулы это выражается так:
c 2 = a 2 + b 2

Отсюда следует, что длина гипотенузы равна квадратному корню из суммы квадратов катетов:
c = sqrt(a 2 + b 2 )
(sqrt() — обозначение функции извлечения корня).

Обычно в языках программирования предусмотрен оператор возведения в степень. Например, в языке программирования Python он обозначается двумя звездочками (**), а в Basic знаком ^. Однако в Pascal нет операции возведения в степень.

Для извлечения корня обычно существует специальная функция, а не оператор.

Клёвый код

Скриптописание и кодинг

Решаем задачи Абрамян на C. Matrix78

Matrix78. Дана матрица размера $$M times N$$. Упорядочить ее строки так, чтобы их минимальные элементы образовывали убывающую последовательность.

Решаем задачи Абрамян на C. Matrix77

Matrix77. Дана матрица размера $$M times N$$. Упорядочить ее столбцы так, чтобы их последние элементы образовывали убывающую последовательность.

Решаем задачи Абрамян на C. Matrix76

Matrix76. Дана матрица размера $$M times N$$. Упорядочить ее строки так, чтобы их первые элементы образовывали возрастающую последовательность.

Решаем задачи Абрамян на C. Matrix75

Matrix75. Дана матрица размера $$M times N$$. Элемент матрицы называется ее локальным максимумом, если он больше всех окружающих его элементов. Поменять знак всех локальных максимумов данной матрицы на противоположный. При решении допускается использовать вспомогательную матрицу.

Решаем задачи Абрамян на C. Matrix74

Matrix74. Дана матрица размера $$M times N$$. Элемент матрицы называется ее локальным минимумом, если он меньше всех окружающих его элементов. Заменить все локальные минимумы данной матрицы на нули. При решении допускается использовать вспомогательную матрицу.

Решаем задачи Абрамян на C. Matrix73

Matrix73. Дана матрица размера $$M times N$$. После последнего столбца, содержащего только отрицательные элементы, вставить столбец из нулей. Если требуемых столбцов нет, то вывести матрицу без изменений.

Решаем задачи Абрамян на C. Matrix72

Matrix72. Дана матрица размера $$M times N$$. Перед первым столбцом, содержащим только положительные элементы, вставить столбец из единиц. Если требуемых столбцов нет, то вывести матрицу без изменений.

Решаем задачи Абрамян на C. Matrix71

Matrix71. Дана матрица размера $$M times N$$. Продублировать столбец матрицы, содержащий ее минимальный элемент.

Решаем задачи Абрамян на C. Matrix70

Matrix70. Дана матрица размера $$M times N$$. Продублировать строку матрицы, содержащую ее максимальный элемент.

Решаем задачи Абрамян на C. Matrix69

Matrix69. Дана матрица размера $$M times N$$ и целое число $$K$$ $$(1 le K le $$N$$)$$. После столбца матрицы с номером $$K$$ вставить столбец из единиц.

Решение задач. День второй. Задачи Begin11-20

Сегодня мы с вами продолжаем решать задачи Begin11-20. В этой статье не будет блок-схем вообще. «Почему?» — спросите вы. Потому что на данном этапе задачи настолько просты, и настолько дублируют друг друга, что смысла в подробном разборе просто нет.

Begin11. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.

Для того, чтобы решить данную задачу вы должны вспомнитьвстроенную в Паскаль функцию. Эта функция — abs. Кроме того, хотелось бы рассказать еще об одной интересной фишке. Наверняка, во время тестирования какой-либо программы вы сталкивались с проблемой типа Real. Считая корни, синусы, косинусы и прочее получается примерно такое число — 0.784674838737. Как избежать этого? Для этого после переменной прописываются определенные параметры. Например, write(a:5:2), где 5 — ширина поля вывода, а 2 количество знаков после запятой.

Begin12. Даны катеты прямоугольного треугольника a и b.

Найти его гипоте нузу c и периметр P: c = √( a 2 + b 2) , P = a + b + c.

Ничего сложного в этой задаче нет.

Begin13. Даны два круга с общим центром и радиусами R₁ и R₂ (R₁ > R₂). Найти площади этих кругов S₁ и S₂, а также площадь S₃ кольца, внешний радиус которого равен R₁, а внутренний радиус равен R₂. S₁ = π·(R₁) 2 , S₂ = π·(R₂) 2 , S₃ = S₁ – S₂. В качестве значения π использовать 3.14.

Не забываем указывать pi, как константу.

Begin14. Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L = 2·π·R, S = π·R 2 . В ка честве значения π использовать 3.14.

Begin15. Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L = π·D, S = π·D 2 /4. В качестве значения π использовать 3.14.

Begin16. Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x₂ – x₁|.

На самом деле непонятно, почему именно х₂-х_1. Ведь число в модуле будет одинаковым. Что 8 — 9, что 9 -8 равняются единице.

Begin17. Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.

Иногда, если не понимаешь условие задачи, полезно составить рисунок к задаче.

Begin18. Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.

Посмотрев на рисунок, мы понимаем, что нахождение длины отрезков не меняется. Кстати, попробуйте составить эту программу, используя только три переменных!

Begin19. Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника.

Для того, чтобы наглядно увидеть что от нас требуется, составим такой прямоугольник на листе бумаге. И увидим, что на что надо умножать.

Begin20. Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости.

[spoiler title=”источники:”]

http://coolcode.ru/reshaem-zadachi-abramyan-na-paskale-begin-12/

http://learnpascal.ru/reshenie-zadach/begin/begin11-20.html

[/spoiler]