Наименьшее общее кратное из файла Опции

[dog]

Задача:

С клавиатуры вводится N целых чисел (из интервала [10; 100]).

Требуется

1. записать все введенные числа в файл

2. открыть файл и вывести на экран все записанные в него числа (в строку)

3. найти наименьшее общее кратное компонентов, в записи которых нет цифры k.

примечание: массивы в программе не использовать

PROGRAM PRP1;

FUNCTION NOD (x,y:INTEGER):INTEGER;
BEGIN
   IF x<>0 THEN NOD:=NOD(y MOD x, x) ELSE NOD:=y;
END;

function NOK(x,y:INTEGER):INTEGER;
BEGIN
    NOK:=(x DIV NOD(x,y))*y;
END;

VAR f: FILE OF INTEGER; 
i, 
x1, x2,
m,
k, 
n 
:INTEGER;


BEGIN
{----------------------------1-----------------------}
   REPEAT
   WRITE('Имя файла - ');
   READLN(name);
   ASSIGN(f, name); 
   {$I-} 
   REWRITE(f); 
   {$I+} 
   UNTIL IOResult=0; 
   WRITE('Начинаем ввод последовательности');
   WRITELN('  (конец последовательности > 10 или < 100)');
   WHILE (true) DO
   BEGIN
      WRITE('Значение = ');
      READLN(n);
      IF (n <=10) OR (n >=100) THEN BREAK;
      WRITE(f,n);
   END;
   CLOSE(f);
{-----------------------------2------------------------}
WRITELN(' В файле были написаны числа ');
RESET(f);
WHILE NOT EOF(f) DO
   BEGIN
      READ(f,n);
      WRITE(n, ' ');
   END;
WRITELN;

{----------------------------3--------------------------}
WRITE('Введите цифру k - ');
READLN(k);
WRITE('Числа, не содержащие k - ');
SEEK(f, 0);
FOR i:=0 TO FileSize(f)-1 DO
BEGIN
    READ(f,n);
    x1:= n DIV 10;
    x2:= n MOD 10;
    IF (x1<>k) AND (x2<>k)  THEN
    BEGIN
       WRITE(n, ' ');
       

    END;
END;
WRITELN;
END.

Первые два пункта вообще никаких проблем, выделить числа не содержащие k тоже никакой проблемы, а вот найти наименьшее общее кратное без создания массива ???

[sheka]

Можно так:

//...
CurrNOK:=1; //просто потому, что меньше  10 
FOR i:=0 TO FileSize(f)-1 DO
BEGIN
    READ(f,n);
    x1:= n DIV 10;
    x2:= n MOD 10;
    IF (x1<>k) AND (x2<>k)  THEN
    BEGIN
       write(n,' ');
       if CurrNOK<10 then
           CurrNOK:=n
       else
           CurrNOK:=NOK(CurrNOK,n);
    END;
END;
close(f); //Это не забыл? 
WRITE('NOK = ', CurrNOK);
readln;
END.

все работает чики-пики.

Сообщение отредактировано: sheka - 11.09.2010 21:48

[Lapp]

CurrNOK:=1; //просто потому, что меньше 10

Sheka, что ты имел в виду под этим комментом? при чем тут <10?


Добавлено через 3 мин.

все работает чики-пики.

Держи ложку дегтя .

числа: 2, 3
цифра k=0

твой ответ, если не ошибаюсь, будет равен NOK=1?

Добавлено через 2 мин.
нет, дела еще хуже.. ((

числа: 1,2,3,4,5,6,7,8,9
k: 1

NOK=9 ???

Зачем вообще проверка на <10 ?