Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2012, 10:02   #1
gloomy_jr
Новичок
Джуниор
 
Регистрация: 22.05.2012
Сообщений: 14
По умолчанию строки

Пусть имеется набор символов ai, a2,.....,an. Составить программу, которая позволит напечатать все пары символов, которые можно из этого набора состаить
gloomy_jr вне форума Ответить с цитированием
Старый 22.05.2012, 10:13   #2
Noor
Участник клуба
 
Аватар для Noor
 
Регистрация: 01.11.2006
Сообщений: 1,082
По умолчанию

Вот есть нужный Вам код, только его нужно "посолить & поперчить по вкусу" (заточить под себя)
Код:
uses crt;
procedure change(s,new:string);{генерация анаграмм}
var t1,t2:string;{буферы для временного хранения строки}
      i:byte;
begin
  t1 := s;
  t2 := new;
  if (length(t1) > 1) then {если осталось больше 1 символа}
  for i:=1 to length(t1) do
   begin
    t2 := t2 + t1[i];{перепишем их в новую}
    delete(t1,pos(t1[i],t1),1);{по 1 удалим из старой}
    change(t1,t2);{повторим процедуру}
    t1 := s;{новые значения}
    t2 := new;
   end
  else{если остался один 1 символ}
  writeln(t2,t1);{выводим новую и остаток старой}
end;
 
var s,new:string[4];
begin
clrscr;
repeat
write('Введите слово из 4 символов s=');
readln(s);
until length(s)=4;
clrscr;
new := '';
change(s,new);
readln
end.
Noor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа на языке "Ассемблер" - ввод строки, анализ длины строки, добавление точки в конец строки Алексей_2012 Помощь студентам 1 05.04.2012 11:26
Сделать в гриде строки выше, чтобы не растягивать строки до бесконечности kris__tina БД в Delphi 1 09.06.2011 15:31
Создание пустой строки и копирование в неё содержимое предыдущей строки Gvaridos Microsoft Office Excel 2 29.10.2010 13:33
Определять максимальную длину той части строки s, которая не содержит символы из строки s1. Александе еть я Общие вопросы C/C++ 5 13.04.2010 20:54
Перенести символа с начала строки в место перед запятой этой же строки. Zhiltsov Microsoft Office Excel 4 05.06.2009 13:10