Сравнение возможностей операторов WHILE и FOR

W H I L E

While (цикл с условие) — цикл, который выполнятся до тех пор пока верно некоторое условие (условие окончания – выполнять пока). Цикл с пред условием – условие перед телом цикла.

Структура оператора FOR While Условие окончания do begin тело цикла end; Тело цикло должно обязательно содержать изменение параметра (увеличение на шаг или перерасчет значения параметра), для того чтобы он мог приблизиться к конечному значению (не было «зацикливания» - бесконечного выполнения цикла).

Сравнение возможностей операторов WHILE и FOR

@Задача 1. Вычисления с заданной точностью. Вычислите,

Код программы (частичный) VarS,E,Sr,x:Real; Begin E:=……………. //Точность вычислений - получить вещественное число X:=1; //Начальное значение Sr:=1/x; //первое значение элемента ряда S:=0; //Сумма ряда While Sr > E do begin //Пока новый элемент больше точности X:=X+0.5; //параметра на величину шага S:=S+Sr; //Сумма ряда =К тому что было прибавляем новое значение Sr:=1/x; //Вычисляем следующее значение ряда Memo1.Lines.Add(… //Оформить вывод как на рисунке End;

Интерфейс

Для значения точности ε (E):

· Предусмотрите защиту от пустого ввода

· Контроль ввода

@Задача 2. Определите координаты 50 точек функции ,расстояние между точками по оси Х равно 0,1. Начальное значение Х = 0. (интерфейс TMemo, с линейкой прокрутки и кнопка)

Код программы

procedure TForm1.Button2Click(Sender: TObject);

Var y,x:real;

Begin

X:=0; //начальное значение параметра

While Х<=5 do //условие окончания (до конечного значения)

Begin

y:=Sin(X*Pi);

Memo1.Lines.Add('Y('+FloatToStr(X)+')='+FloatToStrF(Y,ffFixed,8,4));

X:=X+0.1; //изменение параметра на шаг

End;

End;

µЗадача 3. Составить программу, которая печатает таблицу значений элементарной функции, Реализуйте алгоритм нахождения значения функции на отрезке от a до b с шагом h. Выведите результаты табулирования функции. Значения a,b,h задаются пользователем

Задача 4. Вывести в ТМемо все цифры введенного в TEdit числа. (Контроль ввода, пустой ввод)

Код программы VarA,X,Ostatok:Integer; begin A:=StrToInt(Edit1.Text); Ostatok:=A; While Ostatok<>0 do begin X:=Ostatok mod 10; Memo1.Lines.Add(IntToStr(X)); Ostatok:=Ostatok div 10; end; end;

Интерфейс (пример выполнения)

µЗадача 5. Вычислите сумму всех цифр числа.

µЗадача 6. Вычислите количество единиц в записи числа.

µµЗадача 7. Определите, есть ли в веденном числе указанная цифра. Пользователь вводит число и одну цифру, после нажатия кнопку выдается сообщение, найдена ли цифра в записи числа.

@Задача 8. Дана непустая числовая последовательность целых чисел. Признаком конца последовательности является 0. Найти сумму всех чисел (число 0 не учитывать). Последовательность чисел вводиться пользователем в TМемо, каждое число с новой строки

Код программы

Var A,S: Integer;

Begin

A:=IntToStr(Memo1.Lines[0]); //Первое число

Begin

S:=S+A;

i:=i+1;

A:=IntToStr(Memo1.Lines[i]); //Следующее число из списка

End;

//Вывод суммы S

End;

W H I L E - 2

@Задача 1. Определить количество натуральных чисел, рассматривая их в порядке возрастания, сумма кубов которых не превышает 50000. Т.е. мы должны последовательно суммировать кубы чисел 1, 2, 3,..., и делать это до тех пор, пока сумма не достигнет 50000, а в результате должны узнать, сколько чисел было пройдено.