Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

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

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

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

Презентация по информатике "Строковый тип данных в языке Паскаль" (10 класс)

библиотека
материалов
Строковый тип данных Урок_2
Программа должна считать, сколько раз в строке S встречается подстрока '12'....
Какой оператор надо вставить вместо многоточия, чтобы в строке S были записан...
PROGRAM Dlina_1; VAR S : STRING; n:INTEGER; BEGIN Writeln(введите слово ') ;...
Uses crt; var a,b:string; m,n:Integer; Begin Clrscr; Writeln('ВВеди первую ст...
Преобразование типов Задача 4 . Составьте программу которая выводит первую и...
Преобразование типов Задача 5. Дано строка символов а1+а2=. Где 1
Задача 9 Удалить из строки введенной с клавиатуры все буквы R (латинские, заг...
Вложенные циклы begin ClrScr; Write('ВВеди строку '); readln(s); s1:=',.;:"!?...
9 1

Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


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

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

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

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

№ слайда 1 Строковый тип данных Урок_2
Описание слайда:

Строковый тип данных Урок_2

№ слайда 2 Программа должна считать, сколько раз в строке S встречается подстрока '12'.
Описание слайда:

Программа должна считать, сколько раз в строке S встречается подстрока '12'. Какой оператор надо вставить вместо многоточия? Вводите ответ без пробелов. c := 0; repeat ... if p <> 0 then begin c := c + 1; Delete ( S, 1, p+1) end; until p = 0; p := POS (‘12’, S);

№ слайда 3 Какой оператор надо вставить вместо многоточия, чтобы в строке S были записан
Описание слайда:

Какой оператор надо вставить вместо многоточия, чтобы в строке S были записаны символы строки Q в обратном порядке? Вводите ответ без пробелов. Q := '123456789'; S := '1'; for k:=2 to 9 do begin ... end; S := Q[k] + S;

№ слайда 4 PROGRAM Dlina_1; VAR S : STRING; n:INTEGER; BEGIN Writeln(введите слово &#039;) ;
Описание слайда:

PROGRAM Dlina_1; VAR S : STRING; n:INTEGER; BEGIN Writeln(введите слово ') ; Readln(S); n:= Length (S) ; Writeln(‘введите слово ', n:5 ,' букв..'); END. Записываем длину строки в переменную целого типа PROGRAM Dlina_2; VAR S : STRING; BEGIN Writeln(’введите слово’) ; Readln(S); Writeln(’слово состоит из ’, Length (S) ,’букв. ’); END. Выводим на экран длину строки, как результат выполнения функции Задача 1. Составить программу подсчитывающую количество букв в слове.

№ слайда 5 Uses crt; var a,b:string; m,n:Integer; Begin Clrscr; Writeln(&#039;ВВеди первую ст
Описание слайда:

Uses crt; var a,b:string; m,n:Integer; Begin Clrscr; Writeln('ВВеди первую строку ');Readln(a); Writeln('ВВеди вторую строку ');Readln(b); m:=Length(a); n:=Length(b); if (m=n) then writeln('Строки равны'); if (m>n) then writeln('Первая больше'); if (m<n) then writeln('Вторая больше'); End. Задача 2. Сравнить длину двух строк введенных с клавиатуры. Вычисляем длину строк Сравниваем длины и выводим соответствующие пояснения Задача на сравнение строк

№ слайда 6 Преобразование типов Задача 4 . Составьте программу которая выводит первую и
Описание слайда:

Преобразование типов Задача 4 . Составьте программу которая выводит первую и последнюю цифру натурального числа, введенного с клавиатуры. PROGRAM Primer; uses Crt; VAR S: STRING; n:INTEGER; BEGIN Write('Введи число ');readln(n); Str(n,S); Writeln('Первая цифра -',S[1]); Writeln('Последняя цифра - ',S[length(S)]); END. Преобразуем натуральное число в строку

№ слайда 7 Преобразование типов Задача 5. Дано строка символов а1+а2=. Где 1
Описание слайда:

Преобразование типов Задача 5. Дано строка символов а1+а2=. Где 1<=а1 и а2<=9. Составить программу, вычисляющую это выражение. Измените программу так, что бы вместо знака «+» можно было писать «-», «*», «/». VAR S: STRING; a,b,c:real; code:INTEGER; BEGIN Write(‘Введи выражение = ');read(s); val(s[1],a,code); val(s[3],b,code); if (s[2]='+') then c:=a+b; if (s[2]='-') then c:=a-b; if (s[2]='*') then c:=a*b; if (s[2]='/') then c:=a/b; clrscr; Writeln(s,c); END. Из строки берем первый и третий символ и преобразуем в число

№ слайда 8 Задача 9 Удалить из строки введенной с клавиатуры все буквы R (латинские, заг
Описание слайда:

Задача 9 Удалить из строки введенной с клавиатуры все буквы R (латинские, заглавные). Program n7; Uses Crt; var a,b:String; i:integer; begin ClrScr; Write('Введи строку = ');readln(a); b:=''; for i:=1 to length(a) do if (a[i]<>‘R') then b:=b+a[i]; a:=b; writeln(a); end. Перебираем от 1 до последней буквы Подготавливаем дополнительную переменную Если на i-ом месте не стоит R то прибавляем эту букву к тому, что есть в B То, что получилось в В перемещаем обратно в А Удаление символов из строки

№ слайда 9 Вложенные циклы begin ClrScr; Write(&#039;ВВеди строку &#039;); readln(s); s1:=&#039;,.;:&quot;!?
Описание слайда:

Вложенные циклы begin ClrScr; Write('ВВеди строку '); readln(s); s1:=',.;:"!?-'; for i:=1 to length(s1) do begin k:=0; for j:=1 to length(s) do if (s[j]=s1[i]) then k:=k+1; if (k<>0) then writeln(s1[i],' - ',k:5,' раз'); end; end. Задача 11. Дана строка символов, содержащая знаки препинания. Подсчитать какие и сколько знаков препинания содержит строка. Внешний цикл, осуществляющий перебор знаков записанных в S1 Тело внешнего цикла содержит цикл, отвечающий за перебор символов введенной строки


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


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

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

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

Краткое описание документа:

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

Автор
Дата добавления 03.04.2016
Раздел Информатика
Подраздел Презентации
Просмотров998
Номер материала ДБ-005469
Получить свидетельство о публикации
Похожие материалы

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