Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Определение букв в текте
Автор: teeny 12.09.2003 20:47
ЛЮДИ! ПОЖАЛУЙСТА ПОМОГИТЕ! Очень срочно!
Вот задача, плиз помогите решить!
В заданном тексте определить одинаковые или нет первая, средняя, последняя
буквы. Сообщение вывести на дисплей.
Заданный текст: Собачка
Заранее спасибо!
Автор: AlaRic 12.09.2003 21:41
Вот решение на скорую руку. Оформишь топик также и в следующий раз - удалю!
Код
program m2;
var s:string[10];
i:integer;
begin
s:='собачка';
if (s[1]=s[4]) and (s[4]=s[7]) then write('Все буквы одинаковы')
else
if s[1]=s[4] then write('Первая и средняя буквы одинаковы') else
if s[1]=s[7] then write('Первая и последняя буквы одинаковы') else
if s[4]=s[7] then write('Средняя и последняя буквы одинаковы') else
write('Одинаковых букв нет');
end.
var s:string[10];
i:integer;
begin
s:='собачка';
if (s[1]=s[4]) and (s[4]=s[7]) then write('Все буквы одинаковы')
else
if s[1]=s[4] then write('Первая и средняя буквы одинаковы') else
if s[1]=s[7] then write('Первая и последняя буквы одинаковы') else
if s[4]=s[7] then write('Средняя и последняя буквы одинаковы') else
write('Одинаковых букв нет');
end.
Автор: Ivs 13.09.2003 3:06
Первую определять конечно же s[1], последнюю s[length(s)], среднюю s[length(s) div 2] ну и между ними поставь равенство.
Автор: teeny 13.09.2003 13:26
Извините за название темы!
Я не знаа, что так нельзя (нежелательно называть темы)... Теперь буду знать!
Спасибо огромное за решение! 