Типы данных. Преобразование типов данных.. Program Zadacha26622; uses crt; var a,b,c,d: real; begin Write ('1 пачка'); Read(b); Write('листы за неделю'); - презентация

1 Типы данных. Преобразование типов данных.

2 Program Zadacha26622; uses crt; var a,b,c,d: real; begin Write ('1 пачка'); Read(b); Write('листы за неделю'); Read(a); Write ('сколько недель'); Read(c); d:= (a/b)*c ; Writeln(количество пачек=',d); end В пачке 500 листов бумаги формата А4. За неделю в офисе расходуется 1200 листов. Какое наименьшее количество пачек бумаги нужно купить в офис на 4 недели? int round trunc

3 Арифметические операции Операции отношений Логические операции +-*/+-*/ +-*/+-*/ + - * mod div + - * mod div Данные числового типа Вещественные числа Целые числа Данные символьного типа Данные символьного типа Данные логического типа Данные логического типа = > < >= < >=

4 КОНСТАНТАПЕРЕМЕННАЯ имя тип значение В чем сходство и различие использования констант и переменных в программе?

5 В каком из примеров допущены ошибки и какие именно? Var A,B: real; C,D: integer; E, F: char; G, H: Boolean; a)C:=A+25; b)C:=round(A+25); c)A:=C+2*D; d)A:=B+E; e)G:=(A+25) or H; f)G:=(A>25) or (not H); g)G:=A>25 and H; h)C:=D+sqrt(25); i)E:=&; j)E:=&+F; k)H:= ord(E)>D; Ошибки: a, d, e, g, h, j. Ошибки: a, d, e, g, h, j.

6 Имя ОписаниеРезультат Пояснения absмодульвещественный|x| записывается abs(x) arctanарктангенс углавещественныйarctg x записывается arctan(x) cosкосинус углавещественныйcos x записывается cos(x) expэкспонентавещественныйexp записывается exp(x) fracдробная часть аргументавещественныйfrac(3.1) даст в результате 0.1 intцелая часть аргументавещественныйfrac(3.1) даст в результате 3.0 lnнатуральный логарифмвещественныйlogex записывается ln(x) piзначение числа пвещественный roundокругление до целогоцелыйround(3.1) даст в результате 3 round(3.8) даст в результате 4 sinсинус углавещественныйsin x записывается sin(x) sqrквадратцелыйx2 записывается sqr(x) sqrtквадратный корень вещественный записывается sqrt(x) truncцелая часть аргументацелыйtrunc(3.1) даст в результате 3

7 Стандартные функции и процедуры К целым величинам можно применять стандартные функции и процедуры, перечисленные ниже. Имя ОписаниеРезультат Пояснения Функции absмодульцелый|x| записывается abs(x) arctanарктангенс углавещественныйarctg x записывается arctan(x) cosкосинус углавещественныйcos x записывается cos(x) expэкспонентавещественныйex записывается exp(x) lnнатуральный логарифм вещественныйlogex записывается ln(x) oddпроверка на четность логическийodd(3) даст в результате true predпредыдущее значение целыйpred(3) даст в результате 2 sinсинус углавещественныйsin x записывается sin(x) sqrквадратцелыйx2 записывается sqr(x) sqrtквадратный корень вещественный записывается sqrt(x) succследующее значениецелыйsucc(3) даст в результате 4 Процедуры incинкрементinc(x) - увеличить х на 1 inc(x, 3) - увеличить х на 3 decдекрементdec(x) - увеличить х на 1 dec(x, 3) - увеличить х на 3

8 1)Найдите значения переменных, если это возможно. Учтите, что число 7.0 является вещественным, т.к. оно имеет дробную часть, хотя и равную нулю. Операции MOD и DIV можно выполнять только над целыми числами: a)A:=21 DIV 5 b) A:= 2 MOD 3 B:= 20 MOD 5 B:= 36.0 MOD 6 C:= 14 DIV 6.0 C:= 81 DIV 0 D:= 14 MOD 0 D:= 38 DIV 6 E:= 5 MOD 13 E:= 3 DIV 2

9 2) Найдите значения переменных, если это возможно: a)A:=SQR(100) b) A:=sqrt(9) B:=sqrt(100) B:=SQR(9) C:=SQR(-10) C:=SQRT(-9) D:=SQRT(-10) D:=SQR(-9) E:=SQR(0.9) E:=SQRT(0.0) F:=SQRT(0) F:=SQR(0.1)

10 3) Найдите значения переменных, если это возможно: a)A:=ROUND(6.9) b) A:=ROUND(15.39) B:=ROUND(6.48) B:=ROUND(15.8) C:=TRUNC(9.5) C:=TRUNC(-39) D:=FRAC(9.5) D:=FRAC(39) E:=INT(9.5) E:=INT(39) F:=TRUNC(-17) F:=TRUNC(5.6) G:=FRAC(17) G:=FRAC(-0.3) H:=INT(-17) H:=INT(1.25)

11

12 Задача. Дано расстояние в сантиметрах. Найти число полных метров в нем. Program prim_4; Var a,b:integer; Begin Write('введите расстояние в сантиметрах'); Readln(a); b:=a mod 100; Writeln(b,' метров '); Readln; End.

13 Получить число, образованное при перестановке цифр заданного числа. Program prim_6; Var n,x1,x2,m:integer; Begin Write('введите двузначное число'); Readln(n); X1:=n mod 10; {выделяем из числа единицы} X2:=n div 10; {получает число десятков в числе} M:=x1*10+x2; {число единиц умножаем на 10, получаем десятки} Writeln(m); Readln End.

14 Дано трехзначное число, надо определить среднюю цифру числа. Пусть а=246 b:=a div 10 = 24 b:=b mod 10 = 4 Или одним выражением b:=(a div 10) mod 10 Или по другому: b:=a mod 100 = 46 b:=b div 10 = 4 Или одним выражением b:=(a mod 10) div 10