Создание и обробка файлов

@AyzekUorren · Регистрация: 27.09.2014

Author24 — интернет-сервис помощи студентам

Задания:
А: Создать файл, содержащий значения функции sin (x), cos (x), tg (x) когда x изменяется от 0 до 3.14 с шагом 0.5.

В: Написать программу, которая в файле, ищет отрицательные элементы, и когда они есть, то выводит их на экран. Когда отрицательных элементов нет, на экран вывести первый и последний элементы.
Вот что получилось

Pascal

program lab6;
uses crt;
Const a=0;b=3.14;h=0.5;
Type geom=Record
      sin:real;
      cos:real;
      tg:real;
     End;
Var f:file of geom;
    x:real;
    k:byte;
    g:geom;
Begin 
    Assign(f,'in.dat');Rewrite(f);
      x:=a;
    While x<=b do
    Begin
      g.sin:=sin(x);
      g.cos:=cos(x);
      g.tg:=g.sin/g.cos;
      write(f,g);
      x:=x+h;
    End;
    reset(f);
     Writeln('      ','sin:','               ','cos:','               ','tg:');
    While not Eof(f) do Begin
    Read(f,g);
   
    writeln;
    writeln('      ',g.sin:4:4,'             ',g.cos:4:4,'             ',g.tg:4:4);
    end;
      reset(f);
    While not Eof(f) do Begin
    read(f,g);
    if g.sin<0 then 
    writeln('sin:','   ',g.sin:4:4);
    if g.cos<0 then
    writeln('cos:','   ',g.cos:4:4);
    writeln;
    if g.tg<0 then
    writeln('tg:','   ',g.tg:4:4);
    writeln;
    end;
    close(f);
    readln;
    end.

Помощь нужна вот с этим вопросом.
Нужно вывести первое и последнее значения g.sin.

	12.11.2014, 17:04