Порядок выполнения
|
– |
|
Пуск ►(Мой) Компьютер, 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. |
|

.
и
;
и
).
;
;
).
,
где катет треугольника
,
а объем шара
.
;
;
).