Решите задачу в Delphi

sniper16

New Member
27.11.2010
1
0
#1
Решение задачи реализовать тремя способами (for,while,repeat).Выбор способа реализовать через RadioButton


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

nayke

Well-Known Member
04.08.2010
310
0
#2
У RadioButton усть свойство itemindex определяющее выбор пользователя. Помещаешь его на форму и пишешь что - то вроде
Код:
if radiobutton1.itemindex=0 then
begin
sum:=0;
for i:=a to b do
if sqr(i)>b then sum:=sum+i;
end;
для while:
Код:
i:=a;
while i<=b do
begin
if sqr(i)>b then sum:=sum+i;
inc(i);
end;
для Repeat:
Код:
i:=a-1;
repeat
inc(i);
if sqr(i)>b then sum:=sum+i;
until i=b