Тема 3.1. Основные элементы процедурного языка программирования
Занятие1 Структура программы. Алфавит, классификация типов данных
Занятие 2. Константы, переменные
Задание1. Указать тип переменной
| А: Boolean. | |
| А: Double | |
| А: shortstring | |
| А: WideString | |
| А: Currency | |
| А: Single | |
| А: Word | |
| А: Longint | |
| А: Shortint | |
| А: Extended |
Задание 2.Указать неправильные записи
| 2/3 | |
| -0 | Е-1 |
| 7,0 | 8Е0 |
| 7. | 2*Е5 |
| +0.3 | е |
| .3 | ‘ 2/4’ |
| false | “Delphi” |
| true |
Тема 3.2.
Операторы и операции
Занятие 1 -2Выражения. Виды операций. Стандартные функции.
Задание 1. Записать выражения
| X4 | |
| Log2x/5 | |
| |a+bx| | |
| E|x-y| |
Задание2. Записать в общепринятом виде
| (-d+sqrt(sqr(d)-4*a*b))/(2*a) | |
| Arctan(y2-a)/2*abs(x4-ln(5)*y5)/exp(-1) |
Задание 3. Вычислить выражение
Succ(-2)=
Trunc(-3/14)=
3*7div 2 mod 7/3=
Задание4. Указать порядок операций
A and b or not c and d
Задание5.Записать выражение
X принадлежит отрезку [2,5] или [-1,1]
Задание 6. Каково назначение функций?
| FloatToStrF(n, f, k,m) | |
| FloatToStr (n) | |
| StrToInt (s) | |
| StrToFloat (s) | |
| Round (n) | |
| Trunc (n) | |
| Frac(n) | |
| Int (n) | |
| Chr(n) | |
| IntToStr (k) | |
| Ехр(n) | |
| Ln(n) | |
| Rardom(n) | |
| Аbs (n) |
ПРИЛОЖЕНИЕ 3. Математические формулы
Язык ObjectPascal имеет ограниченное количество встроенных математических функций. Поэтому при необходимости использовать другие функции следует применять известные соотношения. В таблице приведены выражения наиболее часто встречающихся функций через встроенные функции языка ObjectPascal.
| Функция | Соотношение | Соотношение на языке ObjectPascal |
| 
| Ln(x)/Ln(a) |
| 
| Exp(a*Ln(x)) |
| 
| Sin(x)/Cos(x) |
| 
| Cos(x)/Sin(x) |
| 
| ArcTan(Sqrt(x/(1-sqr(x)))) |
| 
| Pi/2- ArcTan(Sqrt(x/(1-sqr(x)))) |
| 
| Pi/2-ArcTan(x) |
| 
| (Exp(x)-Exp(-x))/2 |
| 
| (Exp(x)+Exp(-x))/2 |
| 
| 1/Sin(x) |
| 
| 1/Cos(x) |
Тема 3.3.
Управляющие структуры
Занятие1. Операторы условного и безусловного перехода
Задание1. Указать ошибки
If 1<x<2 then x:=x+1;y:=0;
Else x:=0;y:=y+1;
If 1<x and x<2 then begin x:=x+1; y:=0 end;
Else begin x:=0; y:=y+1 end;
Задание 2 Есть ли в программе пустой оператор?
Begin a:=true;; b:=b or a end;
Beginif x=0 then goto 1; y:=x; 1: end
Задание 3. Записать на языке выражение, соответствующее рисунку (см. номер варианта)
Задание 4. Рассмотреть программу вычисления стоимости междугородного телефонного разговора.
Как известно, стоимость междугородного разговора по телефону в выходные дни ниже, чем в обычные. Программа, текст которой приведен в листинге 2.1, запрашивает длительность разговора и день недели, а затем вычисляет стоимость разговора. Если день недели — суббота или воскресенье, то стоимость уменьшается на величину скидки. Цена минуты разговора и величина скидки задаются в тексте программы как константы. Вид диалогового окна программы приведен на рис. 2.4.
Для ввода исходных данных (длительность разговора, номер дня недели) используются поля редактирования, для вывода результата и пояснительного текста — поля меток. В табл. 2.3 перечислены компоненты и указано их назначение, а в табл. 2.4 приведены значения свойств этих компонентов.
Рис. 2.4. Диалоговое окно программы Стоимость разговора
Примечание
Здесь и далее при описании формы приложения приводятся значения только тех свойств компонентов, которые используются в программе. Значения остальных свойств, в частности определяющих размер и положение компонентов, могут быть.оставлены без изменения или изменены произвольным образом, естественно, в разумных пределах (очевидно, что положение командной кнопки или поля редактирования может быть выбрано в пределах формы произвольным образом).
Программа производит вычисления в результате щелчка на командной кнопке Вычислить. При этом возникает событие onclick, которое обрабатывается процедурой TForm1.Button1Click.
