Question

Напиши программу на Паскаль. Дан синус угла. Найти его косинус ​

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadReal('Введи значение синуса угла:');

 var b := Sqrt(1 - a * a);

 Print('Коснус этого угла равен', b)

end.

Пояснение: sin²x + cos²x = 1

Answer 2

Конвертируем синус угла в косинус, используя тождество тригонометрии:

cos^2(x) + sin^2(x) = 1

Отсюда можно выразить косинус в зависимости от синуса:

cos^2(x) = 1 - sin^2(x)
cos(x) = sqrt(1 - sin^2(x))

Теперь мы можем написать программу на Паскаль, которая будет находить косинус по заданному синусу угла.

```pascal
program SinCos;
var
sin, cos: real;
begin
writeln('Введите синус угла: ');
readln(sin);

// Вычисление косинуса
cos := sqrt(1 - sin * sin);

writeln('Косинус угла: ', cos);
end.
```

Пользователь будет запрошен ввести значение синуса угла, а затем программа вычислит и выведет соответствующий косинус.