Var X, s : Word;

Begin

ClrScr; очистка экрана

x := 534;

s := 0;

s := s + x Mod 10;

s := s + x Div 10 Mod 10;

s := s + x Div 10 Div 10 Mod 10;

WriteLn(‘s=’,s); вывод результата работы программы на экран

ReadLn;

End.

Комментарии

В любом месте программы, где разрешен пробел, можно записать пояснительный текст – комментарий. Он не обрабатывается компилятором и не включается в исполняемыйexe-файл. Признак профессионализма программиста – наличие развернутых комментариев в программе.

Комментарии нужны в любой программе, даже если программа не очень объемная и не очень сложная. Обычно молодые и начинающие программисты (первокурсники) весьма самоуверенно пренебрегают этой рекомендацией. И здесь не столь важно, что вашу программу без комментариев будет трудно понять постороннему человеку, например, преподавателю. Преподаватель поймет все. Гораздо весомее тот аргумент, что вы сами через некоторое время ее забудете, и вам придется потратить много времени, чтобы в ней снова разобраться. Как правило, даже выгодно переписать ее заново, но уже с комментариями.

Комментарии в программе выполняют информационную роль и в общем случае должны раскрывать назначение программы как в целом, так и отдельных ее частей, а также должны описывать информационную модель решаемой задачи, акцентируя внимание на используемые математические методы и алгоритмы. В то же время во многих практических случаях достаточно будет ограничиться расшифровкой обозначений, инструкций по подготовке и вводу исходных данных, описанием получаемых данных.

Комментарием считается последовательность произвольных фраз, заключенных в символы {. . .} или (* . . .*):

{ это комментарий }

(* это комментарий *)

Поместить комментарий можно между любыми двумя соседними операторами программы или в конце оператора:

x:=x+1;{увеличиваем счетчик на единицу}

Комментарии можно использовать при отладке программы, временно исключая из текста программы те или иные участки с помощью таких скобок.

Ввод данных

Программы на алгоритмических языках обычно составляются таким образом, чтобы они могли быть использованы при различных наборах исходных данных. При этом исходные данные не задаются в программе операторами присваивания, а помещаются отдельно от программы, например, в файле на внешнем носителе, а в самой программе предусматривается возможность ввода нужных значений с устройств ввода-вывода (дисков, клавиатуры) в оперативную память и вывода результатов вычислений из памяти на внешние носители информации.

Под вводомданных понимается передача информации из внешних устройств в оперативную память компьютера.

Ввод информации в программе осуществляется операторами:

Read(x₁, x₂, x₃, …);

ReadLn(x₁, x₂, x₃, …);

где x₁, x₂, x₃, …- список ввода – перечень имен переменных, значения которых вводятся.

Пример:ReadLn(n, m, r); - ввести значения переменных

n, m, r.

Операторы ввода позволяют организовать диалоговый (интерактивный) режим работы компьютера – при их исполнении выполнение программы останавливается, и ожидается ввод данных.

Пользователь должен ввести с клавиатуры необходимое количество данных в соответствии с типами переменных, перечисленных в операторе ввода (чисел, символов, строк):

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

1.5 -2.21 5 10.6е-12

• если переменные символьноготипа, то при вводе одной строкой их значения записываются без апострофов и каких бы то ни было разделителей (пробелов или запятых), которые в этом случае будут восприниматься как символы,

• строкивводятся в соответствии с описанной длиной: если вводимая строка длиннее описанной, то она обрезается, если меньше, то пробеламинедополняется,

• значения переменных логическоготипанельзявводить с клавиатуры,

• в любом случае значения переменных можно вводить по одному в строке:

1.5

-2.21

5

10.6е-12

• после выполнения оператора Readкурсор на новую строку не переводится, а оператораReadLn- переводится в начало новой строки и очищаетсябуфер ввода,

• оператор ReadLnбез списка ввода останавливает выполнение программы до тех пор, пока не будет нажата клавишаENTER.