можете проверить, правильно ли написана программа, а то результат выводится бесконечной строкой. ( задание 2,язык - паскаль)
Приложения:
![](https://st.uroker.com/files/40a/40ae88d3e227e7b1b450e571217f7bae.jpg)
Ответы
Ответ дал:
1
program tatti;
uses crt;
var
y, y1, x: real;
function f(x: real): real;
begin
f := cos(sqrt(2 * x + 28));
end;
begin
ClrScr;
x := -5;
while x <= 5 do
begin
y := f(x);
y1 := cos(f(x));
writeln(x:4:1, y:20:15, y1:20:15);
x := x + 0.5; { это шаг по х, можно любой взять }
end;
ReadKey
end.
Объяснение:
Ну как же не зациклиться, если вы в цикле не меняете значение, определяющее момент его завершения?
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
Uses crt;
var y,y1,x:real;
function f(x:real):real;
begin
f:= cos(sqrt(2*x + 28));
end;
begin
clrscr;
x:=-5;
while x<=5 do
begin
y:= f(x);
y1:= cos(f(x));
writeln(x,' ',y,y1);
end;
end.