Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на файлы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Zlo
Переписать из одного файла в другой n простых чисел. Файлы уже заполнены числами.
Программа не работает. Помагите плиз иправить ошибку.


program s;
var input,output:text;
k,i,n:integer;


function prostoe(x:integer):boolean;
var d:integer; p:boolean;
begin
p:=true;
for d:=2 to x-1 do if x mod d=0 then p:=false;
prostoe:=p;
end;

begin
readln(n);
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
k:=0;
while k<(n+1) do begin
read(i);
if prostoe(i) then begin inc(k);
writeln(i);
end;
end;

close(input);
close(output);

end.

asu2006
Добавь:
writeLn(input, i);
writeLn(output, i);
Malice
Убери объявления переменных:
input,output:text;

Они и так уже есть.
Zlo
Изменил программу но все равно не переписывает. Выложите плиз исправленную а то может я что то не так изменяю.
Malice

program s;
var
k,i,n:integer;
function prostoe(x:integer):boolean;
var d:integer; p:boolean;
begin
p:=true;
for d:=2 to x-1 do if x mod d=0 then p:=false;
prostoe:=p;
end;

begin
readln(n);
assign(input,'input.txt'); {проверь, может просто не находит этот файл}
reset(input);
assign(output,'output.txt');
rewrite(output);
k:=0;
while k<(n+1) do begin
read(i);
if prostoe(i) then begin inc(k);
writeln(i);
end;
end;
close(input);
close(output);
end.


Убрал объявление переменных smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.