нужно решить задачу в DELPHI,пожалуйста помогите

[SERESHKA]

1.Сообщить программе значение натурального четырехзначного числа n. Программа должна проверить, все ли четыре цифры числа различны или одинаковы?
2.Для данного значения х найти сумму ряда у с точностью до члена ряда, меньшего eps=0,0001.Сравнить эту сумму со значением функции для контроля.

[Лукманов Александр]

procedure TForm1.btn1Click(Sender: TObject);
var i: integer;
 s: string;
begin
  s:=edt1.Text;
  for i:=0 to Length(edt1.Text)-1 do
  if s[i]=s[i+1] then lbl1.Caption:='odinakov' else lbl1.Caption:='razlich';
end;

[SERESHKA]

Большое спасибо,щас попробую реализовать в Delphi

[SERESHKA]

я сейчас ввёл данную программу в Delphi.
Она работает но не совсем корректно.Как я понял она выдает ответ по двум последним цифрам.Допустим ввожу число 12355,выдает ответ что цифры одинаковы,как это исправить.Ещё нужно поставить ограничения чтоб в поле можно было вводить только 4 цыфры.Пожалуйста помогите,Зараннее благодарен

[Gorychev]

чтоб в поле можно было вводить только 4 цыфры.

Задайте свойство MaxLength для Эдита в инспекторе обьектов.

Вот функция которая проверяет все ли четыре цифры числа различны или одинаковы.

function like_signs(const s: string): boolean;
var i: integer;
begin
   result:= true;
   for i:=1 to Length(s)-1 do  begin
     if s[i]<>s[i+1] then begin result:= false; break;
     end;
   end;
end;

// пример вызова функции
procedure TForm1.Button1Click(Sender: TObject);
begin
  if length(edit1.Text) = 4 then
   if like_signs(edit1.Text) then caption := 'Одинаковы' else caption:= 'Разные'
  else begin
    ShowMessage('Длина не менее 4 цыфр!!!');
    Edit1.SetFocus;
  end;
end;

P.S. Не забываем, что строка (string) может рассматриватся как массив символов и нумерация массива начинается с единицы

[Лукманов Александр]

2SERESHKA
Прошу прощения, я чёт не проверил и не подумал.

[SERESHKA]

большое спасибо вам ребят,не знаю чтоб делал без вашей помощи скоро курсовую сдавать нужно...
а как сделать блок-схему для этой задачки???

[SERESHKA]

если можно сделайте блок-схему????оч прошу

[Лукманов Александр]

Почитай пару абзацев в интернете про построение блок схем и научишься "навсегда".

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

[SERESHKA]

Ребят,а вторую задачку где нужно найти сумму ряда??)))