Помогите пожалуйста решить , завтра нужно уже сдать .
Записать в файл f последовательную доступа N натуральных чисел.Получить в другом файле последовательного доступа все компоненты файла f, кроме тех , которые кратны K . Вывести полученный файл на печать .
Автор: Ozzя 8.06.2009 11:56
А в чем проблема-то? Не знаете как писать/читать в/из файл(а)? Или не знаете, как оформить кратность К?
Автор: sheka 8.06.2009 15:32
а как выводить на печать?
Автор: Гость 8.06.2009 15:44
Цитата(sheka @ 8.06.2009 11:32)
а как выводить на печать?
не знаю как оформить кратность К .
Автор: Ozzя 8.06.2009 15:44
Цитата
а как выводить на печать?
На принтер?
uses printer; ... writeln(lst,'...'); ...
Автор: die 8.06.2009 15:45
Цитата(Ozzя @ 8.06.2009 10:56)
А в чем проблема-то? Не знаете как писать/читать в/из файл(а)? Или не знаете, как оформить кратность К?
не знаю как оформить кратность К .
Автор: Ozzя 8.06.2009 15:46
Цитата
не знаю как оформить кратность К .
... read(f1,num); if num mod K<>0 then write(f2,num); ...
Автор: die 8.06.2009 16:06
Цитата(Ozzя @ 8.06.2009 14:46)
... read(f1,num); if num mod K<>0 then write(f2,num); ...
Вот так сделал первую часть , но мне кажется что- то не то .
program gg; uses Crt; var fy: file of integer; num:integer; k,x:integer; begin ClrScr; assign (fy,'number.dat'); reset (fy); k:=0;
немагу разобраться куда вписывать кратность и печать.
Автор: sheka 8.06.2009 16:43
ничего не понятно, а зачем 2 части? и файлы же последовательного доступа, а не типизированые.
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 принтером допишите.
Автор: die 8.06.2009 17:20
спасибо за помощь ... но у меня ошибка file not found .
Автор: sheka 8.06.2009 18:46
Цитата(die @ 8.06.2009 13:20)
file not found .
было assign (f1,' number.txt'); надо assign (f1,'number.txt'); имя файла начиналось с пробела.
Автор: die 8.06.2009 19:00
Цитата(sheka @ 8.06.2009 17:46)
было assign (f1,' number.txt'); надо assign (f1,'number.txt'); имя файла начиналось с пробела.