WinRAR ZIP archi / 2011_Лабораторные по инф_паскаль_Ч1
.pdfprogram N_16_4;
var
i: integer; {описание переменных}
simv: char; { Тип char (символьный). Значения этого типа занимают 1 байт и представляют собой символы в кодировке Windows.}
begin
simv := 'Д';
while simv = 'Д' do begin
write('******************************************** *');
writeln;
writeln('Вывести еще?(Д)'); readln(simv);
end;
writeln('СТОП. Работа окончена'); end.
Стиль программирования
Работая над программой, программист, особенно начинающий, должен хорошо представлять, что программа, которую он разрабатывает, предназначена, с одной стороны, для пользователя, с другой — для самого программиста. Текст программы нужен прежде всего самому программисту, а также другим людям, с которыми он совместно работает над проектом. Поэтому для того, чтобы работа была эффективной, программа должна быть легко читаемой, ее структура должна соответствовать структуре и алгоритму решаемой задачи. Как этого добиться? Надо следовать правилам хорошего стиля программирования. Стиль программирования — это набор правил, которым следует программист (осознано или потому, что "так делают другие") в процессе своей работы. Очевидно, что хороший программист должен следовать правилам хорошего стиля.
Хороший стиль программирования предполагает:
∙использование комментариев;
∙использование несущих смысловую нагрузку имен переменных, процедур и функций;
∙использование отступов;
∙использование пустых строк.
Следование правилам хорошего стиля программирования значительно уменьшает вероятность появления ошибок на этапе набора текста, дела-
41
ет программу легко читаемой, что, в свою очередь, облегчает процессы отладки и внесения изменений.
Контрольные вопросы
1.Какие данные необходимы для организации цикла?
2.Что такое индексная переменная цикла?
3.Операторы цикла for и порядок их выполнения.
4.Что такое зацикливание? Как прервать выполнение программы при зацикливании?
Задачи
1.Вычислить сумму первых 10-ти натуральных четных чисел.
2.Вычислить произведение первых 10-ти натуральных чисел.
3.Составить таблицу умножения для числа 12.
4.Вычислить сумму квадратов первых 7-ми натуральных чисел.
5.Напечатать таблицу значений функции Y = x3 при изменении x от 2 до 12 с шагом 2.
6.Вычислить произведение натуральных чисел, начиная от 12 до
18.
7.Используйте оператор for с отрицательным шагом для вывода на одну строку экрана целых чисел от 10 до 1.
8.Используйте оператор цикла WHILE для вывода на одну строку экрана всех четных чисел между 1 и 20.
9.Возвести в 7-ю степень число 3, не используя операцию возведения в степень (использовать REPEAT).
10.Дано целое четырехзначное число. Используя операции div и mod, найти сумму его цифр.
11.Дано целое четырехзначное число. Используя операции div и mod, найти произведение его цифр.
Справка
x div y - результат целочисленного деления x на y. Точнее, x div y = x / y, округленное до ближайшего целого по направлению к 0;
x mod y - остаток от целочисленного деления x на y. Точнее, x mod y = x - (x div y) * y.
procedure Inc(var i: integer);
Увеличивает значение переменной i на 1 procedure Inc(var i: integer; n: integer);
Увеличивает значение переменной i на n procedure Dec(var i: integer);
Уменьшает значение переменной i на 1
42
Литература
Иванова Г.С. Основы программирования: Учебник для вузов. - 2-е изд., перераб. и доп. - М.: Изд-во МГТУ им. Н.Э. Баумана, 2002. ~ 416 с : ил.
43