Помогите пожалуйста решить , завтра нужно уже сдать .
Записать в файл f последовательную доступа N натуральных чисел.Получить в другом файле последовательного доступа все компоненты файла f, кроме тех , которые кратны K . Вывести полученный файл на печать .
Полная версия: Файл
А в чем проблема-то? 
Не знаете как писать/читать в/из файл(а)? Или не знаете, как оформить кратность К?
Не знаете как писать/читать в/из файл(а)? Или не знаете, как оформить кратность К?
а как выводить на печать?
Цитата(sheka @ 8.06.2009 11:32) 
а как выводить на печать?
не знаю как оформить кратность К .
Цитата
а как выводить на печать?
На принтер?
uses
printer;
...
writeln(lst,'...');
...
Цитата(Ozzя @ 8.06.2009 10:56)
А в чем проблема-то?
Не знаете как писать/читать в/из файл(а)? Или не знаете, как оформить кратность К?
не знаю как оформить кратность К .
Цитата
не знаю как оформить кратность К .
...
read(f1,num);
if num mod K<>0 then
write(f2,num);
...
Цитата(Ozzя @ 8.06.2009 14:46)
...
read(f1,num);
if num mod K<>0 then
write(f2,num);
...
Вот так сделал первую часть , но мне кажется что- то не то .
Цитата
program gg;
uses Crt;
var fl: file of integer;
num:integer;
i,x:integer;
begin
ClrScr;
assign (fl,' number.dat');
rewrite (fl);
for i:=1 to 10 do
begin
write (i,'-e зЁб«®');
readln (x);
write (fl,x);
Close (fl);
end;
writeln ('‡ ЇЁбм ў д ©« § ўҐаиҐ ');
repeat until keypressed;
end.
uses Crt;
var fl: file of integer;
num:integer;
i,x:integer;
begin
ClrScr;
assign (fl,' number.dat');
rewrite (fl);
for i:=1 to 10 do
begin
write (i,'-e зЁб«®');
readln (x);
write (fl,x);
Close (fl);
end;
writeln ('‡ ЇЁбм ў д ©« § ўҐаиҐ ');
repeat until keypressed;
end.
А вот во второй части не знаю что делать .
Цитата
program gg;
uses Crt;
var fy: file of integer;
num:integer;
k,x:integer;
begin
ClrScr;
assign (fy,'number.dat');
reset (fy);
k:=0;
uses Crt;
var fy: file of integer;
num:integer;
k,x:integer;
begin
ClrScr;
assign (fy,'number.dat');
reset (fy);
k:=0;
немагу разобраться куда вписывать кратность и печать.
ничего не понятно, а зачем 2 части? и файлы же последовательного доступа, а не типизированые.
c принтером допишите.
program gg;
uses Crt;
var
f1,f2: text;
i,x,n,k:integer;
procedure tof1;
begin
assign (f1,'number.txt');
rewrite (f1);
write ('n=');
readln(n);
for i:=1 to 10 do begin
write ('x=');
readln(x);
write (f1,x,' ');
end;
Close (f1);
end;
procedure tof2;
begin
assign (f1,'number.txt');
reset (f1);
assign (f2,'number2.txt');
rewrite (f2);
write ('k=');
readln(k);
while not eof(f1) do begin
read(f1,x);
if x mod K<>0 then write(f2,x,' ');
end;
Close (f1);
Close (f2);
end;
begin
ClrScr;
tof1;
tof2;
end.
c принтером допишите.
спасибо за помощь ... но у меня ошибка file not found .
Цитата(die @ 8.06.2009 13:20)
file not found .
было assign (f1,' number.txt');
надо assign (f1,'number.txt');
имя файла начиналось с пробела.
Цитата(sheka @ 8.06.2009 17:46)
было assign (f1,' number.txt');
надо assign (f1,'number.txt');
имя файла начиналось с пробела.
спасибо все работает
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.