1) Структура - Program <имя программы>; Var: <имена переменных> : <тип переменных>; (Раздел описания. В нём описываются имена переменных и их тип.) Begin ...(Раздел операторов. Ввод данных, последовательность различных команд и вывод данных.) End. 2)Оператор присваивания. Преобразование данных, т.е. присвоение переменной нового значения. Имеет вид: <Имя переменной>:=<арифметическое выражение>; Например: x:=256; (переменной 'x' присваивается значение 256) x:=a; (переменной 'x' присваивается значение переменной 'a') x:=x+1; (значение переменной 'x' увеличивается на единицу). 3)хм... как в математике.=) 4)Условный оператор. Неполная форма: If <условие> then <действие>; Полная форма: If <условие> then <действие1> else <действие2>;
Суть программы Input (A[255], input.txt); // Вводим из файла строку в массив А[255] N = 0; NMax = 0; // Счетчик удачных дней M = 0; // Счетчик длины массива (он может быть и меньше 255) Цикл по i от 1 до 255 If (A[i] <> "У") and (A[i] <> "Н") then M = i - 1; // Как только мы встретили значение, не равное ни У ни Н, так считаем это концом. Конец цикла по i If A[1] = "У" then N = 1 // Проверяем 1-ую ячейку Цикл по i от 1 до M-1 if (A[i] = "Н") and (A[i+1] = "У") then N = 1; // Начало серии У if (A[i] = "У") and (A[i+1] = "У") then N = N + 1; // Продолжение серии У if (A[i] = "У") and (A[i+1] = "Н") then // Окончание серии У if N >= NMax then NMax = N; // Проверяем длину серии end if Конец Цикла по i Output (output.txt, NMax) // вывод максимальной длины серии в файл. Конец программы
