Помощь - Поиск - Пользователи - Календарь
Полная версия: периодическая функция
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Bold
1.ПЕРИОДИЧЕСКАЯ ФУНКЦИЯ
Утверждается, что функ-ия y=f(x) периодическая с периодом Т. Проверить это численно, вычислив фун-ию с постоянным шагом на отрезке [0;5*Т]. Учесть погрешность вычислений и возможные точки разрыва функций. Проверить на примере функций: y=(Sin^2)x, y=tg x (T=пи=3,14); y= -Sin x; (T=2*пи)
пи=3,14, иррациональное число.

2.число делиться на 11, если разность между суммой цифр, стоящих на нечетных местах, и суммой цифр, стоящих на четных местах, кратно 11. Проверить этот признак для ЧЕСКИЕ ФУНКЦИИ. всех натуральных чисел, не превосходящих заданного m, и вывести числа, кратные 11.
Lapp
 ! 
Bold, надеюсь, что за тобой не заржавеет переименовать тему, так как твой заголовок нарушает Правила (ссылка вверху страницы). Жду переименования в ближайшие часы - или закрываю тему..

Помимо прочего, "одна тема - одна задача"

Ozzя
Цитата
2.число делиться на 11, если разность между суммой цифр, стоящих на нечетных местах, и суммой цифр, стоящих на четных местах, кратно 11. Проверить этот признак для ЧЕСКИЕ ФУНКЦИИ. всех натуральных чисел, не превосходящих заданного m, и вывести числа, кратные 11.

var
 Raznost,i,sumnech,sumch,k,code,chislo: Integer;
Stroka: String;

begin
Read(chislo);
str(Chislo,Stroka);
sumnech:=0;
sumch:=0;
for i:=1 to Length(stroka) do
begin
val(Stroka[i],k,Code);
if odd(i) then
sumnech:=sumnech+k
else
sumch:=sumch+k
end;
Raznost:=abs(sumch-sumnech);
if raznost mod 11 = 0 then
writeLn('Delitsya na!')
else
writeLn('Ne delitsya na!')
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.