Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Laboratornaya_rabota_1 (3).docx
Скачиваний:
1
Добавлен:
01.05.2025
Размер:
116.44 Кб
Скачать

Порядок выполнения

  1. Если это необходимо, зайти в Windows.

  1. Загрузить систему программирования Borland Pascal.

 Пуск  ►(Мой) Компьютер,  Apps (G:),  BP,  BIN,  BP (или  Borland Pascal,  ОК , найти свою папку,  ОК ,  ОК ).

  1. Закрыть окно и создать новый пустой файл.

Window ►Close (Окно ►Закрыть), File ►New (Файл ►Новый).

  1. Набрать программу на языке Pascal для решения следующей задачи № 1:

Вычислить .

Набрать 1-ю программу (см. примеры программ).

  1. Задать диск и папку для хранения файлов.

File ►Change dir (Файл ►Сменить директорию),  Drives,  (H:),  на папках преподавателя и группы,  на своей папке,  ОК .

  1. Сохранить программу в файле.

File ►Save as (Файл ►Сохранить как), ввести имя файла,  ОК .

  1. Проверить программу на ошибки (т.е. сделать компиляцию программы).

Compile ►Compile (Компиляция ►Компилировать) (или [Alt]+[F9]), , исправить ошибку, далее аналогично.

  1. Запустить программу на выполнение и задать исходные дс анные ( и ; и ).

Run ►Run (Выполнение ►Выполнить) (или [Ctrl]+[F9]), ввести 1‑е число, |__|, ввести 2-е число, , далее аналогично.

  1. Просмотреть результат, показать преподавателю и записать полученный ответ.

Debug ►User Screen (Отладка ►Экран пользователя) (или [Alt]+[F5]), записать информацию, .

  1. Сохранить ещё раз программу.

File ►Save (Файл ►Сохранить) (или [F2]).

  1. Аналогично набрать программу для решения задачи № 2:

Ввести и вывести значения переменных a, b, с с использованием разных операторов ввода и вывода.

Выполнить п. 3, набрать 2-ю программу.

  1. Изменить программу так, чтобы на экране отображался пояснительный текст при вводе и выводе. Далее получить ответ в задаче № 2 (при ; ; ).

Изменить программу, выполнить пп. 5-10.

  1. Аналогично набрать программу для решения задачи № 3:

Найти величину , где катет треугольника , а объем шара .

Выполнить п. 3, набрать 3-ю программу.

  1. Изменить программу так, чтобы на экране ответ занимал 7 позиций c 2 цифрами в дробной части. Далее получить ответ в задаче № 3 (при ; ; ).

Изменить программу, выполнить пп. 5-10.

  1. Выйти из системы программирования Borland Pascal.

File ►Exit (Файл ►Выход) (или [Alt]+[X]).

Примеры программ на языке Pascal

1-я программа

Объяснение каждой строки

Program Lab1a;

Программа по имени lab1a

Var

Раздел описания переменных

a,b,c:real;

Переменные a, b, c – вещественного типа

Begin

Начало раздела операторов (или начало составного оператора)

writeln('Введите a,b');

Вывод пояснительного текста 'Введите a,b'

read(a,b);

Ввод переменных a, b

c:=a+b;

Переменной c присваивается значение выражения a+b

writeln('c=',c:10:3);

Вывод пояснительного текста 'c=' и числового значения переменной c, занимающего 10 позиций, в т.ч. 3 цифры после запятой

End.

Конец раздела операторов и программы

2-я программа

3-я программа

Program Lab1b;

Program Lab1c;

Var

Var

a,b,c:integer;

a,b,c,R,V,F:real;

Begin

Begin

read(a);

writeln('Введите b,c,R');

readln(b);

read(b,c,R);

read(c);

a:=sqrt(sqr(c)-sqr(b));

write(a);

V:=4/3piRRR;

writeln(b);

F:=(exp(0.2ln(V))+c)/a;

write(c);

writeln('F=',F);

End.

End.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]