Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Программа на Delphi

Читайте также:
  1. IV. ПРОГРАММА СЕМИНАРСКИХ ЗАНЯТИЙ
  2. IX. ПРОГРАММА СОРЕВНОВАНИЙ
  3. V. Программа мероприятия.
  4. V. ПРОГРАММА СОРЕВНОВАНИЙ
  5. VIII. Программа проведения слета
  6. X. ПРОГРАММА СОРЕВНОВАНИЙ
  7. АртнерскаЯ программа от швейцарского туроператора Swiss Halley

procedure TForm1.Button1Click(Sender: TObject);

var

n, m,i: byte;

Fl: Boolean;

begin

n:= StrToInt(InputBox('Ввод', 'Введите n',''));

m:= StrToInt(InputBox(' Ввод', ' Введите m',''));

ShowMessage('Вы ввели числа ' +IntToStr(n) + ' '+ IntToStr(m)+ chr(13));

Fl:= false;

For i:=n to m do

Begin

If I mod 10 <>3 then

Continue;

ShowMessage ('Искомое число ' + IntToStr(i));

Fl:=true;

Break;

End;

If not fl then

ShowMessage('Таких чисел иет');

end;

end.

Задача. Сумма кубов. Составьте программу вычисления суммы кубов натуральных чисел от 1 до 100,

.

Решение. Сумму S можно находить последовательно так: S:=13; S:=S+23; S:=S+33 и т.д. Вместо подобной цепочки операторов принято писать: S:=S+n3, где 1£n£100. Чтобы при первом выполнении этого оператора значение суммы было равно 1, нужно положить начальное значение S равным 0. Натуральные числа и их кубы получаются в результате работы операторов, поэтому в данном случае оператор ввода отсутствует. При решении задачи многократно повторяются операторы 3, 4, 5. Они составляют цикл данного алгоритма. Поскольку значение целой переменной n связано с числом повторений, ее называют параметром или счетчиком цикла. Первый раз цикл выполняется при значении n равном 1; это значение называ- Блок-схема алгоритма

ется начальным значением параметра цикла. При повторении цикла значение n изменяется на шаг h, в данном случае h=1. Конечное значение параметра цикла равно 100.

Программа

procedure TForm1.Button1Click(Sender: TObject);

Var

s,n: integer;

Begin

s:=0; n:=1;

Repeat

s:=s+n*n*n;

n:=n+1

Until n>5;

ShowMessage('Искомая сумма ' + IntToStr(s));

 

end;

End.

 

procedure TForm1.Button1Click(Sender: TObject);

Var

s,n: integer;

Begin

s:=0; n:=1;

While n<=100 do

begin

s:=s+n*n*n;

n:=n+1

end;

ShowMessage('Искомая сумма ' + IntToStr(s));

 

end;

End.

procedure TForm1.Button1Click(Sender: TObject);

 

Var

s,n: integer;

Begin

s:=0;

For n:=1 to 100 do

s:=s+n*n*n;

ShowMessage('Искомая сумма ' + IntToStr(s));

 

end;

End.


Дата добавления: 2015-11-03; просмотров: 32 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Тело цикла, это простой или составной оператор.| Массивы в языке Delphi

mybiblioteka.su - 2015-2024 год. (0.007 сек.)