Небольшое дополнение к лабе по теме "целые числа"

@kazzz · Регистрация: 17.11.2010

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

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
i1,i2,i3,i4,i5,x:integer;
begin
x:=StrToInt(Edit1.Text);
  if x>=5 then
    begin
     for i1:=0 to x do
      begin
      for i2:=0 to x do
        begin
        for i3:=0 to x do
          begin
          for i4:=0 to x do
            begin for i5:=0 to x do
              begin
              if (i1>i2) and (i2>i3) and (i3>i4) and (i4>i5) then
                begin
                if i1+i2+i3+i4+i5=x then Memo2.Lines.Add(IntToStr(i1)+' + '
                +IntToStr(i2)+' + '+IntToStr(i3)+' + '+IntToStr(i4)+' + '
                +IntToStr(i5)+' = '+ IntToStr(x));
                end;
              end;
            end;
          end;
        end;
      end;
    end
  else ShowMessage('       Введите N>=5');
end;
end.

Так как по условию n>=5, но фактически решение имеется только при n>=10 необходимо, чтоб в таком случае писал в Memo 'Для данного числа решений нет...'. Причем не условием что 5<=n и n<9 тогда то-то, а только когда выясняется, что решений нет... Условие ниже.

Условие:

@QuakeArena · 18.05.2011, 15:47

Можно использовать логическую переменную. Если будет вхождение в Ваш if, сменить ее значение. После циклов, если значение не изменилось - выдать то, что Вам требуется.

@kazzz · 18.05.2011, 15:50 **[ТС]**

QuakeArena, может сказывается бессонная ночь, но я не представляю, что это будет на практике... Вернее представляю, но реализовать не получается. Как, где это??

@Arcor · 18.05.2011, 16:01

вот наглядный такой пример

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var b: Boolean;
    n: Integer;
begin
  b := True;
  // тут что-то делаем, проверяем, считаем ...
  if n >= 5 then
    b := False;
 
  // решаем что-то дальше
  // тут решаем...
 
 
  // тут конец всех решений
  if b = False then
    ShowMessage('Решений нет')
  else
  //Тут выводим если все же у нас прогармма пошла дальше
    ShowMessage('Результат... ');
end;

@kazzz · 18.05.2011, 17:22 **[ТС]**

Arcor, все доступно и то, что хотелось. Благодарю!

Добавлено через 1 час 4 минуты
Хотя все равно не получается...
Ругается на последнее условие..

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
  b:Boolean;
i1,i2,i3,i4,i5,x:integer;
begin
x:=StrToInt(Edit1.Text);
  if x>=5 then
    begin
     for i1:=0 to x do
      begin
      for i2:=0 to x do
        begin
        for i3:=0 to x do
          begin
          for i4:=0 to x do
            begin for i5:=0 to x do
              begin
              if (i1>i2) and (i2>i3) and (i3>i4) and (i4>i5) then
                begin
                  if i1+i2+i3+i4+i5=x then
                    begin
                      Memo2.Lines.Add(IntToStr(i1)+' + '
                      +IntToStr(i2)+' + '+IntToStr(i3)+' + '+IntToStr(i4)+' + '
                      +IntToStr(i5)+' = '+ IntToStr(x)); b:=true;
                    end
                  else b:=False;
                end;
              end;
            end;
          end;
        end;
      end;
    end
 
  if b = False then
    ShowMessage('Решений нет')
  else ShowMessage('       введите N>=5');
end;

@QuakeArena · 18.05.2011, 18:56

В начале программы обнулите b (b:=true; ).
В конце условие if b then Memo2.Lines.Add('Для данного числа решений нет');
По-моему Вам требовалось вывести в Memo.
Смысл в том, что если значение переменной сохраняется в течение работы программы, значит не найдено ни одного решения (нет ни одного вхождения в if).
И исправьте

Delphi

if i1+i2+i3+i4+i5=x then
                    begin
                      Memo2.Lines.Add(IntToStr(i1)+' + '
                      +IntToStr(i2)+' + '+IntToStr(i3)+' + '+IntToStr(i4)+' + '
                      +IntToStr(i5)+' = '+ IntToStr(x)); b:=true;
                    end
                  else b:=False;

На

Delphi

if i1+i2+i3+i4+i5=x then
                    begin
                      Memo2.Lines.Add(IntToStr(i1)+' + '
                      +IntToStr(i2)+' + '+IntToStr(i3)+' + '+IntToStr(i4)+' + '
                      +IntToStr(i5)+' = '+ IntToStr(x));
                      b:=False;
                    end;

@Arcor · 18.05.2011, 19:09

Сообщение от QuakeArena

В начале программы обнулите b (b:=true; ).

да! все переменные нужно проинициализировать, дать начальное значение, иначе там храниться может не понять что

@kazzz · 18.05.2011, 19:21 **[ТС]**

Спасибо

Работает!

На всякий случай итог выложу:

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
  b:Boolean;
  i1,i2,i3,i4,i5,x:integer;
begin
  b:=true;
  x:=StrToInt(Edit1.Text);
  if x>=5 then
    begin
     for i1:=0 to x do
      begin
      for i2:=0 to x do
        begin
        for i3:=0 to x do
          begin
          for i4:=0 to x do
            begin for i5:=0 to x do
              begin
              if (i1>i2) and (i2>i3) and (i3>i4) and (i4>i5) then
                begin
                  if i1+i2+i3+i4+i5=x then
                  begin
                    Memo2.Lines.Add(IntToStr(i1)+' + '
                    +IntToStr(i2)+' + '+IntToStr(i3)+' + '+IntToStr(i4)+' + '
                    +IntToStr(i5)+' = '+ IntToStr(x));
                    b:=False;
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
    end
  else ShowMessage('       Ââåäèòå N>=5');
  if b then Memo2.Lines.Add('Äëÿ äàííîãî ÷èñëà ðåøåíèé íåò');
end;

@QuakeArena 20 / 20 / 10 Регистрация: 16.05.2011 Сообщений: 161
	18.05.2011, 15:47	2
	Можно использовать логическую переменную. Если будет вхождение в Ваш if, сменить ее значение. После циклов, если значение не изменилось - выдать то, что Вам требуется. 1

@kazzz 7 / 7 / 0 Регистрация: 17.11.2010 Сообщений: 59
	18.05.2011, 15:50 [ТС]	3
	QuakeArena, может сказывается бессонная ночь, но я не представляю, что это будет на практике... Вернее представляю, но реализовать не получается. Как, где это?? 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	18.05.2011, 19:09	7
	Сообщение от QuakeArena В начале программы обнулите b (b:=true; ). да! все переменные нужно проинициализировать, дать начальное значение, иначе там храниться может не понять что 1

	18.05.2011, 19:21