Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Презентации / Программирование. Строки и символы в PascalABC.net
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

Программирование. Строки и символы в PascalABC.net

библиотека
материалов
Программирование. Строки и символы в PascalABC.net Автор: Комкова М.С. Учител...
Описание переменных: Строки в Паскале – это данные типа string. var s: string...
В Паскале длина стандартной строки ограничена 255 символами. Под каждый симво...
Примеры описания строк: var s: string; s1: string[9]; s2: shortstring; begin...
Символ строки К отдельному символу строки можно обращаться как к элементу мас...
Чтобы узнать текущую длину, достаточно применить функцию ord к нулевому элеме...
Процедуры и функции для работы со строками Функция Concat (s1, s2, ..., sn) ...
Процедуры и функции для работы со строками Процедура Insert (subs, s, start) ...
Строки и массивы символов array of char рассматриваться как строка постоянной...
Вставка подстроки Задача:  Вставить в заданную позицию строки другую строку....
Замена подстроки в строке var s,s_old,s_new: string; i,l_old: byte; begin wri...
Копирование части строки Задача:  Скопировать часть строки с определенной поз...
Удалить пробелы между первым и вторым вопросительным знаком var str: string;...
Задача Дана непустая строка S и целое число N (>0). Вывести строку, содержащу...
Из заданной символьной строки выбрать те символы, которые встречаются в ней т...
Источники http://templated.ru/ingeneriya/117-informacionnye-tehnologii.html h...
16 1

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs

Описание презентации по отдельным слайдам:

№ слайда 1 Программирование. Строки и символы в PascalABC.net Автор: Комкова М.С. Учител
Описание слайда:

Программирование. Строки и символы в PascalABC.net Автор: Комкова М.С. Учитель ИКТ, гимназия МИИТ, г. Москва

№ слайда 2 Описание переменных: Строки в Паскале – это данные типа string. var s: string
Описание слайда:

Описание переменных: Строки в Паскале – это данные типа string. var s: string; s1: string[9]; s2: shortstring; // синоним string[255] Они используются для хранения последовательностей символов.

№ слайда 3 В Паскале длина стандартной строки ограничена 255 символами. Под каждый симво
Описание слайда:

В Паскале длина стандартной строки ограничена 255 символами. Под каждый символ отводится по одному байту, в котором хранится код символа. Кроме того, каждая строка содержит еще дополнительный байт, в котором хранится длина строки.

№ слайда 4 Примеры описания строк: var s: string; s1: string[9]; s2: shortstring; begin
Описание слайда:

Примеры описания строк: var s: string; s1: string[9]; s2: shortstring; begin s := 'PascalABC.NET'; writeln(s,' ',s.Length); SetLength(s,20); writeln(s,' ',s.Length); s1 := s; writeln(s1,' ',s1.Length); end.

№ слайда 5 Символ строки К отдельному символу строки можно обращаться как к элементу мас
Описание слайда:

Символ строки К отдельному символу строки можно обращаться как к элементу массива символов, например s1[3]. Символ строки совместим с типом char, их можно использовать в выражениях одновременно, например: … s1[3] := 'h'; writeln (s2[3] + 'r');

№ слайда 6 Чтобы узнать текущую длину, достаточно применить функцию ord к нулевому элеме
Описание слайда:

Чтобы узнать текущую длину, достаточно применить функцию ord к нулевому элементу строки. Например: … writeln(ord(st[0]));

№ слайда 7 Процедуры и функции для работы со строками Функция Concat (s1, s2, ..., sn) 
Описание слайда:

Процедуры и функции для работы со строками Функция Concat (s1, s2, ..., sn)  возвращает строку, являющуюся слиянием строк s1, s2, ..., sn. Функция Copy (s, start, len) возвращает подстроку длиной len, начинающуюся с позиции start строки s. Процедура Delete (s, start, len) удаляет из строки s, начиная с позиции start, подстроку длиной len.

№ слайда 8 Процедуры и функции для работы со строками Процедура Insert (subs, s, start) 
Описание слайда:

Процедуры и функции для работы со строками Процедура Insert (subs, s, start) вставляет в строку s подстроку subs, начиная с позиции start. Функция Length (s) возвращает фактическую длину строки s, результат имеет тип byte. Функция Pos (subs, s) ищет вхождение подстроки subs в строку s и возвращает номер первого символа subs в s или нуль, если subs не содержится в s.

№ слайда 9 Строки и массивы символов array of char рассматриваться как строка постоянной
Описание слайда:

