Составить программу в turbo pascal 7.0, в которой с оператора repeat необходимо протабулировать функцию y=cos(x/3+0.3) в диапазоне параметра от 0 до 6 с шагом 0.2 буду за решение, за внимание.
115
297
Ответы на вопрос:
Var x: real; begin x: =-0.2; while x< =6 do begin x: =x+0.2; writeln('x=',x: 2: 1,' y=',cos(x/3+0.3): 5: 2); end; end.
Популярно: Информатика
-
mannanova020227.02.2021 02:28
-
ekarerinazak0505.10.2022 11:01
-
magakhass14.12.2020 22:21
-
fudhchf20.07.2020 16:11
-
8473726374801.03.2023 15:20
-
knopiknopa15.03.2020 04:25
-
Qqertyi09.07.2022 13:09
-
Flylama12.02.2021 08:17
-
Rararasa01.08.2022 15:26
-
sofjiasofa12345630.03.2022 15:34