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

Посчитать пробелы и переставить в начало

06.06.2013, 14:43. Показов 608. Ответов 2
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
Var s:string;
k,i:byte;
Begin
    write('Введите строку: ');
    readln(s);
    k:=0;
    i:=Length(s);
  While i>k do
    Begin
       if s[i]=' ' then
         Begin
      inc(k);
      Delete(s,i,1);
      Insert(' ',s,1);
        End;
      dec(i);
   End;
writeln('Измененная строка: ',s,'. Число пробелов ',k);
readln;
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2013, 14:43
Ответы с готовыми решениями:

Переставить все пробелы в начало строки
Имеется предложение из нескольких слов. Переставить все пробелы в начало строки. До-полнительных...

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

Переставить последнее слово в начало
Нужно написать макрос в VBA для Word: В каждом предложении текущего абзаца переставить последнее...

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

2
325 / 311 / 187
Регистрация: 31.03.2013
Сообщений: 2,351
06.06.2013, 18:11 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
Var s:string;
k,i:byte;
Begin
write('Введите строку: ');
readln(s); k:=0;
for i:=1 to length(s) do
if s[i]=' ' then
Begin
inc(k);
Delete(s,i,1);
Insert(' ',s,1);
dec(i);
End;
writeln;
writeln('Измененная строка: ',s,'. Число пробелов ',k);
End.
Добавлено через 24 секунды
Сейчас напишет UI что так делать нельзя и это ошибка компилятора...... Ждем.....
1
SausageFlat
242 / 221 / 154
Регистрация: 19.08.2012
Сообщений: 499
Записей в блоге: 1
06.06.2013, 22:18 3
Как обещал, если нужно - утром объясню ошибку, а щас засыпаю...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var s:string;
k,i:byte;
Begin
    write('Введите строку: ');
    readln(s);
    k:=0;
    i:=Length(s);
  While i>k do
    Begin
       if s[i]=' ' then
         Begin
      inc(k);
      Delete(s,i,1);
      Insert(' ',s,1);
        End
        else
      dec(i);
   End;
writeln('Измененная строка: ',s,'. Число пробелов ',k);
readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2013, 22:18
Помогаю со студенческими работами здесь

Переставить последнюю цифру числа в начало
Как поставить последнюю цифру на первое место слева. К примеру число 321 -> 132, 578 - > 857

Переставить фрагмент текста в начало строки
Добрых выходных! Задача: Создайте программу,где на входе принимается текст любой длины. Единица...

Переставить нули и двойки в начало массива
Собственно решение у меня есть, но я не понимаю этого кода, можете пожалуйста объяснить, что делает...

Все повторяющиеся элементы переставить в самое начало
Все повторяющиеся элементы переставить в самое начало.Вот мой код.Не могу понять почему не...


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

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

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