Увеличение на 1

@KAPATEJlb · Регистрация: 05.02.2017

Студворк — интернет-сервис помощи студентам

Пользователь вводит стринговую переменную. ( S:='kek')
как сделать так,что бы в эту переменную добавлялась постепенно цифра ,то есть kek 1 ,kek 2, kek 3, kek 4 и т.д до максимального ,ну как-то примерно

Pascal
1
for a := 0 to 10 do begin

...

@Alexandr212 · 12.04.2017, 20:47

Обязательно должен присутствовать пробел между цифрой и словом? Цифра должна просто меняться, или дописываться? Откуда брать максимальное?

@KAPATEJlb · 12.04.2017, 20:50 **[ТС]**

Сообщение от Alexandr212

Обязательно должен присутствовать пробел между цифрой и словом? Цифра должна просто меняться, или дописываться? Откуда брать максимальное?

Пробел обязательно должен присутствовать,цифра должна меняться на 1 с промежутком времени(ну таймер я сам поставлю),не дописываться "1 12 123" а меняться kek 1 kek 2 kek 3 и т.д

@Hitoku · 12.04.2017, 20:56

Типа того?

Pascal
1
2
3
4
5
6
7
8
uses crt;
begin
  var s:=ReadlnString('Введите строку:'); clrscr;
  for var i:=1 to 10 do begin 
    write(s,' ',i);
    sleep(1000); clrscr;
  end;
end.

@KAPATEJlb · 12.04.2017, 21:04 **[ТС]**

Pascal
1
2
for a:=0 to 10 do begin
s1:=S +a;

реализовал таким образом,всем спасибо

Добавлено через 2 минуты
Еще вопросик,может ли паскаль ,как и делфи эмулировать нажатие клавиш?Подскажите темку или ссылочку

@Hitoku · 12.04.2017, 21:05

Не по теме:

Это было странно :scratch:

@Alexandr212 · 12.04.2017, 21:14

Hitoku Ваш вариант не интересен, почему не сделать так?))))

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
begin
  var s := ReadlnString('Введите строку:');
  s += ' 1';
  writeln(s);
  for i: integer := 1 to 20
  do 
  begin
    var a := i + 1;
    s := s.Replace(i.ToString, a.ToString);
    writeln(s);
  end;
end.

@Hitoku · 12.04.2017, 21:19

Не по теме:

Alexandr212, подход другой совсем

Добавлено через 1 минуту
Alexandr212, ну и если на то пошло

Pascal
1
2
3
4
begin
  var s := ReadlnString('Введите строку:');
  for var i:= 1 to 20 do writeln(Format('{0} {1}',s,i));
end.

@Alexandr212 · 12.04.2017, 21:21

Не по теме:

Но повеселее!)))

Добавлено через 1 минуту

Не по теме:

Нуууу так уже нечестно :p

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Alexandr212 101 / 98 / 112 Регистрация: 28.11.2016 Сообщений: 528
	12.04.2017, 20:47
	Обязательно должен присутствовать пробел между цифрой и словом? Цифра должна просто меняться, или дописываться? Откуда брать максимальное? 0

@Hitoku
	12.04.2017, 21:05
	Не по теме: Это было странно :scratch: 0

@Alexandr212 101 / 98 / 112 Регистрация: 28.11.2016 Сообщений: 528
	12.04.2017, 21:21
	Не по теме: Но повеселее!))) Добавлено через 1 минуту Не по теме: Нуууу так уже нечестно :p 0