Вложенные циклы. Вывести на экран значения 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.
Объяснение кода листинга программы
- Объявлены две переменные: i типа byte и t типа real.
- Переменная i инициализируется значением 2.
- Запускается цикл while, который выполняется до тех пор, пока значение переменной i не станет больше 50.
- Внутри цикла вычисляется значение t как отношение синуса i к косинусу i.
- Выводится значение t на экран с точностью до трех знаков после запятой.
- Значение переменной i увеличивается на 2 после каждой итерации цикла.
- В конце программы добавлен оператор readln для дочитывания программы до конца.