Строки и массивы символов array of char рассматриваться как строка постоянной длины 

№ слайда 10 Вставка подстроки Задача:  Вставить в заданную позицию строки другую строку.
Описание слайда:

Вставка подстроки Задача:  Вставить в заданную позицию строки другую строку. var s1,s2: string; i: byte; Begin write(‘Программа для вставки в заданную позицию строки другую строку'); write(‘Введите первый текст: '); readln(s1); write(‘Введите второй текст: '); readln(s2); write(‘Введите номер позиции, в которую надо вставить второй текст: '); readln(i); insert(s2,s1,i); writeln(s1); end.

№ слайда 11 Замена подстроки в строке var s,s_old,s_new: string; i,l_old: byte; begin wri
Описание слайда:

Замена подстроки в строке var s,s_old,s_new: string; i,l_old: byte; begin write(‘Ведите текст: '); readln(s); write(‘Что заменить?'); readln(s_old); l_old := length(s_old); write(‘ Чем заменить? '); readln(s_new); i := pos(s_old,s); delete(s,i,l_old); insert(s_new,s,i); writeln(s); readln end. Задача:  Найти в строке определенную последовательность символов и заменить ее другой.

№ слайда 12 Копирование части строки Задача:  Скопировать часть строки с определенной поз
Описание слайда:

Копирование части строки Задача:  Скопировать часть строки с определенной позиции и определенной длины в другую строку. var s1,s2: string; n,len: byte; begin write('Введите текст: '); readln(s1); write('Введите номер позиции, с которой будет копироваться строка: '); read(n); write(‘Введите длину копируемой части: '); readln(len); s2 := copy(s1,n,len); writeln('Ты скопировал: ',s2); readln; end.

№ слайда 13 Удалить пробелы между первым и вторым вопросительным знаком var str: string;
Описание слайда:

Удалить пробелы между первым и вторым вопросительным знаком var str: string; q1, q2, l, i: byte; begin readln(str); l := length(str); q1 := 0; q2 := 0; for i:=1 to l do if str[i] = '?' then begin q1 := i; break; end; for i:=q1+1 to l do if str[i] = '?' then begin q2 := i; break; end; if (q1 <> 0) and (q2 <> 0) then begin q1 := q1 + 1; while q1 < q2 do if str[q1] = ' ' then begin delete(str,q1,1); q2 := q2-1; end else q1 := q1 + 1; writeln(str); end; end. Задача:  Во введенной строке удалить пробелы между первым и вторым вопросительным знаком.

№ слайда 14 Задача Дана непустая строка S и целое число N (&gt;0). Вывести строку, содержащу
Описание слайда:

Задача Дана непустая строка S и целое число N (>0). Вывести строку, содержащую символы строки S, между которыми вставлено по N символов «*» (звездочка). program zvezda; Var s:string; N,i:integer; C:char; Begin Writeln('stroka'); Readln(s); Writeln('n'); Readln(n); C:='*'; For  i:=1 to n do Insert(c,s,n); Writeln(S); End.

№ слайда 15 Из заданной символьной строки выбрать те символы, которые встречаются в ней т
Описание слайда:

Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз Задача program m2; var s:String; i,j,n,k:Integer; f:Boolean; begin Writeln('Введите строку:'); Readln(s); n:=Length(s); for i:=1 to n do begin f:=True; for j:=1 to n do if (i<>j) and (s[i]=s[j]) then f:=False; if f and (k=0) then Writeln('Символы,которые встречаются в строке один раз:'); if f then begin Write(s[i],' '); inc(k); end; end; if k=0 then Writeln('В строке нет символов которые встречаются всего один раз.'); Readln; end.

№ слайда 16 Источники http://templated.ru/ingeneriya/117-informacionnye-tehnologii.html h
Описание слайда:

Источники http://templated.ru/ingeneriya/117-informacionnye-tehnologii.html http://pascalabc.net/wiki/index.php?title=Строки_и_символы._Тексты_программ http://www.cyberforum.ru/pascalabc-net/thread1266946.html http://pas1.ru/book/export/html/300 http://programmado.ru/55-stroki-v-paskale-tip-string.html http://mojainformatika.ru/paskal/uroki-paskal-stroki/116-stroki-v-paskal.html http://nschool.by/text.php?cat=library&textid=10

Автор
Дата добавления 18.03.2016
Раздел Информатика
Подраздел Презентации
Просмотров230
Номер материала ДВ-536571
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх