Программирование разветвляющихся алгоритмов

Программирование линейных алгоритмов

Цель: Ознакомиться с системой программирования Pascal, получить основные навыки работы с ней, освоить приёмы создания, компиляции и исполнения программы, научиться создавать программы для решения линейных задач.

Порядок выполнения работы:

1) Запустите программу Pascal.

2) Введите текст программы решения задачи: Найти сумму, разность, произведение и частное двух целых чисел.

Program Primer;

Var A, B, S, R, P: integer;

Ch: real;

Begin

Writeln(‘Введите два целых числа‘);

Readln(A, B);

S:=A+B;

R:=A-B;

P:=A*B;

Ch:=A/B;

Writeln(‘Сумма чисел‘, A, ’и’, B, ’равна’, S);

Writeln(‘Разность чисел‘, A, ’и’, B, ’равна’, R);

Writeln(‘Произведение чисел‘, A, ’и’, B, ’равно’, P);

Writeln(‘Частное чисел‘, A, ’и’, B, ’равно’, Ch);

Readln;

End.

3) Откомпилируйте программу.

4) Запустите программу и проверьте правильность решения задачи на числах:

20 и 5; 36,6 и 6.

5) Исправьте ошибку ввода данных, введя числа 36 и 6. Замените операторы Writeln и Readln на Write и Read.

6) Рассмотрите, что изменилось в ходе выполнения программы. Покажите результат преподавателю.

7) Разработать программу нахождения значения следующего выражения:

№1 -a³c+b-2; №2 * -; №3 x arctg xy;

№4 - ^; №5 3 – 4x + (y -); №6 x - +;

№7 ln| (y -)(x -); №8 e^x – x – 2 + (1 + x)^2; №9;

№10; №11 e^x -; №12;

№13 +16xcos(xy) –2; №14 sin- sin; №15 x - ln x +.

8) Составьте программу решения задачи:

Вычислить корни квадратного уравнения ах² + bх + с = 0, заданного коэффициентами a, b и с (предполагается, что а ≠ 0).

9) Составьте программу решения задачи:

Дано трёхзначное число. Поменять местами вторую и третью его цифры.

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

10) Составьте программу решения задачи:

Дана длина окружности. Найти площадь круга, ограниченного этой окружностью.

Откомпилируйте программу.

11) Составьте программу решения задачи: Найти площадь кольца, внутренний радиус которого R₁, а внешний R₂ (R₁< R₂).

Откомпилируйте программу. Используя составленную программу, вычислите площадь кольца, внутренний радиус которого – 16 см, а внешний – 25 см.

12) Запишите полученные результаты в тетрадь.

13) Оформите отчет о проделанной работе, который должен содержать тему, цель работы, формулировки задач с решениями.

14) Выйдите из программы Pascal.

Лабораторная работа №3

Программирование разветвляющихся алгоритмов

Цель: научиться составлять программы для решения задач, содержащих условия, продолжить освоение работы в системе программирования Pascal.

Теоретические сведения:

Условный оператор используется для выполнения одного из двух возможных вариантов программы.

Формат записи команды ветвления:

if логическое_условие если логическое_условие верно

then оператор_1 то выполняется оператор_1,

else оператор_2; иначе оператор_2;

Перед else точка с запятой не ставится!

Формат полного оператора ветвления: Формат неполного оператора ветвления:
if <логическое выражение> if <логическое выражение>

then <оператор 1> then <оператор>;

else <оператор 2>;

Логическое выражение:

• Простой формой логического выражения является операция отношения:

– < меньше,

– > больше,

– <= меньше или равно,

– >= больше или равно,

– = равно,

– <> не равно.

• Сложные формы логических выражений составляются с использованием логических операций:

– not логическое отрицание (НЕ),

– and логическое умножение (И),

– or логическое сложение (ИЛИ),

– xor исключающее ИЛИ

• Порядок действий: Отрицание, умножение, сложение, операции отношений.

Операторные скобки:

• Если после слов then или else нужно выполнить не один оператор, а несколько, то эти операторы заключают в операторные скобки: begin … end

• Конструкция такого вида: Begin <последовательность операторов> end о тносится к составным операторам.

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

Порядок выполнения работы:

1) Запустите программу Pascal.

2) Составьте программу решения задачи: Дано целое число. Если оно является положительным, то прибавить к нему 1, в противном случае вычесть из него два. Вывести полученное число.

3) Составьте программу решения задачи: Даны три стороны одного треугольника и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, то есть имеют ли они равные площади.

4) Составьте программу решения задачи: Ввести два числа. Меньшее заменить полусуммой, а большее – удвоенным произведением.

5) Составьте программу решения задачи: Вычислить значение У при значении Х=:

6) Составьте программу решения задачи: Даны целые числа a и b. Определить, является ли число a делителем числа b.