Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 11 лет назад пользователемignateva-alina.ucoz.ru
1 Строковый тип в Паскаль. Составление программ.
2 Какой тип данных в Паскале описывает текстовые данные? Какой тип данных описывает один символ? Как можно определить текущую длину строки s? Как можно обратиться к отдельному символу строки? string char n:=length(s) s[i]
3 Как можно скопировать фрагмент одной строки в другую? Как можно вставить букву в слово? Как можно заменить букву в слове? Как можно удалить фрагмент строки? Как можно преобразовать текст в число и наоборот? s1:=copy(s,3,6) insert (word1, word, 1); s[k]:= Ф ; delete ( панорама,1,4); val (1234,x,kod); str (777,Stroka);
4 Примеры 4 s:='Вася Петя Митя'; n:=Pos('Петя,s); Delete(s,n,4); Insert('Лена,s,n); s:='Вася Петя Митя'; n:=Pos('Петя,s); Delete(s,n,4); Insert('Лена,s,n); 'Вася Лена Митя' s:='Вася Петя Митя; n:=length(s); s1:=Copy(s,1,4); s2:=Copy(s,11,4); s3:=Copy(s,6,4); s:=s3+s1+s2; n:=length(s); s:='Вася Петя Митя; n:=length(s); s1:=Copy(s,1,4); s2:=Copy(s,11,4); s3:=Copy(s,6,4); s:=s3+s1+s2; n:=length(s); 'Вася Митя' 14 'Вася' 'Митя' 'Петя' 'ПетяВасяМитя'
5 Какие слова нужно поставить вместо звездочек ? program n1; var s:string; n:integer; begin write('Введи число '); readln(n); str(n,s); writeln(************* - ',s[1]); writeln(**************** - ',s[length(s)]); end. Первая цифра Последняя цифра ?
6 program n2; var s:string; i,k:integer; begin write(Введи строку '); readln(s); k:=0; for i:=1 to length(s) do if (s[i]='А') then k:=k+1; writeln(k); end. Какую задачу решает данная программа ? Программа определяет, сколько раз в строке встречается буква А. ?
7 program n6; var s:string; i:integer; begin write('Введите строку'); readln(s); for i:=1 to length(s) do if (s[i]='A') then s[i]:='O'; writeln(s); end. Какую задачу решает данная программа ? В строке s заменяет все буквы A на букву О ?
8 var s,s1:string; i,j,k:integer; begin 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 (k0) then writeln(s1[i],' - ',k:5,' раз'); end; end. Задача 1. Дана строка символов, содержащая знаки препинания. Подсчитать какие и сколько знаков препинания содержит строка. Внешний цикл, осуществляющий перебор знаков записанных в S1 Тело внешнего цикла содержит цикл, отвечающий за перебор символов введенной строки
9 program palindrom; var slovo: string; bukva: char; len,i: integer; begin writeln(Введите текст'); readln(slovo); len:=length(slovo); for i:=1 to len div 2 do begin bukva:=slovo[i]; slovo[i]:=slovo[len-i+1]; slovo[len-i+1]:=bukva; end; writeln (slovo); end. Составить программу, которая переставляет символы в заданном тексте задом наперед. Не использовать дополнительну ю строку. Задача 2.
10 Задания на урок 10 1.Ввести строку, в которой содержится арифметическое выражение: разность двух чисел. Вычислить эту разность. Пример: Ответ: 13 2.В тексте, состоящем из заглавных латинских букв, подсчитать количество гласных букв (A, E, I, O, U). Пример: UDGTEOPA Ответ: 4 3.В заданном тексте везде букву "а" заменить на букву "б", а букву "б" - на букву "а". Пример: бочка дубовая Ответ: аочкб дуаовбя
11 Домашнее задание 11 1.Составить программу, которая определяет, является ли введенное с клавиатуры число или текст палиндромом. Пример: А РОЗА УПАЛА НА ЛАПУ АЗОРА Ответ: Палиндром 2.Подготовиться к тесту по строковым функциям и процедурам
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.