Работа с файлами

[lubov_morkov]

написать программу на языке pascal. из компонентов исходного файла целых чисел сформировать массв нечетных чисел. Подскажите где ошибка и какая

program zadacha;
uses crt;
const n=3;
var a:array[1..n] of real;
b:array[1..n] of real;
i,k:integer; f:file of real;
begin
assign (f, 'd:\abc.txt');
rewrite(f);

for i:=1 to n do
write('a=');
read(a[i]);
write(f,a[i])
;
close(f);
reset(f);
for i:=0 to n do
read (f, a[i]);
close(f);

if a[i] mod 2<>0 then
begin
k:=k+1;
b[k]:=a[i];
end;
for i:=1 to k do
writeln(b[i]);
end.

[Ol'ga_new]

Если в цикле несколько строк программы нужно пользоваться:
begin
...
end;
и ещё

if a[i] mod 2<>0 then

здесь проверяется следующий эл-т!

[Serge_Bliznykov]

1) Вы неверно прочитали условие

исходного файла целых чисел

Вам нужен файл file of Integer (ну, или file of LongInt)
и, соответственно, переменные того же типа.
Кстати, в математике для вещественных чисел вообще не определенно понятие чётности/нечётности!


2) код надо оформлять специальным тэгом (кнопочка с решёточкой #)

3) чтение лучше производить в цикле while Not Eof(f) do begin ...
и, разумеется, контролировать, чтобы число прочитанных чисел не превысило N
да и N сделайте хотя бы N = 100, что Вам, 300 байт лишних жалко?

[lubov_morkov]

спасибо........только чет не получается, вроде все исправила (((

[Ol'ga_new]

Выложи новую версию, мы проверим!

[lubov_morkov]

program zadacha;
uses crt;
const n=100;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,k:integer; f:file of integer;
begin
assign (f, 'd:\abc.txt');
rewrite(f);
while not eof(f) do begin
for i:=1 to n do
write('a=');
read(a[i]);
write(f,a[i])
end; ;
close(f);
reset(f);
for i:=0 to n do
read(f,a[i]);
close(f);

if a[i] mod 2<>0 then
begin
k:=k+1;
b[k]:=a[i];
end;
for i:=1 to k do
writeln(b[i]);
end.

[Ol'ga_new]

Вот код явные ошибки исправили, попробуй:

program zadacha;
uses crt;
const n=100;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,k:integer; f:file of integer;
begin
assign (f, 'd:\abc.txt');
rewrite(f);
i:=1;
while not eof(f) do
begin
{for i:=1 to n do}
write('a=');
read(a[i]);
write(f,a[i])
i:=i+1;
end; 
close(f);
reset(f);
n:=i-1;
for i:=1 to n do
read(f,a[i]);
close(f);
for i:=1 to n do
if (a[i] mod 2)<>0 then
begin
k:=k+1;
b[k]:=a[i];
end;
for i:=1 to k do
writeln(b[i]);
end.

[Serge_Bliznykov]

to lubov_morkov,

уф.. всё не так... я же говорил while Not eof(f) для ЧТЕНИЯ!
что же Вы его в запись вставили?! да и тебовать каждый раз вводить 100 чисел - это жестоко!
тогда уже надо случайными числами заполнять файл...
ладно.
ловите готовый код:

program zadacha;
uses crt;
const n = 100;
var
  b: array[1..n] of integer;
  a, i, k: integer;
  f: file of integer;

begin

  {запись файла}
  assign(f, 'd:\abc.txt');
  rewrite(f);
  WriteLn('Введите, сколько чисел будет в файле');
  Readln(k);
  if K>n then begin
    WriteLn('Больше ',n:1,' нельзя! Прощайте...');
    Readln;
    Halt(1);
  end;
  for i:=1 to k do begin
    write('a',i:1,'=');
    readln(a);
    write(f, a)
  end; ;
  close(f);

  {теперь чтение файла}
  reset(f);
  k:=0;
  while Not eof(f) do begin
    read(f, a);
    if ((a mod 2) <> 0) and (k<n) then begin
      {нашли нечётное число}
      inc(k);
      if k>n then WriteLn('В исходном файле нечётных чисел больше ',n:1)
      else b[k] := a
    end;
  end;
  Close(f);

  {вывод массива с нечётными числами}
  Writeln('Нечетный числа (массив B)');
  for i := 1 to k do
    writeln(b[i]);

  Readln; {пауза до нажатия Enter, чтобы можно было насладиться результами}
end.

[lubov_morkov]

спасибо болшое)))