Var
a, b, h, x: real;
begin
writeln(Введите начальное значение, конечное значение и шаг );
readln(a, b, h);
x := a;
while x <= b do
begin
writeln(x:5:2, ,2 * cos(x) - 1:10:7);
x := x + h
end
end.
Тест:
Введите начальное значение, конечное значение и шаг
-1.8 1.6 0.2
-1.80 -1.4544042
-1.60 -1.0583990
-1.40 -0.6600657
-1.20 -0.2752845
-1.00 0.0806046
-0.80 0.3934134
-0.60 0.6506712
-0.40 0.8421220
-0.20 0.9601332
0.00 1.0000000
0.20 0.9601332
0.40 0.8421220
0.60 0.6506712
0.80 0.3934134
1.00 0.0806046
1.20 -0.2752845
1.40 -0.6600657
1.60 -1.0583990
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.