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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.04.2010, 19:43   #1
bingooo
Пользователь
 
Регистрация: 04.04.2010
Сообщений: 29
По умолчанию доделайте программу,строки пжалуйста

В строке малыми латинскими буквами записаны слова, разделяющиеся запятыми. Первые буквы некоторых слов могут совпадать. Указать минимальное количество первых букв, по которым можно различить слова из заданного списка.
Вот мой исходник:
uses crt;
const zap:string[1]=',';
var s:string;
t,l,i,n:integer;
begin
clrscr;
writeln('vvedi slova cherez zapiatuiu: ');
readln(s);
l:=length(s);
t:=1;
n:=1;
for i:=1 to l do
begin
if s[i]=zap
then
if s[t]<>s[i+n]
then writeln('t=',t) else t:=t+1; n:=n+1;
end;
writeln('t=',t);
end.

у меня получается, что проверяет только когда первые буквы не равны и равны. Помогите пожалуйста переделать так, чтобы и вторые, третьи и т.д. буквы проверяло.
bingooo вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Передать строки из dll в программу 856100 Общие вопросы Delphi 6 03.08.2009 00:37
работа в delphi с записями подскажите пример, пжалуйста бедный_студент Помощь студентам 4 25.03.2009 17:28
кто может создать программу на строки в паскале? пожайлуста помогите. Tenzen Помощь студентам 5 05.03.2009 22:16
Помогите сделать программу c выводом строки задом наперед(Pascal) Batman10000 Помощь студентам 2 14.12.2008 17:54
объясните пжалуйста что эт такое.....classid....и его параметры плиз очень срочно н. _Solomon_ HTML и CSS 0 14.02.2007 08:26