Ответы на вопрос:
var
x,y: real;
begin
x: =1;
repeat
y: =cos(pi*x/180);
writeln ('x = ',x: 0: 1,'. f(x) = ',y: 0: 8);
x: =x+0.5;
until x> 5;
readln;
end.
значения косинуса выдает в градусах.
Популярно: Информатика
-
DeM1234511.02.2020 13:28
-
ВоржеваСоня13.12.2022 23:56
-
temka201312.09.2022 17:18
-
Ваняяш23.06.2021 14:59
-
Fataeh25.03.2021 04:45
-
яглупенькая30.09.2020 19:34
-
Hackerywka10.09.2022 09:19
-
mxnty04.04.2020 13:20
-
neket67888529.07.2020 21:22
-
BackedSmile21.04.2022 13:17