Файлы. Паскаль.

[Alt]

Сообщение от Гамбит

Ну тогда я не понял ответ...

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

[Aries]

еще добавь в конце строчку
close(f);

Спасибо...

[Гамбит]

ну а сам алгоритм правилен?

Uses crt;
type ff=file of real;
Procedure input(x:real);
var f1,f2:ff; y:real;
begin
read(f1,x);
y:=cos(x)/sin(x);
write(f2,y);
end;
Var f1,f2:ff; x,y:real;
begin
assign(f1,'f:\qwe.txt');
reset(f1);
assign(f2,'f:\asd.txt');
rewrite(f2);
While not eof(f1) do
input(x);
close(f1);
close(f2);
end.

вот более свежая версия, кому не сложно, проверте!!!

[Stilet]

Пара замечаний.
1) Код то скомпилируется, но не рекомендую процедуру input по другому назвать - это считается зарезервированным словом.
3) Врядли программа запустится потому что ты в процедуре описал переменные var f1,f2:ff; но не открыл по ним файлы. Ты открыл фалы для других переменных в главной программе, но с ними не работаешь
2) input(x:real); - зачем ты тут x описал? Он то в главной программе не используется.
Вот так будет лучще:

type ff=file of real;
var f1,f2:ff; x,y:real;

Procedure inputA;
begin
 read(f1,x);
 y:=cos(x)/sin(x);
 write(f2,y);
end;

begin
assign(f1,'f:\qwe.txt');reset(f1);
assign(f2,'f:\asd.txt');rewrite(f2);
 While not eof(f1) do    inputA;
close(f1);close(f2);
end.

[Гамбит]

тоесть в процедуре не будет входных выходных параметров?

[Stilet]

тоесть в процедуре не будет входных выходных параметров?

тоесть в твоем случае это не обязательно но возможно )

[Гамбит]

ну посмотрим...может прокатит =)

[Гамбит]

А с этой можешь помочь? мне нужно переделатьпрогу с помощью указателей и динамической памяти

program lab_6;
uses crt;
const n=10;
type matr=array [1..n,1..n] of integer;
procedure vvod(var a:matr);
var i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random (50);
end;
procedure sortirovka(var a:matr);
var i,j,b,l:integer;
begin
for i:=1 to n do
for l:=1 to n-1 do
for j:=l+1 to n do
if a[i,l]>a[i,j+1] then
begin
b:=a[i,l];
a[i,l]:=a[i,j];
a[i,j+1]:=b
end;
end;
procedure zamena( var a:matr);
var i,j:integer;
begin
k:=1;
for i:=1 to n do
begin
for j:=1 to n do
a[i,j]:=0;
k:=k+1;
end;
end;
procedure vbIvod(  a:matr);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]);
writeln
end;
end;
var a:matr;
begin
vvod(a);
sortirovka(a);
zamena(a);
vbIvod(a);
readln;
end.

[Stilet]

Допустим я ее поставлю на указатели

const n=10;
type
 matr=array [1..n,1..n] of integer;
 pmatr=^matr;

procedure vvod(a:pmatr);
var i,j:integer;
begin
  randomize;
  for i:=1 to n do  for j:=1 to n do
    a^[i,j]:=random (50);
end;

procedure sortirovka(a:pmatr);
var i,j,b,l:integer;
begin
  for i:=1 to n do
    for l:=1 to n-1 do
      for j:=l+1 to n do
        if a^[i,l]>a^[i,j+1] then begin
          b:=a^[i,l];          a^[i,l]:=a^[i,j];          a^[i,j+1]:=b
        end;
end;
procedure zamena(a:pmatr);
var k,i,j:integer;
begin
  k:=1;
  for i:=1 to n do  begin
   for j:=1 to n do     a^[i,j]:=0;
   k:=k+1;
  end;
end;

procedure vbIvod(a:pmatr);
var i,j:integer;
begin
  for i:=1 to n do  begin
   for j:=1 to n do  write(a^[i,j]);
   writeln
  end;
end;

var a:pmatr;
begin
  new(a);
  vvod(a);
  sortirovka(a);
  zamena(a);
  vbIvod(a);
  readln;
  Dispose(a);
end.

Но программа (алгоритм) твоя не работает.
Доводи его до ума.

[Гамбит]

то что она не рабтает, я знаю =) мне просто нужно было узнать, как на указатели её поставить, ибо у меня работающая есть прога =) спасибо

просто я немного по другому пытался указатели расставить, а там намного больше работы нужно делать = ещё раз спасибо.