Приложение г
(информационное)
Пример выполнения лабораторной работы 2
Задание: Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2).
Этапы решения задачи:
Математическая модель: расстояние на плоскости между двумя точками M1(x1,y1) и M2(x2,y2) высчитывается по формуле
.Алгоритм решения задачи приведен на рисунке Г.1.
Рисунок Г.1 – Блок-схема программы
Листинг программы на языке структурного программирования Паскаль.
program example1;
var x1, x2, y1, y2,d: real;
begin
writeln('Эта программа вычисляет расстояние между двумя точками на плоскости');
writeln('Введите координаты двух точек:');
write('x1= '); readln(x1);
write('y1= '); readln(y1);
write('x2= '); readln(x2);
write('y2 ='); readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln('d= ',d:4:2);
writeln('нажмите Enter для завершения работы программы');
readln;
end.
Результаты тестирования программы.
Приложение д
(информационное)
Условные операторы
Для решения сложных задач обработки информации программист должен составить алгоритм – подробное описание последовательности арифметических и логических действий, расположенных в строгом логическом порядке и позволяющем решить конкретную задачу. Алгоритм называется разветвленным, если он создает несколько ветвей, отличающихся друг от друга ходом вычислений.
При программировании разветвленных алгоритмов используются операторы условной и безусловной передачи управления, операторы выбора.
Оператор перехода.
В языке Pascal принят естественный порядок выполнения программы. Однако возникает необходимость изменения естественного выполнения операторов.
Для этого предназначен оператор перехода (безусловный оператор), который имеет следующую форму записи:
Goto Имяметки;
Метка представляет собой произвольный идентификатор оператора на который передается управление. Метка располагается перед помеченным оператором и отделяется от него двоеточием.
Метка должна быть объявлена в разделе описания меток.
Пример,
Program metka;
LABEL m100;
……
BEGIN
… if y<0 then goto m100
elsea:=x*ln(n);
m100: writeln('вывести на принтер');
…
END.
Инструкция условия if.
Выбор действия в зависимости от выполнения условия может быть реализован при помощи инструкций if и case.
Инструкция if используется в программе, когда в зависимости от некоторого условия надо выбрать одно из двух действий, или когда некоторое действие должно быть выполнено только при выполнении некоторого условия.
В общем виде инструкция условия if записывается:
Ifусловие
then
begin
{ инструкции, выполняемые, если условие истинно}
end
else
begin
{ инструкции, выполняемые, если условие ложно}
end;
На рисунке Д.1 представлена блок-схема, соответствующая инструкции if-then-else.
Рисунок Д.1 – Блок-схема, соответствующая инструкции if-then-else