модули..Вычислить таблицу значений тангенса. помогите не так составила(

[BumBum4ik]

Составить программу с подпрограммами. При написании программ использовать модульный принцип построения программ. Ввод данных - из файла. Вывод результатов - в файл и на экран
Вивести у виді таблиці tg(x) від 30о до 45о з кроком 0.1
как это сделала я((((

const
  rad = pi / 180;
 
var
  x, y: Real;
  
  
begin
  x := 30;
  while x <= 45 do begin
    y := tan(x * rad);
    WriteLn(x:6:1, y:10:4);
    x := x + 0.1;
  end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

Осталось :
- ввод данных - из файла (каких данных, если данные вычисляются - от 30 до 45 с шагом 0,1 ?)
- вывод в файл ( на экран уже выведено)
- использовать модульный принцип. Это так: надо в программе

uses BumBum4ik;

И сам модуль написать:

unit BumBum4ik;
// что должно быть в модуле ? Вычисление тангенса?

[BumBum4ik]

Вывести в виде таблицы tg (x) от 30о до 45о с шагом 0.1

[type_Oleg]

Сообщение от BumBum4ik

дав виде таблицы вывести значение

Это на какой вопрос ответ?
Это должно быть в модуле - вывод на экран? Тогда массив надо делать.

[BumBum4ik]

та нет,вроде без массива,не в модуле

[type_Oleg]

Так как же вам помочь?
Наверное, мне надо съездить к вашему преподавателю, чтобы он ответил на вопросы - что вводить с файла и что должно быть в модуле?
Потому что " вывести в виде таблицы на экран ... " вы уже сами не заметили как сделали.

[BumBum4ik]

да,но без использывания процедуры...

[BumBum4ik]

Составить программу с подпрограммами. При написании программ использовать модульный принцип построения программ. Ввод данных - из файла. Вывод результатов - в файл и на экран
Вивести у виді таблиці tg(x) від 30о до 45о з кроком 0.1
и сам код мой:

Program lab;
Uses pidprog;
var k:real;
Begin
main();
end.

подпрограмма

Unit pidprog;
interface
procedure main();
implementation
procedure main();
var f:text;
    x,y,z:real;
begin
assign(f,'result.txt');
rewrite(f);
writeln(f,'-----------------------');
writeln(f,'|  x  |   y   |   z   |');
writeln(f,'-----------------------');
x:=30;
while x<=45 do
 begin
  y:=sin(x);
  z:=y/cos(x);
  writeln(f,'tg(',x:4:1,')     -    ',z:6:2);
  x:=x+0.1;
 end;
writeln(f,'-----------------------');
close(f);
readln;
end;
end.

ошибки выдаёт(((
и результат выводится в файл а на экран не выводится((

[ZX Spectrum-128]

writeln(f,...

Куда указали (в файл), туда и выводит.

[BumBum4ik]

а как это сделать?