Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Виктория_Я
0 / 0 / 0
Регистрация: 18.10.2011
Сообщений: 4
#1

Дано слово из четного числа букв. Поменять местами его половины - Pascal ABC

18.10.2011, 14:48. Просмотров 1584. Ответов 2
Метки нет (Все метки)

1.Дано слово из четного числа букв.Поменять местами его половины.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.10.2011, 14:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано слово из четного числа букв. Поменять местами его половины (Pascal ABC):

Дан массив из четного числа элементов. Поменять местами его половины
Дан массив из четного числа элементов. Поменять местами его половины

Дано слово, состоящее из четного количества букв. Поменять местами первую и вторую, третью и четвертую, пятую и шестую,., буквы
Дано слово, состоящее из четного количества букв. Поменять местами первую и вторую, третью и четвертую, пятую и шестую,..., буквы

Дано слово. Поменять местами его третью и последнюю букву.
Дано слово. Поменять местами его третью и последнюю букву. Дан текст, в котором имеется несколько идущих подряд цифр. Получить...

Строки верхней половины массива поменять местами со строками нижней половины
Дан двухмерный массив из четного числа строк. Строки верхней половины массива поменять местами со строками нижней половины

Строки верхней половины матрицы поменять местами со строками нижней половины
Дан двумерный массив из четного числа строк и столбцов а) строки верхней половины поменять местами со строками нижней половины б)...

Если сумма элементов массива больше нуля, то поменять местами первую и вторую его половины
Написать алгоритм и программу, которые исходный числовой массив данных считывает из текстового файла f1, а выходную информацию записывает в...

2
mamedovvms
2918 / 839 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
18.10.2011, 14:55 #2
Лучший ответ Сообщение было отмечено Виктория_Я как решение

Решение

1)
Pascal
1
ss:=copy(s,length(s) div 2+1,length(s) div 2)+copy(s,1,length(s) div 2);
s- данная строка
0
log(n)
107 / 107 / 72
Регистрация: 13.10.2011
Сообщений: 227
18.10.2011, 15:12 #3
1 )
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var  i,x,y:byte;a,b:string; 
begin 
repeat
writeln('Введите слово из четного числа букв: '); 
readln(a); 
x:=length(a);         
until (x mod 2 = 0); 
y:= x div 2; 
b:='';        
for i:=y+1 to x do b:=b+a[I]; 
for i:=1 to y do b:=b+a[i]; 
writeln(b); 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2011, 15:12
Привет! Вот еще темы с решениями:

Дано ошибочно написанное слово «килбайот». Путем перемещения его букв получить слово «килобайт»
Дано ошибочно написанное слово «килбайот». Путем перемещения его букв получить слово «килобайт».

Дан двухмерный массив из четного числа строк. Поменять местами первую строку со второй, третью - с четвертой.
Дан двухмерный массив из четного числа строк. Поменять местами первую строку со второй, третью - с четвертой.

Дан двухмерный массив из четного числа столбцов. Поменять местами первый столбец со вторым, третий - с четвертым и т. д
Дан двухмерный массив из четного числа столбцов. Поменять местами первый столбец со вторым, третий - с четвертым и т. д.

Дано слово. Перенести первые К его букв в конец
Прошу помочь в решении задачи: 2.Дано слово. Перенести первые К его букв в конец. Задачу решить двумя способами: а. без...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru