Помогите решить задачку - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить задачку (PascalABC)

Помогите решить задачку

Дано слово. Переставить его s-ю букву на место k-й (s<k). при этом (S+1)-ю, (s+2)-ю, …., k-ю буквы сдвинуть влево на одну позицию.

№1 | Автор: SkyRip | 2011-04-27, 10:38 | Репутация: [ + 0 ]

Не совсем понятна вторая часть задания..
ну первая просто совсем:

Code

tempStr:=str[s];
str[s]:=str[k];
str[k]:=tempStr;

а вот со сдвигом как - что тогда поставить на место k буквы и куда едть s+1..

If you can't make it GOOD make it LOOK GOOD. B.Gates

№2 | Автор: DoVe | 2011-04-27, 12:19 | Репутация: [ + 48 ]

Мне как препод сказал, там должен быть сдвиг в лево, т.е. пример:
программа - водим 2 и выбераем 5 получится вот так - прогроамма
Конечно если правельно написал)

№3 | Автор: SkyRip | 2011-04-27, 12:24 | Репутация: [ + 0 ]

еще хуже стало))))
а пример ввода так вообще не понятный

If you can't make it GOOD make it LOOK GOOD. B.Gates

№4 | Автор: DoVe | 2011-04-27, 12:54 | Репутация: [ + 48 ]

Так я тоже сегодня с сума сходил, еще объяснили не так как надо)
там ввод же идет сначало 's' потом 'k' ну и как получается (s<k), выбираем букву любую из слова (слово любое('s')), потом выбираем куда его хотим поставить('k'), и прг должна переставить букву в слове, типо чето такое....
Ой конечно бред)))

№5 | Автор: SkyRip | 2011-04-27, 13:01 | Изменено: SkyRip - Ср, 2011-04-27, 13:05 | Репутация: [ + 0 ]

Quote (SkyRip)

там ввод же идет сначало 's' потом 'k' ну и как получается (s<k), выбираем букву любую из слова (слово любое('s')), потом выбираем куда его хотим поставить('k'), и прг должна переставить букву в слове, типо чето такое....

ну это я еще в первом посте написал.
а со сдвигом че не понятно

If you can't make it GOOD make it LOOK GOOD. B.Gates

№6 | Автор: DoVe | 2011-04-27, 14:04 | Репутация: [ + 48 ]

If you can't make it GOOD make it LOOK GOOD. B.Gates

№6 | Автор: DoVe | 2011-04-27, 14:04 | Репутация: [ + 48 ]

Ясно ну хоть спс на этом, буду дальше сам))

№7 | Автор: SkyRip | 2011-04-27, 15:01 | Репутация: [ + 0 ]

Вот код, насколько я понял - работает по условию:

var
a:string;
i,s,k:byte;q:char;
begin
readln(s,k);
readln(a);
q:=a[k];a[k]:=a[s];a[s]:=q;
for i:=s to k-1 do begin
a[i]:=a[i+1];write(a[i]);end;
end.

По-моему - всё, так как в условии..

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№8 | Автор: Berestovskiy | 2011-04-27, 19:43 | Репутация: [ + 211 ]

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

Quote (SkyRip)

т.е. пример:
программа - водим 2 и выбераем 5 получится вот так - прогроамма

If you can't make it GOOD make it LOOK GOOD. B.Gates

№9 | Автор: DoVe | 2011-04-27, 19:47 | Репутация: [ + 48 ]

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

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№10 | Автор: Berestovskiy | 2011-04-27, 19:52 | Репутация: [ + 211 ]

может... не внятно как то поставленно

If you can't make it GOOD make it LOOK GOOD. B.Gates

№11 | Автор: DoVe | 2011-04-27, 20:00 | Репутация: [ + 48 ]

SkyRip, если препод отвергнет то скажи мол пусть толи более нормально объяснит в чём заключается задача толи хотя-бы пример приведёт ввода и вывода, по которому, желательно можно было бы понять в чём заключается вся суть:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№12 | Автор: Berestovskiy | 2011-04-27, 20:12 | Репутация: [ + 211 ]

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№12 | Автор: Berestovskiy | 2011-04-27, 20:12 | Репутация: [ + 211 ]

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить задачку (PascalABC)

Страница 1 из 1
1

прикладная математика