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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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