Распечатать 6 значений : X, Y

Y=3*cosx/3

Где x изменяется от - 3πс шагом 0.8 составить программу (pascal)

Question

Информатика

Анастасиюшка

28 июля, 18:47

Распечатать 6 значений : X, Y

Y=3*cosx/3

Где x изменяется от - 3πс шагом 0.8 составить программу (pascal)

+2

Ответы (1)

Знаете ответ на вопрос?

Николаша · Answer 1

Var

x:real;

i:integer;

begin

x:=-3*pi;

for i:=1 to 6 do begin

Writeln (x:9:6,3*cos (x/3) : 16:6) ;

x:=x+0.8

end

end.

Результат

-9.424778 - 3.000000

-8.624778 - 2.893964

-7.824778 - 2.583352

-7.024778 - 2.090120

-6.224778 - 1.449137

-5.424778 - 0.705713

Распечатать 6 значений : X, YY=3*cosx/3Где x изменяется от - 3πс шагом 0.8 составить программу (pascal)

Распечатать 6 значений : X, Y

Y=3*cosx/3

Где x изменяется от - 3πс шагом 0.8 составить программу (pascal)