КОНТРОЛЬНАЯ в ТУРБО ПАСКАЛЕ

[Кома]

помогите пожалуйста с контрольной

[eoln]

Какие файлы-то? Текстовые, типизированные... ?

var
  t: text;{тип файла}
  h: string;
  e, el: real;
  i: integer;
function element(i: integer): real;
begin
  element := (i-0.1) / ( exp(3*ln(i))+abs( sin(2*i)/cos(2*i) ) )
  {тут i в радианах, а не в градусах}
end;
begin
  write('e = '); readln(e);
  write('file name = '); readln(h);
  assign(t, h);
  rewrite(t);
  i := 1;
  repeat
    el := element(i);
    writeln(t, el:0:8);
    inc(i)
  until abs(el)<e;
  close(t);
  writeln('see file ', h);
  readln
end.

[Rusl92]

uses crt;
var i,k:integer;
e:real;
x:array[1..1000] of real;
h:text;
begin
clrscr;
readln(e);
i:=0;
repeat
i:=i+1;
x[i]:=((i-0.1)/(i*i*i+abs(sin(2*i)/cos(2*i))));

until (abs(x[i]) >= e);
assign(h,'h.txt');
rewrite(h);
for k:=1 to i do
write(h,x[k]:3:2,' ');
readln;
close(h);
end.

[puporev]

e, el: real;
i: integer;

При малом e типы real и integer не потянут. i^3 будет быстро расти, а точность real может неверно выдать последнее значение.
Лучше extended и longint.

[Rusl92]

ses crt;
var i:integer;
e,k:extended;
h:text;
begin
clrscr;
readln(e);
i:=0;
assign(h,'h.txt');
rewrite(h);
repeat
inc(i);
k:=((i-0.1)/(i*i*i+abs(sin(2*i)/cos(2*i))));
write(h,k:3:2,' ')
until (abs(x[i]) >= e);
readln;
close(h);
end.
Получается вроде так!
Массивами не нужно пользоваться!

[Кома]

спасибо вам большое,хотелось бы еще и блок схему увидеть.и вообще нафига этот паскаль нужен будущему менеджеру?

[eoln]

Это как рисовать (3-ий пост) http://programmersforum.ru/showthread.php?t=26840
Я вот тоже в первом классе думал "А на фига мне математика (география и т.п.) эта...", оказалось пригодилась.

[Кома]

да я же не собираюсь быть программистом, математику я ,кстати, всегда хорошо знала,мой любимый предмет