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

[Vika2112]

Составить программу в которой ввести 15 чисел с клавиатуры и вывести их в файл Fil.Сосчитать в этом файле количество нулей и вывести количество в конец файла.Вывести файлы на экран(файл без количества и файл с количеством)

Program fa;
uses crt;
var
A:Array[1..15] of integer;
fil:Text;
I,kol:integer;
Begin
kol:=0;
clrscr;
Assign(fil,'d:\1\fil.txt');
Rewrite(fil);
Writeln('ввести 15 чисел');
For I:=1 to 15 do
begin
Read(A[i]);
IF a[i]=0 then kol:=kol+1;;
Write(fil,A[i],' ');
End;
writeln('без количества');
For I:=1 to 15 do
Write(A[i],' ');
Writeln;
append(Fil);
Writeln('количество 0 в файле',kol);
Writeln('c количеством');
For I:=1 to 15 do
Write(A[i],' ');
Writeln;
Writeln('количество 0 в файле',kol);
Writeln('файл сформирован');
Close(fil);
Readkey;
End.

НАДО РЕШИТЬ БЕЗ ВСЯКИХ МАССИВОВ .КАК ВСЁ исправить???

[Serge_Bliznykov]

НАДО РЕШИТЬ БЕЗ ВСЯКИХ МАССИВОВ .КАК ВСЁ исправить???

А остальное Вас всё устраивает?! (сам алгоритм (последовательность действий) решения устраивает?)


Тогда, вместо A:Array[1..15] of integer;
пишите

var
  A : integer;

и далее везде по тексту, вместо A[i] пишите просто A

вместо:

writeln('без количества');
For I:=1 to 15 do
Write(A[i],' ');
Writeln;

пишите так:

  Reset(fil);
  writeln('без количества');
  while Not Eof(fil) do begin
      Read(fil, A);
      Write(A,' ');
      if EOLN(fil) then ReadLn(fil);
  end;
  WriteLn;  
  Close(fil);

профит.

[Vika2112]

(1) 13.12.2012 08:35 от Vika2112
исравила,но результат окна не радует)

(2) 13.12.2012 08:38 от Vika2112
EOLN это что такое?))





_________________
Не используйте форум как чат - не пишите несколько коротких сообщений подряд!
Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении
и изменяйте, добавляйте....

Прошу учесть на будущее...

Модератор.

[Serge_Bliznykov]

Eoln() - эта функция проверяет, не достигли ли мы в текстовом файле конца строки... (если у Вас все числа в одну строку, то можете строчку в коде if EOLN(fil) then ReadLn(fil);
убрать... а можете и оставить. это Вам решать.

исравила,но результат окна не радует)

чем не радует? давайте сюда исправленный код и огласите Ваши печали!