Программа не компилируется, не могу найти причину

10.10.2013, 18:43. **Показов** 485. **Ответов** 0

Author24 — интернет-сервис помощи студентам

Добрый вечер, такая вот проблемка появилась, почти решил задачку :

"Лампочки
Имеется ряд из N лампочек, которые пронумерованы от 1 до N. Изначально ни одна из лампочек не горит. Далее происходит K последовательных линейных инверсий этого ряда ламп. Под линейной инверсией понимается инверсия каждой P-й лампочки в ряде. Например, если P=3, то произойдет инверсия 3й, 6й, 9й и т.д. лампочек.

Требуется определить: сколько горящих лампочек останется после реализации всех заданных линейных инверсий?

Входные данные

В первой строке входного файла INPUT.TXT заданны числа N и K – число лампочек и число линейных инверсий. Вторая строка состоит из K целых чисел Pi, задающих период данных инверсий. (1 <= N <= 109, 1<=K<=100, 1 <= Pi <= 50)"

Собственно такой вот код получился

Pascal

Var
   i, j, m : integer;
   T : Text;
   
 
Function input_k(k : integer) : integer;
Begin
{
Assign(T, 'input.txt');
reset(T);
read(T, k);
close(T);
}
readln(k);
input_k := k;
End;
 
Function input_n(n : integer) : integer;
Begin
{
Assign(T, 'input.txt');
reset(T);
read(T, n);
close(T);
}
Readln(n);
input_n := n;
End;
 
 
 
Procedure process;
 
Const
     N = input_n(0);
     K = input_k(0);
 
Var
   Inv : array [1..K] of integer;
   S : array [1..N] of boolean;
   
Begin
{
Assign(T, 'input.txt');
reset(T);
Readln();
}
for i := 1 to K do Readln(Inv[i]);
//Close(T);
 
for i := 1 to N do S[i] := False;
 
 
for m := 1 to K do
begin
i := Trunc(N Div Inv[m]);
j := Inv[m];
 
while i <> 0 do
begin
S[j] := not S[j];
j := j + Inv[m];
i := i - 1;
end;
end;
 
j := 0;
 
for i := 1 to N do
begin
if (S[i]) then j := j + 1;
end;
 
Writeln(j);
 
End;
 
Begin
process;
End.

При запуске всё нормально, НО при попытке ввести работу с текстом(assing, reset...), компилятор начинает "компилировать", но в итоге ни чего не выдает, компиляция идет и идет... Делал работу в ABC, потом подумал что проблема может быть в самом ABC, попробывал в Turbo, он мне тоже отказал при попытке присвоить константе значение функции(Error 133 : Cannot evaluate this expression). И в итоге я оказался в тупике...
Ребята кто по умнее посмотрите текст, программирую не так давно, но считаю что результаты уже есть, если найдете ошибку сообщите или хотя бы попробуйте запустить в своем компиляторе)) Заранее благодарю

	10.10.2013, 18:43