Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Инф(Лаб)ХТФ(2).doc
Скачиваний:
36
Добавлен:
11.04.2015
Размер:
608.26 Кб
Скачать

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

  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 позиций c2 цифрами в дробной части. Далее получить ответ в задаче № 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.