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


program fileprost;
var f1,f2:file of integer;
n:integer; file1,file2:string;
otvet:char;

procedure vvod(file1:string);
var n:integer; f:file of integer;
begin assign(f,'file1.txt');
rewrite(f); repeat write('vvod chisl');
readln(n);
if n<>0 then write(f,n) until n=0;
end;

procedure vyvod(file2:string);
var n:integer; f:file of integer;
begin assign(f,'file2.txt'); reset(f);
while not eof(f) do begin
read(f,n);
writeln('n=',n); end;
end;

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

begin
write('name vxodnogo file'); readln(file1);
write('name vyxodnogo file'); readln(file2);
assign(f1,'file1.txt');assign(f2,'file2.txt');
write('zapolnit vxodnoy file(y/n)'); readln(otvet);
if otvet='y' then vvod(file1); reset(f1); rewrite(f2);
while not eof(f1) do begin read(f1,n);
if prostoe(n) then write(f2,n); end;
vyvod(file2);
close(f1);close(f2);
end.



Программа работает неправильно, помогите исправить.
klem4
Ну во первых ты явно не учитываешь условие
Цитата
первых наибольших


так что алгоритм немного не такой ... да и проверка на "простое" у тебя странноватая, воспользуйся поиском.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.