Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
redeezko
0 / 0 / 0
Регистрация: 22.10.2009
Сообщений: 4
1

Литерный тип..

22.10.2009, 21:16. Просмотров 1144. Ответов 2
Метки нет (Все метки)

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

Вот что сам написал
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var x,x1,y:char;
    k:integer;
begin
 
  writeln('vvedite text');
  read(x);
  if x<>'.' then
      begin
        while (x<>' ') and (x<>'.') do
                read(x);
        if x<>'.' then
            begin
              while (x<>'.') and (x<>' ') do
                      read(x);
        if x<>'.' then
            begin
              x1:=x;
              read(x);
        if (x<>'.') and (x<>' ') then
 
        if x1=x then
            k:=k+1
            end
            end
            end;
 
  writeln('k=',k);
  readln;
  readln;
End.
о она не работает. переменная k всегда равна 1. Прошу указать на ошибку. Заранее спасибо
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2009, 21:16
Ответы с готовыми решениями:

Литерный тип! информатика
29. Пусть даны целое число n, символы s1, s2, ..., sn. Выясните, имеются ли в...

Литерный ввод
Доброго времени суток) помогите пожалуйста... Используя только литерный ввод,...

Используя только литерный вывод, вывести на печать значение целой переменной L
Помогите!!! Используя только литерный вывод, вывести на печать значение целой...

Как сделать тип данных или уже есть такой тип данных который состоит из всех печатыемых символов?
Как сделать тип данных или уже есть такой тип данных который состоит из всех...

Какой функцией можно преобразовать тип byte в тип string и наоборот?
Вот моя проблема, у меня конченое действие будет выводить число в 10 С.С и в...

2
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
22.10.2009, 21:26 2
Лучший ответ Сообщение было отмечено redeezko как решение

Решение

Если вы читаете только 1 символ, то что вы хотите. Да и дальше не поймешь что написано.

Добавлено через 4 минуты
Вводить текст нужно так.
writeln('Введите текст, окончание точка:');
Pascal
1
2
3
4
5
6
7
8
9
s:='';
repeat
read(c);
s:=s+c;
until c='.';
readln;
writeln;
writeln('Исходная строка:');
writeln(s);
0
redeezko
0 / 0 / 0
Регистрация: 22.10.2009
Сообщений: 4
22.10.2009, 21:42  [ТС] 3
Puporev, да я вроде в цикле читаю по одному символу. то есть я их считываю пока символ не точка. Я примерно понимаю как мне нужно сделать задачу, но не могу это записать. В общем в начале текста я пропускаю все пробелы, и как только встречаю первый символ первого слова то запоминаю его в переменную. Потом я считываю следующий символ и запоминаю его в другую переменную. Далее считываю следующий символ. Если он точка или пробел то я сравниваю два символа которые я запомнил, и если они равны, то увеличиваю счетчик на единицу. Вроде как то так, осталось записать это на паскале, что у меня и не получается
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2009, 21:42

литерный тип !
никак не могу понять : Задано неотрицательное целое число, записанное в...

Литерный тип,нужно закончить программу.
Пусть даны символы s1,s2...sn. Известно что s1 отличен от восклицательного...

Литерный, символьный массив
1)Объявить строку ng3 как литерный массив, не указав длину строки, и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru