Распечатать 6 значений :X,Y Y=3*cosx/3 Где x меняется от -3с шагом

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

Задать свой вопрос
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

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт