Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.04.2010, 13:41   #1
Ela
Новичок
Джуниор
 
Регистрация: 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.
Ela вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Строки(группы букв и группы знаков), 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