Question

Нужно описать,каждую строчку этой программы Program P1; type Mytype=set of char; var m,n,g:Mytype; w,s: string; i,k:integer; begin m:=['A'..'F']; n:=['X'..'Z']; g:=m+n; writeln('введите строку'); readln(s); writeln('новая строка'); for i:=1 to length(s) do if (s[i] in g) then write(s[i]); writeln; end.

Answer 1

Как-то накидал объяснение, думаю разберётесь. C:

Answer 2

Я попробую ответить подробно. Вот описание каждой строчки этой программы:

- Program P1; - это объявление имени программы, которое должно совпадать с именем файла, в котором она хранится. - type Mytype=set of char; - это определение нового типа данных Mytype, который является множеством символов. - var m,n,g:Mytype; - это объявление трех переменных типа Mytype, которые будут использоваться для хранения множеств символов. - w,s: string; - это объявление двух переменных типа string, которые будут использоваться для хранения строк. - i,k:integer; - это объявление двух переменных типа integer, которые будут использоваться для хранения целых чисел. - begin - это начало основного блока программы, в котором выполняются все инструкции. - m:=['A'..'F']; - это присваивание переменной m значения множества, состоящего из символов от A до F включительно. - n:=['X'..'Z']; - это присваивание переменной n значения множества, состоящего из символов от X до Z включительно. - g:=m+n; - это присваивание переменной g значения объединения множеств m и n, то есть множества, содержащего все символы из m и n. - writeln('введите строку'); - это вывод на экран сообщения 'введите строку', которое предлагает пользователю ввести строку с клавиатуры. - readln(s); - это чтение строки, введенной пользователем, и присваивание ее значения переменной s. - writeln('новая строка'); - это вывод на экран сообщения 'новая строка', которое предваряет вывод измененной строки. - for i:=1 to length(s) do - это начало цикла for, который повторяется от 1 до длины строки s, и на каждой итерации присваивает переменной i значение текущего номера символа в строке s. - if (s[i] in g) then - это условный оператор if, который проверяет, принадлежит ли символ s[i] множеству g, и если да, то выполняет следующую инструкцию. - write(s[i]); - это вывод на экран символа s[i] без перевода строки. - writeln; - это вывод на экран пустой строки, то есть перевод строки. - end. - это конец основного блока программы и всей программы.

Надеюсь, это поможет вам понять программу. Если у вас есть еще вопросы, я с радостью на них отвечу.