0 / 0 / 0
Регистрация: 15.10.2014
Сообщений: 80
1

Составить программу, которая по заданному слову из набора строит следующее за ним по алфавиту слово

10.02.2015, 22:25. Показов 1931. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задано слово (латинскими буквами). Из всех его букв состоят другие слова, возможно и бездумные. Составить программу, которая по заданному слову из этого набора строит следующее за ним по алфавиту слово из этого же набора. На экран выводить заданное слово и следующее по алфавиту.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2015, 22:25
Ответы с готовыми решениями:

Составить программу, которая по заданному слову из набора строит следующее за ним по алфавиту слово из этого набора
"Слово" Указано слово (латинскими буквами). Из всех его букв составляются другие слова, возможно и...

Написать программу, которая по заданному тексту строит список пар : (<слово> <частота встречаемости в тексте>)
пожалуйста помогите, должно быть что-то наподобие такого, но я пока только на этом шаге (defun...

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

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

1
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
11.02.2015, 08:32 2
Лучший ответ Сообщение было отмечено King69 как решение

Решение

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
29
var
  s,s1,r:string;
  i:integer;
 
procedure per(i:integer);
var
  j:integer;
  t:char;
begin
  if (i>length(s)) then begin 
    if (s1<s) and ((r>s) or (r='')) then r:=s;
    exit;
  end;  
  for j:=1 to length(s) do begin
    t:=s[i];
    s[i]:=s[j];
    s[j]:=t;
    per(i+1);
  end;
end;  
 
begin
  write('Введите слово:');
  readln(s);
  s1:=s;
  r:='';
  per(1);
  if r='' then writeln('Нет следующего по алфавиту слова') else writeln(s1,':',r);
end.
0
11.02.2015, 08:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.02.2015, 08:32
Помогаю со студенческими работами здесь

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

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

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

Разработать программу, которая строит логический вектор по заданному правилу
Заданная матрица x (n, n), n &lt;= 15. Разработать программу, которая строит логический вектор L (n)...


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

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

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