Нужны комментарии ко всем строчкам, тоесть краткое описание строчек что там делается
uses crt;
Var M:set of 1..50;
x,i:integer;
Begin
M:=[];
For i:=1 to 10 do
Begin
Writeln('введите ','i');
readln(x);
M:=m+[x];
end;
end.
Что же вы никто множество-то не узнали?
С точки зрения синтаксиса всё нормально. Ненормально с точки зрения логики. Множество вводится, а дальше что?
uses crt; {Подключение модуля crt, который в программе не используется. Эту строку удалить! }
Var M:set of 1..50; {Объявление множества чисел от 1 до 50}
x,i:integer; {Объявление целочисленных переменных x и i}
Begin {Начало программы}
M:=[]; {Инициализация пустого множества}
For i:=1 to 10 do {Цикл с параметром. Выполняется 10 раз}
Begin {Начало цикла}
Writeln('введите ','i'); {Вывод в консоль подсказки "Введите (номер числа) "}
readln(x); {Ввод целого числа с клавиатуры}
M:=m+[x]; {Включение введенного числа в множество M}
end; {Конец цикла}
end. {Конец программы}
не вижу связи с алгоритмами
строчка M:=m+[x]; выглядит очень подозрительно. Может я чего-то не помню в синтаксисе бейсика, но на мой взгляд это хрень
так это паскаль, но все равно написана херня, с точки зрения синтаксиса
uses crt; // юзать стандартную либу ( это для вывода строк в консоль дальше )
Var M:set of 1..50; //объявление переменных с ииннициализацией
x,i:integer; //объявление переменных
Begin // точка входа
M:=[]; //инициализация M ( сомнительно очень, надо бы переделать на динамическую!! ! ТАК НЕ СТОИТ ДЕЛАТЬ, БУДЕТ ПЕРЕВЕДЕЛЕНИЕ ПАМЯТИ НА КАЖДОМ ЦЫКЛЕ ) короче размер надо сразу !!!
For i:=1 to 10 do //цикл for
Begin .. начало цикла
Writeln('введите ','i'); //вывод в консоль
readln(x); //ввод данных ( остановка на ввод с консоли )
M:=m+[x]; // наверное M := x;
end; // конец цыкла
end. // конец сегмента кода
uses crt; // имя модуля
Var M:set of 1..50; //объявление переменных
x,i:integer; //объявление переменных
Begin //открытие операторной скобки
M:=[]; //инициализация M
For i:=1 to 10 do //цикл for
Begin //операторные скобки цикла
Writeln('введите ','i'); //вывод на экран
readln(x); //ввод данных
M:=m+[x];
end; //закрытие операторной скобки begin
end. //конец подуля
P.S. Проверь код.
⇢