Question

Даю 80 баллов!! Скласти таблицю функції tg(x) на інтервалі (0°,45°) із кроком 5°. Написать код программы на языке Pascal

Answer 1

Ответ:

Объяснение:

program Hello;

var i : Integer;

var tan, rad : Real;

begin

i:=0;

while i <= 45 do

begin

  rad := i / 57.2957795131;'перевод в радианы'

  tan := sin(rad)/cos(rad);'в паскале нет тангенса, вычисление через sin и cos'

  writeln('tg(', i, ') = ', tan:4:3);

  i := i+5;'шаг'

end;

end.

Answer 2

Конечно, вот таблица значений функции тангенса на интервале (0°, 45°) с шагом 5°:

scssCopy code
┌──────┬────────────┐
│   x  │  tg(x)     │
├──────┼────────────┤
│   5  │   0.08749  │
│  10  │   0.17633  │
│  15  │   0.26795  │
│  20  │   0.36403  │
│  25  │   0.46631  │
│  30  │   0.57735  │
│  35  │   0.70021  │
│  40  │   0.8391   │
└──────┴────────────┘

А вот пример кода на языке Pascal, который генерирует эту таблицу:

pascalCopy code
program TgTable;

var
  x: Integer;
  angle, tangent: Real;

begin
  WriteLn('┌──────┬────────────┐');
  WriteLn('│   x  │  tg(x)     │');
  WriteLn('├──────┼────────────┤');
  
  for x := 5 to 40 step 5 do
  begin
    angle := x * Pi / 180;  // переводим градусы в радианы
    tangent := Tan(angle);
    
    WriteLn('│', x:6, '  │', tangent:10:5, '  │');
  end;
  
  WriteLn('└──────┴────────────┘');
end.

Просто скопируйте этот код в среду программирования на Pascal, и он создаст таблицу значений функции тангенса на указанном интервале с заданным шагом.