Презентация на тему "Работа с символьными данными в Паскале" 11 класс

Содержание

• 
  Слайд 1

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

  А. Жидков

• 
  Слайд 2

  Тип данных char

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

• 
  Слайд 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 ZB C …Y ZC ...Y Z Вывести на экран треугольник:Аяяяяяяяя…яБюююю…юВээээээ…э . . . ЭвввЮббЯа.

• 
  Слайд 7
  

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

• 
  Слайд 8
  

  Вывести на экран треугольник:A B C ...Y ZB C …Y ZC ...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. Вывести на экран треугольник: Аяяяяяяяя…яБюююю…юВээээээ…э . . . ЭвввЮббЯа.