PascalABC, возможно ошибка

[Ильгиза]

PascalABC, возможно ошибка

необходимо распечатать множество,удовлетворяющее указанному условию и подсчитать количество элементов в полученном массиве.
Даны n целых чисел( числа вводятся с клавиатуры или с помощью датчика случайных чисел). Напечатать в порядке возрастания те из них, которые удовлетворяют условию:
делятся нацело на 3 и 8.

сделала так, но в своем решении не уверена(
Помогите разобраться!

program upr1;
const n =20;
type mn=set of 1..n;
var n3,n8:mn;
k,c:integer;
procedure vv(m:mn);
var i:integer;
begin
for i:=1 to n do
if i in m then begin
write(i:3);
k:=k+1;
end;
writeln;
end;
begin
n3:=[];
n3:=[];
for c:=1 to n do
begin
if c mod 3 = 0 then n3:=n3+[c];
if c mod 8 = 0 then n8:=n8+[c];
end;
writeln('числа кратные 3:');
vv(n3);
writeln('числа кратные 8:');
vv(n8);
writeln('количество элементов во множестве:', k);
end.

 

[Long Cat]

Привел в читаемый вид:

program upr1;
   const 
      n =20;
type 
  mn=set of 1..n;
 var 
  n3,n8:mn;
  k,c:integer;
procedure vv(m:mn);
   var 
    i:integer;
begin
   for i:=1 to n do
     if i in m then 
     begin  
        write(i:3);
        k:=k+1;   
     end;
     writeln;
end;
begin
   n3:=[];
   n3:=[];
   for c:=1 to n do
   begin
     if c mod 3 = 0 then n3:=n3+[c];
     if c mod 8 = 0 then n8:=n8+[c];
   end;
   writeln('числа кратные 3:');
   vv(n3);
   writeln('числа кратные 8:');
   vv(n8);
   writeln('количество элементов во множестве:', k);
end.

Переменная k нигде не инициализирована - ошибка.
Использование глобальной переменной k - стилистический минус.
Тестировали программу?

 

[Ильгиза]

Спасибо! Да тестировала!Но я не уверена, что мое решение соответствует условию задачи.

 

[Long Cat]

Не соответствует. Требуется вывести числа, которые делятся на 3 и на 8 одновременно.

 

[Vladimir_S]

сделала так, но в своем решении не уверена( Помогите разобраться!

Попробую.
В принципе вроде всё правильно, и программа работает, вот только...
1. Вам обязательно использовать тип "множество"? Дело в том, что исходная задачка решается безо всяких множеств, через массивы, куда как проще и короче. А так это из серии "достать правое ухо через-под левое колено". Можно, конечно, и так.
2. А вот это существеннее. На самом деле, Вы решили не совсем ту задачу, которая поставлена. Ведь в задаче говорится о вводе некоторого количества чисел либо с клавиатуры, либо через генератор случайных чисел, а Вы вместо этого просто берёте последовательность от 1 до 20. Так, конечно, проще, но в задаче требуется другое. И как такую задачу решать через множества я, откровенно говоря, не представляю.
P.S. Ну и замечания, высказанные LongCat, безусловно, тоже справедливы.

 

[Vladimir_S]

Переменная k нигде не инициализирована - ошибка.

Ну, не совсем. Насколько я знаю, в этом ублюдочном АВС обнуление исходных значений переменных зашито. Включая даже строки.

 

[Long Cat]

Насколько я знаю, в этом ублюдочном АВС обнуление исходных значений переменных зашито. Включая даже строки.

, в этом ублюдочном АВС

ублюдочном

Именно так.

 

[Ильгиза]

Да, задачу нужно решить с множествами! И как это сделать я и сама не знаю(((
Как я знаю, вводить множества с клавиатуры непосредственно нельзя.