1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программирован. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление
  2. Чат codeby в telegram перезагрузка. Обсуждаем вопросы информационной безопасности и методы защиты информации, программирование. Задавайте свои вопросы и комментируйте чужие. Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем sniper16, 27 ноя 2010.

  1. sniper16

    sniper16 New Member

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


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

    nayke Well-Known Member

    Репутация:
    0
    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    У 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
     
Загрузка...

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