Пример выполнения работы. 5.1 Что понимают под алгоритмом?

Контрольные вопросы

5.1 Что понимают под алгоритмом?

5.2 Какой алгоритм называется линейным?

5.3 Что такое система программирования?

5.4 Что понимается под термином TURBO-PASCAL?

5.5 Для чего выполняют компиляцию программы?

5.6 Как выполнить компиляция программы?

5.7 Какие ошибки могут быть обнаружены в программе?

5.8 Как исправить ошибки в тексте программы?

5.9 Какие основные блоки используются при составлении блок-схемы алгоритмы?

5.10 Каковы этапы решения задачи на ЭВМ?

5.11 Что понимается под стандартных вводом и стандартным выводом информации?

5.12 Каков формат оператора стандартного ввода информации?

5.13 Каков формат оператора стандартного вывода информации?

5.14 Какие форматы вывода информации вы знаете?

5.15 Как используются форматы вывода и для какой цели?

5.16 Какие функции модуля CRT наиболее часто используются в программах?

Задание:

Известны координаты двух точек на плоскости. Определить расстояние между этими точками.

Этап 1. Постановка задачи:

- Входной информацией является

координаты точки А - X1, Y1- вещ. числа,

координаты точки В - X2, Y2 – вещ. числа

- Выходной информацией является

Расстояние между двумя точками – DL – вещ. число

Этап 2.Формализация задачи

Этап 3. Блок-схема алгоритма на рис.3.

Рис.3. Блок-схема решения задачи

1 способ решения задачи:

Этап 4.Текст программы без использования форматов вывода и модуля CRT

VAR X1,Y1,X2,Y2: real; { объявление координат точек }

DL: real; { расстояние между точками }

Begin

Writeln(‘Введите координаты точки А -’);

Read(Х1, Y1);

Writeln(‘Введите координаты точки B -’);

Read(Х2, Y2);

DL:=sqrt(sqr(X2-X1)+sqr(Y2-Y1));

Writeln(‘Расстояние между точками - ’,DL);

End.

Этап 5.Контрольный пример – Вид экран представлен на рис. 4

Введите координаты точки А - 1 1

Введите координаты точки В - 2 2

Расстояние между точками - 1414213Е-6

Рис.4. Вид экрана с результатом решения задачи

2 способ решения задачи

Этап 4. Текст программы с использования форматов вывода и модуля CRT

USES CRT;

VAR X1,Y1,X2,Y2: real; { объявление координат точек }

DL: real; { расстояние между точками }

Begin

CLRSCR;

GOTOXY(10,5);

Write(‘*****************************************’);

GOTOXY(10,6);

Write(‘* Введите координаты точки А -’);

Read(Х1, Y1);

GOTOXY(45,6);

Write(‘*’);

GOTOXY(10,7);

Write(‘* Введите координаты точки B -’);

Read(Х2, Y2);

GOTOXY(45,7);

Write(‘*’);

GOTOXY(10,8);

Write(‘*****************************************’);

DL:=sqrt(sqr(X2-X1)+sqr(Y2-Y1));

GOTOXY(10,9);

Write(‘* Расстояние между точками - ’,DL:4:2);

GOTOXY(45,9);

Write(‘*’);

GOTOXY(10,10);

Write(‘*****************************************’);

End.

Этап 5. Контрольный пример (Вид экран представлен на рис. 5)

**************************************

* Введите координаты точки А - 1 1 *

* Введите координаты точки В - 2 2 *

**************************************

* Расстояние между точками - 1,41 *

**************************************

Рис.5. Вид экрана с результатом решения задачи

Дата добавления: 2014-12-17