Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/21: Рейтинг темы: голосов - 21, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 13.02.2015
Сообщений: 17
1

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

13.02.2015, 18:04. Показов 3807. Ответов 3
Метки нет (Все метки)

Дано ошибочно написанное слово «килбайот». Путем
перемещения его букв получить слово «килобайт».
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.02.2015, 18:04
Ответы с готовыми решениями:

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

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

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

Дано слово. Получить слово, получаемое путем прочтения слова начиная с его конца
Дано слово s.Получить слово t,получаемое путем прочтения слова начиная с его конца.

3
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
13.02.2015, 19:46 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{Дано ошибочно написанное слово <килбайот>. Путем
перемещения его букв получить слово <килобайт>.}
var
  s:string;
  c:char;
begin
  s:='килбайот';
  c:=s[7];
  s[7]:=s[4];
  s[4]:=c;
  c:=s[7];
  s[7]:=s[5];
  s[5]:=c;
  c:=s[7];
  s[7]:=s[6];
  s[6]:=c;
  writeln(s);
  readln;
end.
0
0 / 0 / 0
Регистрация: 13.02.2015
Сообщений: 17
13.02.2015, 20:01  [ТС] 3
Спасибо, вы мне очень помогли!
0
Модератор
8684 / 4338 / 2979
Регистрация: 17.08.2012
Сообщений: 13,805
15.02.2015, 20:37 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Ещё вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
program Project1;
var s: string;
    c: string;
begin
  s := 'килбайот';
  c := copy(s, 7, 1);
  delete(s, 7, 1);
  insert(c, s, 4);
  writeln(s);
  readln
end.
Ещё вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var s: string;
    c: char;
    i: integer;
begin
  s := 'килбайот';
  c := s[7];
  for i := 6 downto 4 do s[i + 1] := s[i];
  s[4] := c;
  writeln(s);
  readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.02.2015, 20:37

Дано слово s. Получить слово t, путем прочтения s с конца
С заданием я справилась, но возник вопрос можно ли это как-то по-другому сделать: ...

Из слова строка путем замены его букв получить слово строфа
Из слова строка путем замены его букв получить слово строфа. Помогите с программой

Из слова 'яблоко' путем 'вырезок' и 'склеек' его букв получить слово 'блок' и 'око'
из слово 'яблоко' путем 'вырезок' и 'склеек' его букв получить слово 'блок' и 'око'

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru