Запуск программы на выполнение

Нажмите Ctrl +F9.

При этом будет произведена компиляция программы т. е. проверка правильности набора и использования операторов. Если текст ввели правильно, то на экран будет выведено сообщение об успешности компиляции "Compile successful" и программа запустится на выполнение. Если появится красная надпись, следовательно, в программе есть ошибки. Курсор будет находиться в месте предполагаемой ошибки. Проверьте и исправьте ошибку, затем повторите запуск.

Просмотр результатов выполнения программы

Результат выполненной программы можно увидеть нажав комбинацию клавиш - Alt + F5. Вернуться в окно редактирования клавиша Esc.

Сохранение программы

• Активизируйте верхнее меню – F10. Выберите пункт меню File, затем пункт "Save as…" нажимая клавишу Tab перейти на свой диск А: и записать имя файла.

• Клавиша F2. Нажимая клавишу Tab перейти на свой диск А: и записать имя файла.

Открытие ранее сохраненной программы

• Активизируйте верхнее меню – F10. Выберите пункт меню File, выберите пункт подменю Open. Перейдите на свой диск А: выберите ранее сохраненный файл.

• Клавиша F3. Перейдите на свой диск А: выберите ранее сохраненный файл.

Завершение работы

• Активизируйте верхнее меню – F10. Выберите пункт меню File, выберите пункт подменю Exit.

• Комбинация клавиш Alt – X.

2. Выполните следующие упражнения:

Задания уровня 1

Упражнение 1. Создать программу, вычисляющую длину гипотенузы c и величины двух углов α и β прямоугольного треугольника, если заданы длины двух его катетов a и b. Значения катетов вести с клавиатуры.

1. Наберите текст программы:

Program Pr_1; {Заголовок программы Pr_1}

var {Раздел описаний}

a, b, c, alf, bet : real; {Переменные a, b, c, alf, bet - вещественные}

Begin {Тело программы}

Write('a='); {Вывод запроса на экран}

Read (a); {Ввод значения a с клавиатуры}

Write('b='); {Вывод запроса на экран}

Read (b); {Ввод значения b с клавиатуры}

c:=sqrt(a*a+b*b); {Вычисление гипотенузы c}

alf:=arctan(a/b); {Вычисление угла alf }

bet:=arctan(b/a); {Вычисление угла bet }

Writeln('c=', c:6:2); {Вывод ответа}

Writeln('Радианы'); {Вывод ответа: углы в радианах}

Writeln('alf=', alf:6:2, 'bet=', bet:6:2);

End. {Конец программы}

2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5

4. Сохраните программу на своем диске: <F2> A:\P1PR1

Упражнение 2. Закрепление навыков набора и редактирования текста.

1. Отредактируйте текст программы, добавив вывод значений углов в градусах:

Writeln('Градусы'); {Вывод ответа: углы в градусах}

Writeln('alf=', alf*180/ pi :3:0, 'bet=', bet*180/ pi :3:0);

2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5

4. Сохраните программу на своем диске: <F2> A:\P1PR2