Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Cyborg Drone
Модератор
5297 / 3176 / 2442
Регистрация: 17.08.2012
Сообщений: 10,189
24.11.2017, 18:45 0

Вывести таблицу тригонометрических функций на экран и в файл

24.11.2017, 18:45. Просмотров 771. Ответов 8
Метки (Все метки)

Лучший ответ Сообщение было отмечено Ninjaa как решение

Решение

По ссылке только для sin(x).

Для всех тригонометрических функций:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
type st = string[11];
 
function fs(x, y: real): st;
var s: string;
begin
  if y = 0
    then s := ' undefined'
    else begin
      str(x / y :0:20, s);
      if pos('.', s) > 10
        then str(x / y :10, s)
        else delete(s, 11, length(s) - 10)
    end;
  fs := ' ' + s
end;
 
const header = '         x     sin(x)     cos(x)      tg(x)     ctg(x)     sec(x)   cosec(x)';
var i, n: integer;
    x, h, s, c: real;
    f: text;
    p: string;
begin
  assign(f, 'trig_tab.dat');
  rewrite(f);
  writeln(f, header);
  n := ; //write('n = '); readln(n); //для ручного ввода количества точек
  h := 2 * pi / (n - 1);
  for i := 0 to n - 1 do
    begin
      if i mod 5 = 0 then writeln(header);
      x := h * i;
      s := sin(x);
      c := cos(x);
      p := fs(x, 1) + fs(s, 1) + fs(c, 1) + fs(s, c) + fs(c, s) + fs(1, c) + fs(1, s);
      writeln(p);
      writeln(f, p);
      if (i mod 5 = 4) and (i < n - 1)
        then begin
          write('Press <Enter> to continue');
          readln
        end;
    end;
  close(f);
  write('Press <Enter> to exit');
  readln;
end.


Вернуться к обсуждению:
Вывести таблицу тригонометрических функций на экран и в файл
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2017, 18:45
Готовые ответы и решения:

Таблица тригонометрических функций.
Помогите пожалуйста с этим! Составить программу, которая строит таблицу...

Создание модуля тригонометрических функций
Создать модуль, содержащий две процедуры для перевода радиан в градусы(и...

Построить график функций и вывести таблицу значений
задания на картинке

Расчет и построение графиков тригонометрических функций
Составить программу на языке Турбо–Паскаль, которая реализует: - Расчет...

решение тригонометрических функций с использованием языка паскаль
Помогите, пожалуйста, решить задачкууууууу.... С программированием не очень...

8
Другие темы раздела
Turbo Pascal Проверка попадания точки в заданную область http://www.cyberforum.ru/turbo-pascal/thread2142290.html
Задано N точек на плоскости. 1. Записать логическое выражение, соответствующее заданной области истинности. 2. Составить программу для; - подсчета количества точек, попавших в заданную область. -...
Turbo Pascal Создать автогонки Автогонки. Задается в диалоге число участников N. Старт - раздельный, с постоянным заданным интервалом T. Цвета автомобилей и скорости задаются как случайные числа. Скорости V1<=V<=V2 равномерно... http://www.cyberforum.ru/turbo-pascal/thread2142213.html
Определить номера столбцов, в которых нет четных элементов Turbo Pascal
Дана целочисленная прямоугольная матрица. Определить номера столбцов, в которых нет четных элементов;
Turbo Pascal Определить, симметрична ли матрица относительно главной диагонали
Дана целочисленная квадратная матрица. Определить, симметрична ли матрица относительно главной диагонали.
Turbo Pascal Преобразовать массив следующим образом: i-й элемент после преобразования равен наибольшему среди первых i элементов http://www.cyberforum.ru/turbo-pascal/thread2142133.html
Преобразовать элементы массива следующим образом: i-й элемент после преобразования равен наибольшему среди первых i элементов.
Turbo Pascal В массиве, состоящем из n целых элементов определить, расположены ли его четные элементы в порядке возрастания В одномерном массиве, состоящем из n целых элементов определить, расположены ли его четные элементы в порядке возрастания подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru