0 / 0 / 0
Регистрация: 19.06.2009
Сообщений: 9
1

Определить количество слов, у которых первая буква совпадает с последней буквой первого слова.

22.06.2009, 08:17. Показов 3362. Ответов 13
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите, пожалуйста, вывод подсчитанной строки сделать, не получается (

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var s,s1,ch: string; A,B :integer;
WriteLn('Введите строку:');
ReadLn(s);
S := S + ' ';  
A := 0; 
B := 0; 
Ch := S[Pos(' ', S)-1];  
while Pos(' ', S) > 0 do begin
S1 := Copy(S, 1, Pos(' ', S)-1); 
Delete(S, 1, Pos(' ', S)); 
if (S1[1] = Ch) and (B > 0) then 
Inc(A); 
Inc(B);
end;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2009, 08:17
Ответы с готовыми решениями:

Если первая буква второго слова совпадает с последней буквой третьего слова, поменять местами второе и третье
Дан текст, слова которого отделяются друг от друга пробелами. Если первая буква второго слова...

Дан текст. Удалить лишние пробелы, если последняя буква первого слова совпадает с первой буквой последнего
Дан текст, слова которого отделяются друг от друга одним или несколькими пробелами. Удалить лишние...

Найти количество слов, у которых первая и последняя буква одинаковые
Пожалуйста, решите кто-нибудь. Буду благодарна за помощь. Заранее спасибо. Дана строка слов,...

Найти во введенном предложении количество слов, у которых совпадают первая и последняя буква
у меня есть такая задачка, её надо переделать под такое условие: составить программу поиска во...

13
6 / 6 / 1
Регистрация: 12.06.2009
Сообщений: 13
22.06.2009, 09:38 2
мне кажется Вы немного перепутали разделы))) а вообще вывод осуществляется с помощью
Pascal
1
writeln();
в вашем случае будет
Pascal
1
writeln(*);
где вместо * будет стоять та строковая переменная , которую вы хотите вывести
0
0 / 0 / 0
Регистрация: 19.06.2009
Сообщений: 9
22.06.2009, 09:41  [ТС] 3
Я знаю, что Writeln, но программа ее не выводит!
0
6 / 6 / 1
Регистрация: 12.06.2009
Сообщений: 13
22.06.2009, 09:43 4
будьте добры покажите весь ваш код , каким образом вы все это делаете
0
0 / 0 / 0
Регистрация: 19.06.2009
Сообщений: 9
22.06.2009, 09:53  [ТС] 5
Я не знаю где мне Writeln прописывать и вероятно там еще подсчет слов должен быть
Вложения
Тип файла: rar #7.rar (343 байт, 27 просмотров)
0
6 / 6 / 1
Регистрация: 12.06.2009
Сообщений: 13
22.06.2009, 10:03 6
как я понял , заданием является посчитать количество слов в строке?
0
0 / 0 / 0
Регистрация: 19.06.2009
Сообщений: 9
22.06.2009, 10:05  [ТС] 7
Да, у которых первая буква совпадает с последней буквой первого слова.
0
6 / 6 / 1
Регистрация: 12.06.2009
Сообщений: 13
22.06.2009, 10:18 8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var 
s,s1,ch: string; 
A,B:integer;
BEGIN
WriteLn('Введите строку:');
ReadLn(s);
S := S + ' ';
A := 0;
B := 0;
Ch := S[Pos(' ', S)-1];
while Pos(' ', S) > 0 do 
begin
   S1 := Copy(S, 1, Pos(' ', S)-1);
   Delete(S, 1, Pos(' ', S));
    if (S1[1] = Ch) and (B > 0) then
       begin
         Inc(A);
         writeln(s1); 
       end;
   Inc(B);
end;
END.
вроде работает)
0
0 / 0 / 0
Регистрация: 19.06.2009
Сообщений: 9
22.06.2009, 10:31  [ТС] 9
Программа вводит строку, но результат не выводит, не считает количество слов! А зачем у вас в переменных tmp и count? Они в коде программы вроде не встречаются...

Добавлено через 3 минуты 59 секунд
Не считает
0
6 / 6 / 1
Регистрация: 12.06.2009
Сообщений: 13
22.06.2009, 10:32 10
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
s,s1,ch: string;
A,B:integer;
BEGIN
WriteLn('Введите строку:');
ReadLn(s);
S := S + ' ';
A := 0;
B := 0;
Ch := S[Pos(' ', S)-1];
while Pos(' ', S) > 0 do
begin
   S1 := Copy(S, 1, Pos(' ', S)-1);
   Delete(S, 1, Pos(' ', S));
    if (S1[1] = Ch) and (B > 0) then
       begin
         Inc(A);
       end;
   Inc(B);
end;
writeln('Kolvo slov = ' , a);
readln;
END.
вот все работает , что касается tmp и count , для себя делал , проверял кое что
0
0 / 0 / 0
Регистрация: 19.06.2009
Сообщений: 9
22.06.2009, 10:40  [ТС] 11
Writeln выводит, но опять таки не считает. Выводит 0. Вроде все так набираю...
0
6 / 6 / 1
Регистрация: 12.06.2009
Сообщений: 13
22.06.2009, 10:45 12
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

незнаю как вы набираете , вот пример работы этой "программы"
Введите строку:
hello omg odfgfg ldfgkdfg dfg ldf go dfog dfg o
Kolvo slov = 3
как вы видете все работает , еще раз кидаю код
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
s,s1,ch: string;
A,B:integer;
BEGIN
WriteLn('Введите строку:');
ReadLn(s);
S := S + ' ';
A := 0;
B := 0;
Ch := S[Pos(' ', S)-1];
while Pos(' ', S) > 0 do
begin
   S1 := Copy(S, 1, Pos(' ', S)-1);
   Delete(S, 1, Pos(' ', S));
    if (S1[1] = Ch) and (B > 0) then
       begin
         Inc(A);
       end;
   Inc(B);
end;
writeln('Kolvo slov = ' , a);
readln;
END.
1
slayer83
22.06.2009, 10:59 13
а не проще про парсить получить масив чаров и сравнить последний елемент с первым!!!
0 / 0 / 0
Регистрация: 19.06.2009
Сообщений: 9
22.06.2009, 11:05  [ТС] 14
Ура! Получилось! Я думаю вся проблема в том была, что в значениях (' ') я не ставила пробелы. А вот где Inc(A) можно операторы Begin и end наверно не ставить.
Спасибо вам, junsong!
0
22.06.2009, 11:05
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2009, 11:05
Помогаю со студенческими работами здесь

Напечатать те слова последовательности, в которых первая буква слова входит в него ещё раз
Дана последовательность, состоящая из 10 слов. Напечатать те слова последовательности, в которых...

Определить количество слов, у которых первая и последняя буквы в слове - одинаковы
Общие указания при составлении программ к данной теме: 1. Текст стандартного типа String ввести с...

Определить количество слов, в которых содержится хотя бы одна заданная буква
Дан текст. Определить количество слов, в которых содержится хотя бы одна заданная буква.

Вывести слова, в которых первая буква входит в них один раз
Пожалуйста помогите разобраться в задаче на pascale!!! Буду очень признателен! Задача№1 Дана...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru