- •Введение Алгоритмизация
- •Автоматизация математических вычислений на компьютере
- •Лабораторная работа № 1. Программирование последовательных вычислений Элементы языка Pascal
- •Операции и функции в языке Pascal
- •Порядок выполнения
- •Примеры программ на языке Pascal
- •Дополнительное задание
- •Контрольные вопросы
- •Лабораторная работа № 2. Программирование разветвлений Алгоритм линейной структуры
- •Алгоритм разветвляющейся структуры
- •Порядок выполнения
- •Примеры задач
- •Дополнительное задание
- •Контрольные вопросы
- •Лабораторная работа № 3. Программирование циклов Алгоритм циклической структуры
- •Порядок выполнения
- •Примеры задач
- •Дополнительное задание
- •Контрольные вопросы
- •Лабораторная работа № 4. Программирование задач с одномерными массивами Одномерные массивы
- •Порядок выполнения
- •Пример задачи
- •Дополнительное задание
- •Фрагменты вычисления характеристик одномерного массива
- •Фрагменты операций с одномерными массивами
- •Контрольные вопросы
- •Лабораторная работа № 5. Программирование задач с двумерными массивами Двумерные массивы
- •Порядок выполнения
- •Пример задачи
- •Дополнительное задание
- •Фрагменты вычисления характеристик строк и столбцов двумерного массива
- •Фрагменты операций с двумерными массивами
- •Квадратные матрицы
- •Контрольные вопросы
- •Лабораторная работа № 6. Программирование процедур и функций Подпрограммы
- •Порядок выполнения
- •Дополнительное задание
- •Примеры задач
- •Контрольные вопросы
- •Лабораторная работа № 7. Программирование структурных типов данных Файлы
- •Порядок выполнения
- •Примеры задач
- •Дополнительное задание
- •Контрольные вопросы
Порядок выполнения
|
– |
|
Пуск ►(Мой) Компьютер, Apps (G:), BP, BIN, BP (или Borland Pascal, ОК , найти свою папку, ОК , ОК ). |
|
Window ►Close(Окно ►Закрыть),File ►New(Файл ►Новый). |
Вычислить . |
Набрать 1-ю программу (см. примеры программ). |
|
File ►Change dir(Файл ►Сменить директорию),Drives,(H:),на папках преподавателя и группы,на своей папке, ОК . |
|
File ►Save as(Файл ►Сохранить как), ввести имя файла, ОК . |
|
Compile ►Compile(Компиляция ►Компилировать) (или[Alt]+[F9]),, исправить ошибку, далее аналогично. |
|
Run ►Run(Выполнение ►Выполнить) (или[Ctrl]+[F9]), ввести 1‑е число,|__|, ввести 2-е число,, далее аналогично. |
|
Debug ►User Screen(Отладка ►Экран пользователя) (или[Alt]+[F5]), записать информацию,. |
|
File ►Save(Файл ►Сохранить) (или[F2]). |
Ввести и вывести значения переменных a,b,сс использованием разных операторов ввода и вывода. |
Выполнить п. 3, набрать 2-ю программу. |
|
Изменить программу, выполнить пп. 5-10. |
Найти величину , где катет треугольника, а объем шара. |
Выполнить п. 3, набрать 3-ю программу. |
|
Изменить программу, выполнить пп. 5-10. |
|
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/3piRRR; | |
writeln(b); |
F:=(exp(0.2ln(V))+c)/a; | |
write(c); |
writeln('F=',F); | |
End. |
End. |