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

Тема в разделе "Pascal and Delphi", создана пользователем sniper16, 27 ноя 2010.

  1. sniper16

    sniper16 New Member

    Регистрация:
    27 ноя 2010
    Сообщения:
    1
    Симпатии:
    0
    Решение задачи реализовать тремя способами (for,while,repeat).Выбор способа реализовать через RadioButton


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

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    У RadioButton усть свойство itemindex определяющее выбор пользователя. Помещаешь его на форму и пишешь что - то вроде
    Код (Text):
    if radiobutton1.itemindex=0 then
    begin
    sum:=0;
    for i:=a to b do
    if sqr(i)>b then sum:=sum+i;
    end;
    для while:
    Код (Text):
    i:=a;
    while i<=b do
    begin
    if sqr(i)>b then sum:=sum+i;
    inc(i);
    end;
    для Repeat:
    Код (Text):
    i:=a-1;
    repeat
    inc(i);
    if sqr(i)>b then sum:=sum+i;
    until i=b
     
Загрузка...
Похожие Темы - Решите задачу Delphi
  1. Adel
    Ответов:
    0
    Просмотров:
    1.037
  2. GREED
    Ответов:
    1
    Просмотров:
    533
  3. vovanabali
    Ответов:
    0
    Просмотров:
    531
  4. zolotco
    Ответов:
    0
    Просмотров:
    982
  5. merrs
    Ответов:
    1
    Просмотров:
    1.309

Поделиться этой страницей