Метод файлов, Исправление ошибки Опции

[V.k.l.chr.by]

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

w2 k= | a5 k|+
b2 k= w2 k *tg
k=
mЈ 5.
Запись в файл оформить для первой строки условия,
исходные данные которой соответствуют набору №1.
А вот само моё решение:

Program lr18;
uses CRT,Printer;
Const t=5;z=7;
Type
mas=array [1..50] of real;
var
k,m,n,f:integer;
w2,a,bt2,x:mas;
P:TEXT;
STR:string;
begin
clrscr;
write('vecti ima STR=');
readln(str);
assign(f,STR);
writeln ('vecti n,m:');
readln(n,m);
if n=1 then
begin
rewrite(f);
for k:=1 to m do
begin
write('vecti a[' ,k, ']=');
read(a[k]);
w2[k]:=abs(exp(5*ln(a[k])))+exp(1/3*sqr(cos(z)));
writeln(f,k:2,w2[k]:9:2);
end;
writeln(' ':2, ' rezultat:');
writeln;
writeln(' ':4, '*  k  *','  n  *','   n2[k]   *');
for k:=1 to m do
writeln(k:4,n:6,w2[k]:11:2);
end;
if n>1 then
begin
reset(f)
fjr
k:=1 to m do
begin
write(' vesti x[' ,k, ']=');
read(x[k]);
read(f,k,w2[k]);
end;
writeln(' rezultatu' , ' i 4tenie' );
writeln;
writeln(' ':4,'*  k  *' , '  n  *' ,  bt2[k]  *' , '  w2[k]  *');
for k:=1 to m do
begin
bt2[k]:=w2[k]*sin(x[k]/t);
writeln(k:8,n:6,bt[k]:11:2,w2[k]:11:2);
end;
end;
close(f)
end.

М

Используем теги

Сообщение отредактировано: klem4 - 27.12.2007 14:50