Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Сравнение возможностей операторов WHILE и FORСтр 1 из 2Следующая ⇒ W H I L E While (цикл с условие) — цикл, который выполнятся до тех пор пока верно некоторое условие (условие окончания – выполнять пока). Цикл с пред условием – условие перед телом цикла.
Сравнение возможностей операторов WHILE и FOR
@Задача 1. Вычисления с заданной точностью. Вычислите,
Для значения точности ε (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 числа. (Контроль ввода, пустой ввод)
µЗадача 5. Вычислите сумму всех цифр числа. µЗадача 6. Вычислите количество единиц в записи числа. µµЗадача 7. Определите, есть ли в веденном числе указанная цифра. Пользователь вводит число и одну цифру, после нажатия кнопку выдается сообщение, найдена ли цифра в записи числа. @Задача 8. Дана непустая числовая последовательность целых чисел. Признаком конца последовательности является 0. Найти сумму всех чисел (число 0 не учитывать). Последовательность чисел вводиться пользователем в TМемо, каждое число с новой строки Код программы Var A,S: Integer; Begin A:=IntToStr(Memo1.Lines[0]); //Первое число i:=0; //начальное значение параметра S:=0; While A<>0 do // Пока не встретили 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, а в результате должны узнать, сколько чисел было пройдено.
|