|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.04.2010, 13:41 | #1 |
Новичок
Джуниор
Регистрация: 29.04.2010
Сообщений: 1
|
Группы символов, состоящие только из латинских букв, если первая буква группы входит в нее еще только оди
пожулуйста, помогите немного переделать программу
у меня такое задание [I]- Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результат на дисплей в виде строки. - Длина строки заранее не вводится, а определяется после окончания ввода с клавиатуры. - В строке группы символов разделяются одним или несколькими пробелами. Пробелы могут находиться в начале и в конце строки. Группа символов - последовательность букв, цифр или знаков, отделенная пробелами от других групп или находящаяся в начале/конце строки. - Все буквы считать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать. - В заголовок окна программы записать свои данные: имя, фамилию и номер варианта. Группы символов, состоящие только из латинских букв, если первая буква группы входит в нее еще только один раз. есть прога только немного иная для такого задания очень похожего Группы символов, состоящие только из латинских букв, если последняя буква группы входит в нее еще только один раз. вот она: Program my3; uses wincrt,strings; var st_in,st_out,st_pz:string; n,m,x,k,p,j,i,a:byte; Begin screensize.x:=30; screensize.y:=100; strCopy(WindowTitle, 'Igor Kozlov, 10v'); Writeln ('vvedite stroku'); Readln (st_in); st_in:= st_in + ' '; n:=length(st_in); k:=0; For i:=1 to n do Begin If st_in[i]=' ' then If k>0 then Begin st_pz:=Copy(st_in,k,i-k); m:=length(st_pz); p:=0; For j:=1 to m do Begin If (ord(st_pz[j])<ord('a')) or (ord(st_pz[j])>ord('z')) then Begin p:=10; break; end; If st_pz[j]=st_pz[m] then inc(p); end; If p=2 then st_out:= concat(st_out,st_pz,' '); k:=0; end Else continue Else If k=0 then k:=i; end; writeln(st_out); readln; DoneWinCrt; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Строки(группы букв и группы знаков), Pascal | Mrs Smith | Помощь студентам | 1 | 10.12.2009 16:31 |
Найти слова, состоящие только из согласных букв и вывести их на экран | Кипятилка | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 29.06.2009 18:52 |
Удалить из строки все группы букв вида abcd | Григорийpnz | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 27.11.2008 12:48 |
как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и т.д. | vitalik007 | Помощь студентам | 1 | 25.09.2007 20:45 |
Вывести на экран те слова, у которых первая буква входит в него 2 раза. | GN_ | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 31.12.2006 09:14 |