Ответы на вопрос:
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.
объяснение:
ну как же не зациклиться, если вы в цикле не меняете значение, определяющее момент его завершения?
Популярно: Информатика
-
оспшро14.12.2021 07:54
-
ArturSSexe19.05.2022 05:53
-
Murv84720.06.2020 18:42
-
aman138211.03.2021 15:49
-
terylevina108.06.2022 20:17
-
denis2013den12.02.2022 11:25
-
Сережа891002.07.2020 00:23
-
bmelana14.10.2021 20:54
-
milana37201.09.2021 23:12
-
Raha005629.06.2021 03:38