Преобразование элементов арифметической прогрессии

@xb_1992 · Регистрация: 21.05.2012

Author24 — интернет-сервис помощи студентам

Дан целочисленный массив размера N.Проверить,образуют ли его элементы арифметическую прогрессию.Если образуют,то вывести разность прогрессии,если нет-вывести 0. Люди добрые, нужен код программы в делфи и какие компоненты нужны на форме,ПОЖАЛУЙСТА.

WoodHead · 22.11.2012, 18:54

Как-то так

Delphi

progres:=true;  // инициализируем булевскую переменную
razn:=Arr[1]-Arr[0];  // начальное задание разности прогрессии
for i:=1 to N-1 do     // пробегаем все элементы, кроме нулевого
  begin
    Temp:=razn;       // для промежуточного хранения разности прогрессии
    razn:=Arr[i+1]-Arr[i];  // находим разность
    if razn <> Temp then 
    begin
      progres:=false;    // если разность неодинаковая, то переменной присваиваем ложь
      break;  // досрочно выходим из цикла
    end;
  end;
if not progres then ShowMessage('Это не арифметическая прогрессия')
  else('Это арифметическая прогрессия. Разность прогрессии равна '+IntToStr(razn));

@xb_1992 · 22.11.2012, 18:59 **[ТС]**

через мемо можно сделать программу, данный код вписывать процедуру батон клик??

WoodHead · 22.11.2012, 19:03

Массив можно формировать как угодно. Хоть консольный ввод с клавиатуры (ну, тогда алгоритм будет немного другой, т.к. отсутствует ShowMessage), хоть из файла, хоть из мемо. Гланое, не забыть все перевести в числовой тип (в данном случае - integer). Да, запуск расчета можно повесить на кнопку.

@xb_1992 · 22.11.2012, 19:05 **[ТС]**

ок попробую что нибудь сообразить, спасибо!

@xb_1992 0 / 0 / 0 Регистрация: 21.05.2012 Сообщений: 24
		1
	Преобразование элементов арифметической прогрессии 22.11.2012, 18:38. Показов 700. Ответов 4 Метки нет (Все метки) Дан целочисленный массив размера N.Проверить,образуют ли его элементы арифметическую прогрессию.Если образуют,то вывести разность прогрессии,если нет-вывести 0. Люди добрые, нужен код программы в делфи и какие компоненты нужны на форме,ПОЖАЛУЙСТА. 0

@xb_1992 0 / 0 / 0 Регистрация: 21.05.2012 Сообщений: 24
	22.11.2012, 18:59 [ТС]	3
	через мемо можно сделать программу, данный код вписывать процедуру батон клик?? 0

WoodHead 105 / 104 / 29 Регистрация: 15.01.2011 Сообщений: 496
	22.11.2012, 19:03	4
	Массив можно формировать как угодно. Хоть консольный ввод с клавиатуры (ну, тогда алгоритм будет немного другой, т.к. отсутствует ShowMessage), хоть из файла, хоть из мемо. Гланое, не забыть все перевести в числовой тип (в данном случае - integer). Да, запуск расчета можно повесить на кнопку. 0

@xb_1992 0 / 0 / 0 Регистрация: 21.05.2012 Сообщений: 24
	22.11.2012, 19:05 [ТС]	5
	ок попробую что нибудь сообразить, спасибо! 0