Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 13.04.2009
Сообщений: 19
1

Дан некоторый текст. Переставить в нем все буквы <<a>> в начало, а буквы <<я>> в конец

15.04.2009, 23:08. Просмотров 1455. Ответов 4
Метки нет (Все метки)


Дан некоторый текст. Переставить в нем все буквы <<a>> в начало, а буквы <<я>> в конец.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2009, 23:08
Ответы с готовыми решениями:

Переставить все входящие буквы «а» в начало слова, а буквы «я» – в конец
Привет! Нужно во всех словах строки S переставить все входящие буквы «а» в начало слова, а буквы...

Файловый ввод/вывод. Во всех словах строки переставить все входящие буквы «а» в начало слова, а буквы «я» – в конец
Здравствуйте! Помогите, пожалуйста, составить программу, которая считывает из текстового файла...

Переставить в нем все буквы "а" в начало, а буквы "я" – в конец.
Дан некоторый текст. Переставить в нем все буквы &quot;а&quot; в начало, а буквы &quot;я&quot; – в конец. Пример:...

Дан произвольный текст. Зашифровать этот текст, расположив в нем все буквы в порядке возрастания их кодов
дан произвольный текст. зашифровать этот текст, расположив в нем все буквы в порядке возрастания их...

4
0 / 0 / 0
Регистрация: 16.04.2009
Сообщений: 4
16.04.2009, 12:34 2
У мня похожая задачка...
Дан некоторый текст, поменять местами слова в которих частее встречаются буквы А і Я.
0
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
16.04.2009, 12:43 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program zz;
uses crt;
var st:string;
     i,a,ya:integer;
begin
 clrscr;
 write('-> ');
 readln(st);
 a:=1;
 ya:=length(st);
 
 for i:=1 to length(st) do
 if st[i]='а' then
 begin
  st[i]:=st[a];
  st[a]:='а';
  a:=a+1;
 end
 else if st[i]='я' then
 begin
  st[i]:=st[a];
  st[a]:='я';
  ya:=ya-1;
 end;
 
 writeln(st);
 readln;
end.
0
701 / 572 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
16.04.2009, 12:48 4
Цитата Сообщение от tima123 Посмотреть сообщение
Дан некоторый текст. Переставить в нем все буквы <<a>> в начало, а буквы <<я>> в конец.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program pr;
var i : integer;
    a, ya, s, s2 : string;
begin
s := 'всякие разные символы';
 
for i:=1 to length(s) do begin
  if s[i]='а' then
    a := a + 'а'
  else if s[i]='я' then
    ya := ya + 'я'
  else
    s2 := s2 + s[i];
end;
s2 := a + s2 + ya;
 
writeln(s2);
readln;
end.
Добавлено через 1 минуту 38 секунд
зы: k1ry4, там вроде надо было просто переставить "а" и "я" в начало/конец строки, а не менять местами
зыы: или может я неправильно понял
1
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
16.04.2009, 12:53 5
Оп-па, не заметил! Тогда смотрите решение у GalaX
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.04.2009, 12:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Дан текст. Напишите программу, которая будет заменять в нем все буквы "а" на "за"
///

Переставить в начало строки все буквы в порядке их следования, затем цифры, и в конце – остальные символы
Переставить в начало строки все буквы в порядке их следования, затем цифры, и в конце – остальные...

Дан текст из малых латинских букв. Напечатать по разу все буквы, входящие в этот текст
Имя входного файла zmn8.in Имя выходного файла zmn8.out Дан текст из малых латинских букв....

2. Дан текст, за которым следует точка. Напечатать все буквы, входящие в текст не менее 2-х раз
2. Дан текст, за которым следует точка. Напечатать все буквы, входящие в текст не менее 2-х раз. ...


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

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

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