Версия для печати темы

Автор: V.k.l.chr.by 27.12.2007 9:01

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

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.

Автор: Ozzя 27.12.2007 12:32

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

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

var
p:text;


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

assign(f,STR);

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

ну и тд.

Автор: V.k.l.chr.by 27.12.2007 18:40

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


Прикрепленные файлы
 Постановка_задачи.doc ( 21 килобайт ) Кол-во скачиваний: 281

Автор: Ozzя 27.12.2007 21:39

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.