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

[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 10:50

[Ozzя]

Условие задачи непонятно. Напиши формулу нормально, например в Word'е, запакуй и приложи файл.

Более того, программа не компилируется. И не должна. Объявляешь

var
p:text;


а в программе вызываешь как?

assign(f,STR);

str - стандартная процедура, не рекомендуется использовать. Замени, например на str1.

ну и тд.

[V.k.l.chr.by]

Спасибо,за советы.Если честно,то данную тему я ещё не понял.А решение я списал на ходу.Прошу не ругайтесь на меня

[Ozzя]

V.k.l.chr.by
Думаешь, стало понятнее?
Ну, примерно так: (если я правильно понял)

Составить таблицу:

const
  m=5;
var
  omega, beta : array [1..m] of real;
begin
  for i:=1 to m do
     begin
         omega[i]:= // вставляешь формулу
         beta[i]:=    // вставляешь формулу
     end; 
  ...
end.

Запись в файл оформить для первой строки условия,
исходные данные которой соответствуют набору №1.

Вот этот момент хотелось бы поподробнее.

Сообщение отредактировано: Ozzя - 27.12.2007 17:41