Порядок выполнения работы. If M > N Then M := M - N Else N := N - M;

End

Begin

Else

Begin

Begin

While M <> N Do

If M > N Then M:= M - N Else N:= N - M;

K:= M

End;

Write ('Введите числители и знаменатели дробей:');

ReadLn (A, B, C, D);

E:= A * D - B * C;

F:= B * D;

If E = 0 Then WriteLn(E)

Nod(Abs(E), F, G);

E:= E Div G;

F:= F Div G;

WriteLn ('Ответ: ', E, '/', F)

End.

4. Результаты расчетов.

Введите числители и знаменатели дробей:

Ответ: -2/35

1. Изучите теоретический материал.

2. Разработайте алгоритмы указанных задач.

3. Запишите разработанные алгоритмы на языке программирования Pascal.

4. Отладьте программы в интегрированной среде разработки Pascal.

5. Оформите отчет о проделанной работе.

6. Ответьте на контрольные вопросы.

задания

1. Напишите программу, состоящую из трех процедур и основной программы. Первая процедура организует ввод двух целых чисел X и Y, вторая проверяет их сумму, третья выводит результат. Используйте эти процедуры в основной программе. Используйте X и Y как глобальные переменные.

2. Для заданного х составить алгоритм вычисления значения выражения:

В программе использовать процедуру.

Форма отчёта: Отчет выполняется в тетрадях по практическим работам в письменном виде. Программа отлаживается в IDE Borland Pascal и в виде файлов копируется на сетевой диск.

Содержание отчета:

1. Тема работы.

2. Цель работы.

По каждому из заданий:

3. Условие задачи.

4. Постановка задачи.

5. Тестовые примеры.

Система оценки: двухбалльная.

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

1. Для чего нужны подпрограммы?

2. Существуют ли подпрограммы без параметра?

3. Какие параметры называются фактическими?

4. Каково соответствие между фактическими и формальными параметрами?

5. Как осуществляется вызов процедуры?

Список использованной литературы

1. Голицина О.Л., Попов И.И. Основы алгоритмизации и программирования: Учебное пособие. - М.: Форум: Инфра-М, 2002.

2. Программирование на языке Паскаль: задачник / под ред. Усковой О.Ф. – СПб.: Питер, 2005.

Дата добавления: 2014-11-16