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

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

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

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

Работа в системе программирования Turbo Pascal:

· Активация меню: Клавиша <F10> (щелчок левой кнопкой мыши на нужном пункте меню)

· Ввод текста: текст вводится на английском языке. После ввода каждой строки нажимается клавиша Enter. Смена алфавита: на русский язык - <Ctrl>+<Shift>(справа), на английский язык - <Ctrl>+<Shift>(слева)

· Компиляция: меню Compile, команда Compile (клавиши <Alt>+<F9>)

· Запуск программы: меню Run, команда Run (клавиши <Ctrl>+<F9>)

· Открытие нового окна: Каждая программа создается в новом окне. Чтобы открыть новое окно, выберите меню File, команду New

· Переключение между окнами: Клавиши <Alt>+<номер окна>

· Открытие сохраненной программы: меню File, команда Open (клавиша<F3>). В открывшемся окне диалога в поле «Имя» введите полное имя нужного файла. Выберите команду Open.

· Выход из программы: меню File, команда Exit (клавиши <Alt>+<X>).

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

1) Запустите программу Turbo 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) Выйдите из программы Turbo Pascal.

Дата добавления: 2015-06-26