Напечатать таблицу значений функций sin х и cos х - Pascal

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

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

Напечатать таблицу значений функций sin х и cos х на отрезке [0,1] с шагом 0.1 в следующем виде (считать, что при печати на каждое вещественное число отводится по 6 позиций строки): х sin(x) cos(x) 0.0000 0.0000 1.0000 0.1000 0.0998 0.9950 ……………………….……. 1.0000 0.8415 0.5403

Решение задачи: «Напечатать таблицу значений функций sin х и cos х»

textual
Листинг программы
uses crt;
var i:byte;
begin
clrscr;
writeln(' x    sin    cos');
for i:=0 to 10 do
writeln(i/10:0:1,' ',sin(i/10):6:4,' ',cos(i/10):6:4);
readln
end.

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

  1. Объявляется переменная i типа byte.
  2. Вызывается процедура clrscr, очищающая экран.
  3. Выводится текст x    sin    cos.
  4. Запускается цикл for от 0 до 10.
  5. В каждой итерации цикла выводится значение переменной i деленное на 10 с точностью до 1 знака после запятой, а также значения функций sin и cos от i деленного на 10 с точностью до 4 знаков после запятой.
  6. Ожидается ввод пользователя.

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

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