Примеры программ на языке 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. |
|
Дополнительное задание (выполнить самостоятельно, подготовить отчет по лр, в т.Ч. Листинг программ)
Вычислить
,
где
,
.Вычислить
,
где
,
.
Контрольные вопросы (подготовить письменные ответы в отчете по лр)
Какие разделы включает программа на языке Pascal? Как они обозначаются?
Какие типы данных в языке Pascal являются стандартными? Как они обозначаются?
Какие операторы используются в языке Pascal? Какой вид они имеют и что означают?
Какие операции имеются в языке Pascal? Какой приоритет они имеют? Приведите примеры.
Какой синтаксис имеют стандартные математические функции и константа ? Приведите примеры.
Как зайти в Borland Pascal и выйти оттуда? Как создать новый файл и закрыть окно?
Как проверить программу на ошибки и запустить её на выполнение? Как просмотреть ответ и сохранить программу?
Напишите программу к одной из задач дополнительного задания.
«___» __________ 2013г. доцент кафедры ИБТКСиИ к.т.н. С.А. Добровольский
Задача № 1:
Вычислить: .
Решение.
Program Lab1a; |
Var |
a,b,c:real; |
Begin |
writeln('Введите a,b'); |
read(a,b); |
c:=a+b; |
writeln('c=',c:10:3); |
End. |
Задача № 2:
Ввести и вывести значения переменных a, b, с с использованием разных операторов ввода и вывода.
Решение.
Program Lab1b; |
Var |
a,b,c:integer; |
Begin |
read(a); |
readln(b); |
read(c); |
write(a); |
writeln(b); |
write(c); |
End. |
Задача № 3:
Найти величину , где катет треугольника , а объем шара .
Решение.
Program Lab1c; |
Var |
a,b,c,R,V,F:real; |
Begin |
writeln('Введите b,c,R'); |
read(b,c,R); |
a:=sqrt(sqr(c)-sqr(b)); |
V:=4/3piRRR; |
F:=(exp(0.2ln(V))+c)/a; |
writeln('F=',F); |
End. |
Дополнительное задание.
Условие задания: Вычислить , где , .