1 / 14

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

Типы данных. Преобразование типов данных. №26622 В пачке 500 листов бумаги формата А4. За неделю в офисе расходуется 1200 листов. Какое наименьшее количество пачек бумаги нужно купить в офис на 4 недели?.

dakota-vinson
Download Presentation

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

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

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

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

  3. Проанализируйте и поясните приведенную ниже схему: Арифметические операции Операции отношений Логические операции + - * / Данные числового типа = <> > < >= <= Not Or And xor Данные логического типа Вещественные числа Целые числа + - * mod div Данные символьного типа

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

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

  6. Стандартные функции и процедуры К целым величинам можно применять стандартные функции и процедуры, перечисленные ниже.

  7. Найдите значения переменных, если это возможно. Учтите, что число 7.0 является вещественным, т.к. оно имеет дробную часть, хотя и равную нулю. Операции MOD и DIV можно выполнять только над целыми числами: • 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

  8. 2) Найдите значения переменных, если это возможно: • 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)

  9. 3) Найдите значения переменных, если это возможно: • 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)

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

  11. Получить число, образованное при перестановке цифр заданного числа. 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.

  12. Дано трехзначное число, надо определить среднюю цифру числа. Пусть а=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

More Related