Символьный и строковый типы данных

1.

Символьный и строковый
типы данных

2.

типы данных:
символьный - char
строковый - string

3.

4.

Задача 1
Вывод кода по введенному символу.
Функция ord преобразовывает букву в её числовой код.
var a : char; kod : integer;
begin
read (a);
kod:= ord (a);
write (kod)
end.

5.

Задача 2
Вывод символа по введенному коду.
Функция chr преобразовывает числовой код символа в символ.
var a : integer; simvl : char;
begin
read (a);
simvl:= chr (a);
write (simvl)
end.

6.

Задача 3
Вывод строки, состоящей из нескольких символов.
Пример:
4%
var c: string;
begin
c:= chr(52) + chr(37);
write (c);
end.

7.

Задача 4
var a: char; kod: integer; b: string;
begin
writeln ('Код и строка');
write ('Введите исходную букву>>');
readln (a);
kod:=ord(a);
b:=chr(kod–1)+a+chr(kod+1);
writeln ('Код буквы ', a, '-', kod);
writeln ('Строка: ', b)
end.

8.

Логический тип данных
Величины логического типа принимают всего два значения:
false и true;
false < true.

9.

Логический тип данных
ans - логическая переменная,
n - целая переменная.
В результате выполнения оператора присваивания
ans := n mod 2=0
переменной ans будет присвоено значение
true при любом чётном n и
false в противном случае.

10.

Задача 1
program n_1;
var n: integer; ans: boolean;
begin
writeln ('Определение истинности
высказывания о чётности числа');
write ('Введите исходное число>>');
readln (n);
ans:=n mod 2=0;
writeln ('Число ', n,' является четным - ', ans)
end.

11.

Логический тип данных
Логическая операция
в Паскале
and
or
not
Название операции
конъюнкция (логическое умножение)
дизъюнкция (логическое сложение)
отрицание (инверсия)

12.

Задача 2
program n_2;
var a, b, c: integer; ans: boolean;
begin
writeln ('Определение истинности высказывания
о равнобедренном треугольнике');
write ('Введите значения a, b, c>>');
readln (a, b, c);
ans := (a=b) or (a=c) or (b=c);
writeln ('Треугольник с сторонами ', a, ' ,', b, ',', c, ' является
равнобедренным - ', ans)
end.