Написать алгоритм - Помощь студентам

*Катюшка* · 18.12.2011, 21:45

Добрый вечер!

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

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

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

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

язык программирования Delphi

como · 18.12.2011, 23:10

1:

Код:

begin
    if y > z then begin t:=z; z:=y; y:=t end;
    if x > z then begin t:=z; z:=x; x:=t end;
    if x > y then begin t:=y; y:=x; x:=t end;
end.

*Катюшка* · 19.12.2011, 19:54

Спасибо, но это у меня есть... мне нужен алгоритм в словах, напишите пожалуйста кто может

Mad_Cat · 19.12.2011, 19:55

Код:

если y > z тогда  t:=z; z:=y; y:=t иначе
если  x > z тогда t:=z; z:=x; x:=t иначе
если  x > y тогда t:=y; y:=x; x:=t все

*Катюшка* · 19.12.2011, 21:22

Не так, мне нужно что-то вроде этого:
Назовем строкой последовательность символов, оканчивающуюся символов с кодом 13, который обрабатывается как признак конца строки.
Для считывания файла до конца используйте цикл while... с условием NOT EOF(F). Для считывания построчно используйте цикл while..., условие для него - пока не считан признак конца строки - NOT EOL(F). Считывайте посимвольно в переменные и сравнивайте. Не забудьте определить счетчики для номеров строки и позиции символа в строке.

18.12.2011, 21:45	#1
Катюшка Регистрация: 16.12.2011 Сообщений: 8	Написать алгоритм Добрый вечер! Помогите пожалуйста написать алгоритмы решения следующих задач: 1)Значения переменных X,Y,Z поменять местами так, чтобы они оказались упорядоченными по убыванию. 2) Дан масссив размера N. Найти номера двух ближайших по значению элементов из этого массива. 3) Описать процедуру Trim(S), удаляющую в строке S пробелы. Используя эту процедуру, преобразовать пять данных строк. язык программирования Delphi

18.12.2011, 23:10	#2
como Форумчанин Регистрация: 26.07.2008 Сообщений: 116	1: Код: `begin if y > z then begin t:=z; z:=y; y:=t end; if x > z then begin t:=z; z:=x; x:=t end; if x > y then begin t:=y; y:=x; x:=t end; end.`

19.12.2011, 19:55	#4
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `если y > z тогда t:=z; z:=y; y:=t иначе если x > z тогда t:=z; z:=x; x:=t иначе если x > y тогда t:=y; y:=x; x:=t все` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нужно написать алгоритм	d.e.w	Помощь студентам	0	13.01.2011 15:08
как написать алгоритм?	студенД	Помощь студентам	6	20.12.2010 14:12
написать алгоритм	Торька	Помощь студентам	1	14.10.2010 19:21
Написать программу Алгоритм Дейкстры	серёгалдпр	Общие вопросы Delphi	4	27.05.2010 16:20
Написать алгоритм на Си	zmei88	Общие вопросы C/C++	2	19.01.2010 00:46

19.12.2011, 19:54	#3
Катюшка Регистрация: 16.12.2011 Сообщений: 8	Спасибо, но это у меня есть... мне нужен алгоритм в словах, напишите пожалуйста кто может

19.12.2011, 21:22	#5
Катюшка Регистрация: 16.12.2011 Сообщений: 8	Не так, мне нужно что-то вроде этого: Назовем строкой последовательность символов, оканчивающуюся символов с кодом 13, который обрабатывается как признак конца строки. Для считывания файла до конца используйте цикл while... с условием NOT EOF(F). Для считывания построчно используйте цикл while..., условие для него - пока не считан признак конца строки - NOT EOL(F). Считывайте посимвольно в переменные и сравнивайте. Не забудьте определить счетчики для номеров строки и позиции символа в строке.