Найти сумму таких чисел в диапазоне [a; b], которые при возведении в квадрат не превышают b

@Ps1x123 · Регистрация: 24.11.2017

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

Добрый день, не могли бы помочь?
Задание : Вводятся числа a и b. Найти сумму таких чисел в диапазоне [a;b], которые при
возведении в квадрат не превышают b.
Это надо сделать 3-мя командами (for,while,repeat). Не понимаю как это сделать Т_Т

Добавлено через 30 минут
Сделал с for, осталось while и repeat

Pascal

procedure TForm1.btn1Click(Sender: TObject);
var a,b,i,sum:integer;
begin
  a:=StrToInt (edt1.Text);
  b:=StrToInt(edt2.Text);
  sum:=0;
    for i:=a to Round(Sqrt(b)) do
    if Sqr(i)<=b then
      begin
        sum:=sum+i;
      end;
lbl3.Caption:=IntToStr(sum);
 end;
end.

@droider · 24.11.2017, 15:30

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

Сделал с for

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

Delphi

1	for i:=a to Round(Sqrt(b)) do...

это что такое?

@Ps1x123 · 24.11.2017, 15:35 **[ТС]**

Взял с другого форума. И работает как надо. Как я понял, оно округляет до целого числа

@droider · 24.11.2017, 15:53

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

работает как надо

Вот так достаточно написать

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a, b, i, sum: Integer;
begin
a :=StrToInt(Edit1.Text);
b :=StrToInt(Edit2.Text);
sum :=0;
for i :=a to b do //<--- ТУТ
  begin
  if Sqr(i)<=b then Inc(sum, i); //sum :=sum+i
  end;
ShowMessage(Format('Сумма = %d', [sum]));
end;
 
end.

@Ps1x123 · 24.11.2017, 16:11 **[ТС]**

Оно уже написано. Мне теперь нужно тоже самое, только через команды while и repeat

@Алекcей · 24.11.2017, 17:02

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a, b, i, sum: Integer;
begin
a :=StrToInt(Edit1.Text);
b :=StrToInt(Edit2.Text);
sum :=0;
while a<= b do //<--- ТУТ
  begin
  if Sqr(a)<=b then Inc(sum+a); //sum :=sum+i
  end;
ShowMessage(Format('Сумма = %d', [sum]));
end;

@Ps1x123 · 24.11.2017, 17:41 **[ТС]**

Вот такую ошибку выдает, при while...

@D1973 · 24.11.2017, 18:16

Ps1x123, картинку на форум загрузите...

@droider · 24.11.2017, 19:50

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

Оно уже написано

я Вам показал, как лучше это "ОНО" написать.

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

нужно тоже самое, только через команды while и repeat

это называется "конструкции цикла".

Сообщение от Алекcей

Delphi

1	Inc(sum+a);

Неправильно, впрочем, как и Ваш вариант кода. Он просто не будет работать.

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

ошибку выдает

Ps1x123, внимательно посмотрите на мой вариант оформления кода из #4 c циклом "for", и сравните.

Цикл "while" будет записан так

Delphi

var a, b, i, sum: Integer;
begin
a :=StrToInt(Edit1.Text);
b :=StrToInt(Edit2.Text);
sum :=0;
i :=a;
while i<= b do
 begin
 if Sqr(i)<=b then Inc(sum, i);
 Inc(i);
 end;
ShowMessage(Format('Сумма = %d', [sum]));
end;

Цикл "repeat":

Delphi

var a, b, i, sum: Integer;
begin
a :=StrToInt(Edit1.Text);
b :=StrToInt(Edit2.Text);
sum :=0;
i :=a;
repeat
  if Sqr(i)<=b then Inc(sum, i);
  Inc(i);
until i>=b;
ShowMessage(Format('Сумма = %d', [sum]));
end;

P.S. желательно еще учесть условие, что a должно быть меньше b.

@Ps1x123 0 / 0 / 0 Регистрация: 24.11.2017 Сообщений: 8
	24.11.2017, 15:35 [ТС]	3
	Взял с другого форума. И работает как надо. Как я понял, оно округляет до целого числа 0

@Ps1x123 0 / 0 / 0 Регистрация: 24.11.2017 Сообщений: 8
	24.11.2017, 16:11 [ТС]	5
	Оно уже написано. Мне теперь нужно тоже самое, только через команды while и repeat 0

@Ps1x123 0 / 0 / 0 Регистрация: 24.11.2017 Сообщений: 8
	24.11.2017, 17:41 [ТС]	7
	Вот такую ошибку выдает, при while... 0

@D1973 Модератор 9270 / 6048 / 2380 Регистрация: 21.01.2014 Сообщений: 25,828 Записей в блоге: 3
	24.11.2017, 18:16	8
	Ps1x123, картинку на форум загрузите... 0

	24.11.2017, 19:50