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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.09.2007, 19:45   #1
vitalik007
Дельфист
Форумчанин
 
Аватар для vitalik007
 
Регистрация: 14.08.2007
Сообщений: 317
По умолчанию как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и т.д.

Пользователь вводит две строки
как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и так далее
например
s1='qwert'
s2='asd'
otvet='qawsedrt'
ICQ-465033557
WINDOWS CE THE BEST
vitalik007 вне форума Ответить с цитированием
Старый 25.09.2007, 20:45   #2
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

попробуй это
Код:
if Length(s1) > Length(s2) then max:=Length(s1) else max:=Length(s2);
for i:=1 to max do 
  begin
  if i <= Length(s1) then otvet:=otvet+s1[i];
   if i <= Length(s2) then otvet:=otvet+s2[i];
  end;
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
количество слов, первая и последняя буква которых совпадают gred Помощь студентам 4 13.11.2014 13:56
Удвоить каждый символ строки, потом перевернуть строку Didi Помощь студентам 6 20.05.2008 15:33
считать из файла две строки, вывести на экран символы первой строки, которые отсутствуют во второй gotex Помощь студентам 4 08.05.2008 02:27
Буква CD-ROM’a Micha Компоненты Delphi 5 05.10.2007 11:36
Вывести на экран те слова, у которых первая буква входит в него 2 раза. GN_ Паскаль, Turbo Pascal, PascalABC.NET 2 31.12.2006 09:14