Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Алгоритм работы цикла





а) увеличивать переменную-счётчик на единицу, чтобы последовательно проходить числа;

б) увеличивать сумму на куб текущего числа.

Условием цикла будет главное условие нашей задачи - достижение суммой 50000.

procedureTForm1.Button1Click(Sender: TObject); Inc(X) X:=X+1 Inc(X,N) X:=X+N var s,i: integer; begin i:=0; s:=0; while s < 50000 do begin Inc(i); Memo1.Lines.Add(IntToStr(i)+’ в кубе =’+ IntToStr(S)) Inc(s,i*i*i); end; Edit1.Text:=IntToStr(i-1) end;

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

Задача 3. Выведите в TMemo квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2.

Задача 4. Напечатать таблицу перевода расстояний из дюймов в сантиметры для значений от 1 до 10 дюймов с шагом 0,5 дюйма. Формула перевода: 1дюйм = 2,54 см.

Задача 5. Составьте таблицу значений функции y = 5x 2 – 2x + 1 на отрезке [-5; 5] с шагом b = 2.

@Задача 6. Урожай яблок в 1990 году составил 20 тонн. Далее каждые два года урожай уменьшался на 20%.

а) Начиная с какого года, будет собрано менее 5 тонн?

б) В каком году суммарный урожай яблок превысит 90 тонн?

@Задача 7. Вычислить значения функции при заданных значениях аргументов. Результаты вывести на печать в виде таблицы значений аргументов и функций с заголовками.

@Задача 8. Вычислите значение функции, заданной в виде бесконечного ряда, при заданных параметрах

@Задача 9. Вычисление ряда с приближенно заданной погрешностью.

Вычислите сумму гармонического ряда: S= 1-1/2 + 1/3 – 1/4 + 1/5 -… (-1)i+1 /i -…

Суммирование продолжаем, пока абсолютное значение разности сумм, вычисленных на (i+1)-м шаге и i-м шаге, больше наперед заданного малого числа eps, т.е. |S-S1|> eps. Eps – задается пользователем.

Var i: integer; S,S1:real; p: integer; Begin eps:= Edit1.Text; { например 0,00001} s1:=0; {начальное значение для 1-го члена ряда } s:=1; {суммирование 1-го члена ряда} i:=1; {начальное значение для 1-го члена ряда } p:= - 1; {знак числа} while abs(s1-s) > eps do begin {начало команд цикла while} s1:=s; {запоминаем сумму, вычисленную на предыдущем шаге} i:=i+1; {формирование нечетного числа} s:=s+p/i; {суммирование знакопеременного ряда} p:= - p; {смена знака} end; {завершение команд цикла while} //выведите сумму End.

 

Задача 10. Чему будет равно значение переменной S после выполнения фрагмента программы?

a:=0; S:=0;
while a<= 3 do
begin
S:= S + a;
a:=a+2;
end;
F Напишите текст в программу, объявите переменный и оформите вывод переменной S


Задача 11. Чему будет равно значение переменной S после выполнения фрагмента программы?
S:=1; a:=0;
while a> 0 do
begin
S:= S * 2;
a:=a-1;
end;

F Напишите текст в программу, объявите переменный и оформите вывод переменной S

 

@Задача 12*. Если сложить цифры какого-либо числа, затем все цифры найденной суммы и так далее, то в результате получим однозначное число, называемое цифровым корнем данного числа. Например, для числа 123456 = 1+2+3+4+5+6 =21=2+1 = 3. Цифровой корень данного числа равен 3.

FРазработаете программу для вычисления цифрового корня любого натурального числа.

Установите:

· Защиту от пустого ввода

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

Все обрабатываемые цифры числа, для контроля решения, выведите в TMemo.

 

Date: 2016-05-13; view: 876; Нарушение авторских прав; Помощь в написании работы --> СЮДА...



mydocx.ru - 2015-2024 year. (0.006 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию