Презентация на тему "Символьные (строковые) величины в pascal" 10 класс

Содержание

• 
  Слайд 1

  Строковые величины

  Презентация подготовлена учителем информатики ГБОУ Лицей № 1561 Кондруховой Ольгой Васильевной

• 
  Слайд 2
  

  В языке Паскаль существует стандартный тип данных, который называется символьным. К символьным переменным относятся: Латинские буквы; Русские буквы; Знаки препинания; Скобки; Цифры. В программах их значения всегда заключаются в апострофы: ‘F’, ‘12345’, ‘Привет’

• 
  Слайд 3
  

  Последовательность символов, заключенная в апострофы, называется строкой и описывается типом string Строки, состоящие из 1 символа, называются символьными константами. У строки может быть указан размер (от 1 до 255): s1:string;(длина до 255) s1:string [80];(не более 80 символов)

• 
  Слайд 4
  

  Какова длина строки? ‘Привет, Вася!’

• 
  Слайд 5

  Строковые процедуры и функции

• 
  Слайд 6
  
• 
  Слайд 7

  Определение длины строки

  program dlina; varst:string; l:integer; begin writeln('Введитестроку '); read(st); l:=length(st); write('Длина = ',l); end.

• 
  Слайд 8

  Операция конкатенации (+)

  program sceplenie; vara,b,c:string; begin a:=‘бан'; b:=‘ка '; c:=a+b; write(c); end.

• 
  Слайд 9

  Операция вырезки

  program slovo; vara,b:string; begin a:=‘информатика’; b:=copy(a,3,5); write(b) end.

• 
  Слайд 10

  Определить, сколько раз в данном слове встречается буква «а»

  program slovo; var s:string; l,i,k:integer; begin write(‘Введите слово’); read(s); l:=length(s); for i:=1 to l do if copy(s,i,1)=‘a’ then k:=k+1; write(k); end.

• 
  Слайд 11
  

  Написать программу, которая выводит на экране сообщение в «телеграфном» стиле, т.е. буквы сообщения должны появляться по одной, причем с некоторой задержкой.

  program telegramma; uses crt; var c:string; n:integer; begin clrscr; c:='Телеграмма'; for n:=1 to length(c) do begin write(c[n]); delay(1000); end;readkey end.

• 
  Слайд 12

  Определить, является ли слово перевертышем

  program perevertish; vara,b,c:string; i:integer; begin writeln('Введите слово'); read(a); for i:=length(a) downto 1 do begin c:=copy(a,i,1); b:=b+c; end; if a=b then write('да') else write('нет') end.