Общее решение

[*Катюшка*]

Общее решение

Добрый вечер!
Помогите пожалуйста написать алгоритмы общего решения следующих задач:

1)Значения переменных X,Y,Z поменять местами так, чтобы они оказались упорядоченными по убыванию.

2) Дан масссив размера N. Найти номера двух ближайших по значению элементов из этого массива.

3) Описать процедуру Trim(S), удаляющую в строке S пробелы. Используя эту процедуру, преобразовать пять данных строк.

язык программирования Delphi в стиле паскаль

 

[AlexZir]

язык программирования Delphi в стиле паскаль

То есть консольное приложение?

1) Введите промежуточную переменную, сначала первое число сравните со вторым, потом с третьим, при необходимости поменяйте их местами, потом второе число также сравните с первым и третьим и поменяйте их местами, если необходимо. Промежуточная переменная нужна для облегчения обмена значениями между двумя переменными, хотя можно вполне обойтись и без нее, но вычисления будут малость сложнее.

2) В цикле от 0 до N-1 анализируйте элементы текущий и следующий на предмет минимальной разности между ними, при вычислении разности меньше текущей минимальной запоминайте индексы анализируемых элементов для последующего их вывода как результатов программы.

3) Для вырезки пробелов используйте строковые функции, в процедуре заведите цикл от 1 до length(S) и анализируйте каждый символ строки по его номеру на предмет его совпадения с пробелом (код 32), если совпадает - удаляйте символ, индекс цикла при этом уменьшайте на 1 для повторного анализа текущего символа. Организуйте вызов процедуры для каждой строки.