Файл Опции

[die]

Помогите пожалуйста решить , завтра нужно уже сдать .

Записать в файл f последовательную доступа N натуральных чисел.Получить в другом файле последовательного доступа все компоненты файла f, кроме тех , которые кратны K . Вывести полученный файл на печать .

[Ozzя]

не знаю как оформить кратность К .

  ...
  read(f1,num);
  if num mod K<>0 then
    write(f2,num);
  ...

[die]

  ...
  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.

А вот во второй части не знаю что делать .

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]

ничего не понятно, а зачем 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 принтером допишите.

Сообщение отредактировано: sheka - 8.06.2009 14:47