Вложенные циклы. Вывести на экран значения tg 2, tg 4, tg 6...tg 50 - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Ребяяят, помогите пожалуйста программу написать. В общем нужно вывести на экран значения tg 2, tg 4, tg 6...tg 50 и сделать это через вложенные циклы. Очень нужно! =* =*

Решение задачи: «Вложенные циклы. Вывести на экран значения tg 2, tg 4, tg 6...tg 50»

textual
Листинг программы
var i:byte;
    t:real;
begin
i:=2;
while i<=50 do
 begin
  t:=sin(i)/cos(i);
  write(t:8:3);
  i:=i+2
 end;
readln//добавь это
end.

Объяснение кода листинга программы

  1. Объявлены две переменные: i типа byte и t типа real.
  2. Переменная i инициализируется значением 2.
  3. Запускается цикл while, который выполняется до тех пор, пока значение переменной i не станет больше 50.
  4. Внутри цикла вычисляется значение t как отношение синуса i к косинусу i.
  5. Выводится значение t на экран с точностью до трех знаков после запятой.
  6. Значение переменной i увеличивается на 2 после каждой итерации цикла.
  7. В конце программы добавлен оператор readln для дочитывания программы до конца.

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы