8 Pascal символьные данные
презентация к уроку по информатике и икт (9 класс) по теме

Слайд 1

Язык программирования Pascal Работа с символьными данными А. Жидков

Слайд 2

Тип данных char В компьютерах наряду с числовой информацией обрабатывается и информация в виде символов. Переменные типа char хранят один символ. Например : Var Alpha : char; Begin Alpha :=' p ‘ ; Alpha :=' + ‘ ; Alpha :=' 3 ‘ ; Alpha :=' ‘ ; Alpha :=' '' ‘ ; В этом фрагменте символьная переменная последовательно получает значения p, +, 3, пробел и апостроф . В ЭВМ символу соответствует код (номер) в интервале от 0 до 255 (кодировка ASCII) , поэтому к символам возможно применение операций отношения ( < > = ), сортировки, например : 'A' < 'B' < 'C' < ... < 'X' < 'Y' < 'Z' '0' < '1' < '2' < ... < '7' < '8' < '9'

Слайд 3

Кодировка ASCII WINDOWS CP1251 Латиница A..Z 65..90 a..z 97..122 Кирилица А..Я 192..223 а..я 224..255 Цифры 0..9 48..57

Слайд 4

Функции над данными типа char Succ - возвращает следующий символ; Pred - возвращает предыдущий символ; Ord - возвращает код(номер) литеры; Chr - возвращает литеру по её коду. Например, Succ('0')='1' - символ, следующий за символом 0, равен 1. Pred('3')='2' - символ, предшествующий символу 3, равен 2; Chr(65)='A' - символ, соответствующий коду 65, равен А; Ord('A')=65 - код символа А равен 65

Слайд 5

Пример программы работающей с данными типа char Для каждого кода символа ASCII напечатать предшествующий символ символ соответствующий коду последующий символ по символу определить его ASCII номер Напечатать символы русского алфавита в одну строку следующим образом АаБбВвГг… var simbol : char ; i:integer; begin for i:=1 to 254 do begin simbol := chr (i); writeln ('i=',i,' pred=', pred ( simbol ),' chr=', simbol ,' succ=', succ ( simbol ),' ord=', ord ( simbol )); end; for i:=192 to 192+31 do write ( chr (i), chr (i+32)); end.

Слайд 6

Задание на самоподготовку Составьте программу, проверяющую, является ли введенный с клавиатуры символ буквой латинского алфавита. Вывести на экран треугольник: A B C ...Y Z B C …Y Z C ...Y Z Вывести на экран треугольник: Аяяяяяяяя…я Бюююю…ю Вээээээ…э . . . Эввв Юбб Яа.

Слайд 7

Задание на самоподготовку Составьте программу, проверяющую, является ли введенный с клавиатуры символ буквой латинского алфавита.

Слайд 8

Задание на самоподготовку Вывести на экран треугольник: A B C ...Y Z B C …Y Z C ...Y Z program sim1; var j,i:integer; sim: char; begin for j := 0 to 26 do begin for i:= ord ('A')+j to ord ('Z') do write ( chr (i)); writeln; end; end.

Слайд 9

program sim1; var j,i:integer; sim:char; begin cls; for j:=192 to 192+31 do begin write( chr (j)); for i:=32-j+192 downto 1 do write ( chr (255+192-j)); writeln end; end. Задание на самоподготовку Вывести на экран треугольник: Аяяяяяяяя…я Бюююю…ю Вээээээ…э . . . Эввв Юбб Яа.