Презентация на тему: » Обработка символов строки. Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования.» — Транскрипт:
1 Обработка символов строки
2 Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования.
3 Var z,s: string;n:byte; Begin WRITE(Введите слово); READLN(z); n:=length(z); s:=copy(z,n-2,3)+copy(z,4,n- 6)+copy(z,1,3); Writeln(s); End.
4 Составить программу, которая печатает заданное слово в обратном порядке.
5 Var z,s: string;i,n:byte; Begin WRITE(Введите слово); READLN(z); n:=length(z);s:=; For i:=1 to n do s:=z[i]+s; Writeln(s); End.
6 Поиск и замена в строке
7 Дано предложение. Заменить в нем все вхождения буквы и нае.
8 Var z,s: string;i,n:byte; Begin WRITE(Введите предложение); READLN(z); n:=length(z); s:=; For i:=1 to n do IF z[i]и then s:=s+z[i] else s:=s+е; Writeln(s); End.
9 Дано предложение. Заменить в нем все вхождения буквосочетания «да» на «нет».
Уроки C# – Работа со строками – Replace, Contains, Remove, Trim, ToLower, ToUpper
10 Var z: string;k,n:byte; Begin WRITE(Введите предложение); READLN(z); while pos(да,z)0 do begin K:=pos(да,z); delete(z,k,2); Insert(нет,z,k); end; Writeln(z); End.
11 Обработка цифр в строке
12 Дан символ. Выяснить, является ли он цифрой.
13 Var c:char; Begin Writeln(Введите символ); Read(c); Case c of 0..9:writeln(Это цифра) else writeln(Это не цифра); end; End.
14 Дан текст, в котором имеются цифры. Найти максимальную цифру.
15 Var s:string; n,i:byte;k:char; Begin Writeln(Введите текст); Readln(s); n:=length(s);k:=0; for i:=1 to n do Case s[i] of 0..9: if s[i]>k then k:=s[i];end; Writeln(k);End.
16 Дан текст, в котором имеются цифры. Найти сумму цифр.
17 Var s:string; n,i:byte;k:integer; Begin Writeln(Введите текст); Readln(s); n:=length(s); for i:=1 to n do Case s[i] of 0..9: k:=k+(ord(s[i])-ord(0));end; Writeln(k);End.
18 Обработка строки по составному условию
19 Дан текст. Верно ли, что в нем есть пять идущих подряд одинаковых символов?
20 Var s:string; n,i,k,f:byte; Begin Write(Введите текст); Readln(s); n:=length(s); k:=1;
21 for i:=1 to n-1 do if s[i]=s[i+1] then k:=k+1 else begin if k=5 then f:=1; k:=1; end; if f=1 then write(да) else write(нет); End.
22 Даны два слова. Определить, сколько начальных букв первого слова совпадает с начальными буквами второго слова.
23 Var s1,s2:string; k:byte; Begin Write(Введите слово); Readln(s1); Write(Введите слово); Readln(s2); k:=1; while s1[k]=s2[k] do k:=k+1; writeln(k-1); End.
24 Составьте программу, определяющую, на какую букву заканчивается третье слово в предложении. Слова в предложении разделены одним пробелом.
25 Var s:string; k,a,n:byte; Begin Write(Введите предложение); Readln(s); n:=length(s); k:=0;a:=0; while (a
26 Var s:string; k:byte; Begin Write(Введите предложение); Readln(s); k:=pos(,s); delete(s,1,k); k:=pos(,s); writeln(s[k-1]); End.
Как заменить символ в строке Python
27 Составьте программу, определяющую длину самого длинного слова в предложении.
28 Var s:string; n,i,k,max:byte; Begin Write(Введите текст); Readln(s); s:=s+ ; n:=length(s); max:=1; k:=0; for i:=1 to n do if s[i] then k:=k+1else begin if k>max then max:=k; k:=0 end; write(max);End.
29 Дан текст. Найти наибольшее число идущих подряд одинаковых символов.
30 Var s:string; n,i,k,max:byte; Begin Write(Введите текст);Readln(s); n:=length(s);max:=1;k:=1; for i:=1 to n-1 do if s[i]=s[i+1] then k:=k+1 else begin if k>max then max:=k; k:=1 end; write(max);End.
31 Составьте программу, определяющую самое длинное слово в предложении.
32 Var s,st,sm:string; n,i:byte; Begin Write(Введите текст); Readln(s); n:=length(s);sm:=; for i:=1 to n do if (s[i] ) or (s[i].) then st:=st+s[i] else begin if length(st)>length(sm) then sm:=st;st:= end; write(sm); End.
Источник: www.myshared.ru
Как сделать текст наоборот в word?
MS Word — самый многофункциональный, наиболее востребованный и распространенный в мире инструмент для работы с текстом. Эта программа представляет собой нечто значительно большее, чем банальный текстовый редактор хотя бы той причине, что ее возможности не ограничиваются простым набором текста, его редактированием и изменением форматирования.
Все мы привыкли читать текст слева направо и писать/печатать точно так же, что вполне логично, но иногда требуется повернуть, а то и вовсе перевернуть текст. Сделать это с легкостью можно в Ворде, о чем мы и расскажем ниже.
Примечание: Изложенная ниже инструкция показана на примере MS Office Word 2016, также она будет применима к версиям 2010 и 2013 года. О том, как переворачивать текст в Ворд 2007 и более ранних версиях этой прораммы, мы расскажем во второй половине статьи.
Отдельно стоит отметить тот факт, что методика, описанная ниже, не подразумевает вращение уже готового, написанного в документе текста. Если же вам необходимо перевернуть заранее написанный текст, потребуется его вырезать или скопировать из документа, в котором он содержится, а затем использоать с учетом нашей инструкции.
Поворачиваем и переворачиваем текст в Word 2010 — 2016
1. Из вкладки «Главная» необходимо перейти во вкладку «Вставка».
2. В группе «Текст» найдите кнопку «Текстовое поле» и нажмите на нее.
3. В развернувшемся меню выберите подходящий вариант размещения текста на листе. Вариант «Простая надпись» (первый в списке) рекомендован в случаях, если вам не нужно обрамление текста, то есть, требуется невидимое поле и только текст, с которым и можно работать в дальнейшем.
4. Перед вами появится текстовое поле с шаблонным текстом, который свободно можно заменить на тот текст, который вы хотите перевернуть. Если выбранный вами текст не помещается в фигуру, изменить ее размеры можно простым перетаскиванием в стороны за края.
5. При необходимости, выполните форматирование текста, изменив его шрифт, размер и положение внутри фигуры.
6. Во вкладке «Формат», расположенной в основном разделе «Средства рисования», нажмите на кнопку «Контур фигуры».
7. Из развернувшегося меню выберите «Нет контура», если вам это необходимо (таким образом можно скрыть принадлежность текста к текстовому полю), или установите любой цвет по желанию.
8. Переверните текст, выбрав удобный и/или необходимый вариант:
- Желая в Word перевернуть текст под любым углом, нажмите на круглую стрелку, расположенную над текстовым полем, и удерживайте ее, поворачивая саму фигуру с помощью мышки. Установив желаемое положение текста, кликните мышкой в стороне вне поля.
- Чтобы перевернуть текст или перевернуть слово в Ворде на строго определенный угол (90, 180, 270 градусов или любые другие точные значения), во вкладке «Формат» в группе «Упорядочить» нажмите на кнопку «Повернуть» и выберите из развернувшегося меню необходимый вариант.
Примечание: Если значения, указанные в этом меню по умолчанию, вам не подходят, нажмите «Повернуть» и выберите «Другие параметры поворота».
В появившемся окне вы можете указать желамемые параметры для поворота текста, в том числе и конкретный угол поворота, затем нажмите «ОК» и кликните мышкой на листе за пределами текстового поля.
Поворачиваем и переворачиваем текст в Word 2003 — 2007
В версиях программного офисного компонента от Microsoft 2003 — 2007 текстовое поле создается как изображение, вращается оно точно так же.
1. Для вставки текстового поля перейдите ко вкладке «Вставка», нажмите на кнопку «Надпись», из развернувшегося меню выберите пункт «Нарисовать надпись».
2. Введите в появившееся текстовое поле необходимый текст или вставьте его. Если текст не помешается, измените размеры поля, растягивая его за края.
3. Если это требуется, выполните форматирование текста, отредактируйте его, проще говоря, придайте ему требуемый вид до того, как будете в Ворде переворачивать текст вверх ногами или поворачивать его так, как вам нужно.
4. Доведя текст до ума, вырежьте его (Ctrl+X или команда «Вырезать» во вкладке «Главная»).
5. Вставьте текстщвое поле, но не используйте для этого горячие клавиши или стандартную команду: во вкладке «Главная» нажмите кнопку «Вставить» и в развернувшемся меню выберите пункт «Специальная вставка».
6. Выберите желаемый формат изображения, затем нажмите «ОК» — текст будет вставлен в документ в виде изображения.
7. Поверните или переверните текст, выбрав один из удобных и/или требуемых вариантов:
- Нажмите на круглую стрелку над изображением и тяните ее, поворачивая картинку с текстом после чего кликните за пределами фигуры.
- Во вкладке «Формат» (группа «Упорядочить») нажмите кнопку «Повернуть» и выберите необходимое значение из развернувшегося меню, либо же укажите собственные параметры, выбрав пункт «Другие параметры поворота».
Примечание: Используя методику переворота текста, описанную в данной статье, вы также можете и перевернуть всего одну букву в слове в программе Word. Проблема лишь в том, что придется очень долго повозиться с тем, чтобы сделать ее положение в слове приемлемым для чтения. Кроме того, некоторые перевернутые буквы можно найти в разделе символов, представленных в широком ассортименте в этой программе. Для детального ознакомления рекомендуем прочесть нашу статью.
Урок: Вставка символов и знаков в Ворде
На этом все, теперь вы знаете, как повернуть текст в MS Word под произвольным или требуетм углом, а также о том, как перевернуть его вверх ногами. Как вы уже могли понять, сделать это можно во всех версиях популярной программы, как в самых новых, так и в более старых. Желаем вам только положительных результатов в работе и обучение.