1.8. Совместимость и преобразование типов данных.
Совместимость типов учитывается при вычислении выражений и выполнении операторов присваивания. Несовместимость типов определяется на этапе компиляции программы; при этом выдается сообщение об ошибке. Если типы операндов выражения не одинаковы, но совместимы, производится преобразование типов для приведения их к одному допустимому типу. Во время вычисления выражений два типа операндов совместимы если:
оба они одного типа;
один операнд вещественный, другой - целый;
один операнд является диапазоном типа второго операнда;
оба операнда - диапазоны одного и того же базового типа;
оба операнда - строки;
один операнд типа строка, другой - символ.
1.9. Примеры программ.
1. Написать программу, которая находит частное двух целых чисел.
Program example1;
Var a,b:integer;
c:real;
begin
writeln(‘введите два числа ’);
readln(a,b);
c:=a/b;
writeln(‘c=’,c) end.
Написать программу, которая для заданного х вычисляет значение выражения:
Program example2;
Var x,y: real;
begin
writeln(‘введите число ’);
readln(x)
y=sqr(sqr(x))+(x*sqr(x)+12*x)/2+sqrt(sqr(x)*x+10)+sin(x)/cos(x)
writeln(‘y=’,y);
end.
Для вывода вещественного результата можно использовать формат, как это было описано выше. Так, если мы хотим, чтобы результат выводился с точностью до двух знаков после запятой, нужно использовать следующий формат вывода: y:5:2. Тогда оператор вывода будет выглядеть следующим образом: writeln(‘y=’, y:5:2);
Найти остаток от деления двух целых чисел.
Program example3;
Var a,b,c:integer;
begin
writeln(‘введите два числа ’);
readln(a,b);
c:=a mod b;
writeln(‘c=’,c)
end.
Переменная c является переменной целого типа, так как тип результата операции mod – целый.
1.10. Упражнения.
I. Написать программу, вычисляющую значение выражения
1)
2)
3)
4)
5)
6).
7)
8)
II. Написать программу, которая подсчитывает:
периметр квадрата, площадь которого равна а;
площадь равностороннего треугольника, периметр которого равен p;
среднее арифметическое кубов двух данных чисел;
среднее геометрическое модулей двух данных чисел;
гипотенузу прямоугольного треугольника по двум данным катетам а, b;
площадь прямоугольного треугольника по двум катетам а, b;
периметр прямоугольного треугольника по двум катетам а, b;
периметр треугольника, заданного координатами вершин (х1, у1), (х2, у2), (х3,y3);
длину окружности и площадь круга с радиусом R;
площадь кольца с внутренним радиусом R1 и внешним R2.
2. Операторы ветвления.
2.1 Условный оператор if.
Оператор IF относится к операторам разветвления процесса обработки данных. Он позволяет выбрать для выполнения один из простых или составных операторов или не выбрать ни одного в зависимости от условия разветвления. Условный оператор IF может иметь одну из форм: полную или сокращенную.
IF_условие_THEN_оператор1_ELSE_оператор2;
IF_условие_THEN_оператор;
Условие – выражение булевского типа, при его записи могут использоваться все возможные операции отношения. Если значение выражения истинно, то выполняется оператор1, если ложно – оператор2. Во втором варианте оператора IF, если выражение ложно, то выполняется оператор, следующий в программе сразу за оператором IF. Один оператор IF может входить в состав другого оператора IF, т.е. этот оператор может быть вложенным. При вложенности операторов каждое ELSE соответствует тому THEN, которое ему непосредственно предшествует.
Если необходимо выполнить более одного оператора после ключевого слова then или else, то надо записать составной оператор begin …end:
if условие then begin
группа операторов1
end
else begin
группа операторов2
end;
Рисунок 2.1. Блок-схема полной формы условного оператора.
Рисунок 2.2. Блок-схема сокращенной формы условного оператора.