M
Maxxy
Помогите в решении задачи!Турбо Паскаль выдает что файл не найден!Не пойму что не так!И вообще,правильно ли я составил программу!? Заранее спасибо!
Типизированные файлы.
Дан файл целых чисел. Вывести количество содержащихся в нем серий (то
есть наборов последовательно расположенных одинаковых элементов).
Program Z;
Var
F:File of integer;
X,Xs,Kol:integer;
Seria:boolean;
begin
Assign(F,'C:Ser');
{$I-}
Reset(F);
{$I+}
Read(F,Xs);
Seria:=False;
Kol:=0;
While not eof(F) do
begin
Read(F,X);
If (X=Xs) and (not Seria) then
begin
Seria:=True;
Kol:=Kol+1;
end;
If X<>Xs then
begin
Read(F,Xs);
Seria:=False;
end;
End;
Close(F);
write(Kol);
end.
Типизированные файлы.
Дан файл целых чисел. Вывести количество содержащихся в нем серий (то
есть наборов последовательно расположенных одинаковых элементов).
Program Z;
Var
F:File of integer;
X,Xs,Kol:integer;
Seria:boolean;
begin
Assign(F,'C:Ser');
{$I-}
Reset(F);
{$I+}
Read(F,Xs);
Seria:=False;
Kol:=0;
While not eof(F) do
begin
Read(F,X);
If (X=Xs) and (not Seria) then
begin
Seria:=True;
Kol:=Kol+1;
end;
If X<>Xs then
begin
Read(F,Xs);
Seria:=False;
end;
End;
Close(F);
write(Kol);
end.