|
Читайте также: |
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 |