Паскаль АBC

[Margosham-k]

Паскаль АBC

Здравствуйте! будьте добры...помогите решить 2 задачки с объяснением каждой строчки..... буду очень признательна....

1. Найти все натуральные трехзначные числа, каждое из которых обладает следующим свойством: сумма самого числа с числом, получающимся из него перестановкой второй и третьей цифр, делится на 8 без остатка.

2. Вычислить сумму ряда с точностью e=10 в -4 степени

2x/1! - 3x^2/2! + 4x^3/3! - 5x^4/4! + ... +- ((i+1)x^i)/i!

надеюсь,что ряд понятен.....

 

[Vladimir_S]

Здравствуйте! будьте добры...помогите решить 2 задачки с объяснением каждой строчки..... буду очень признательна....

1. Найти все натуральные трехзначные числа, каждое из которых обладает следующим свойством: сумма самого числа с числом, получающимся из него перестановкой второй и третьей цифр, делится на 8 без остатка.

2. Вычислить сумму ряда с точностью e=10 в -4 степени

2x/1! - 3x^2/2! + 4x^3/3! - 5x^4/4! + ... +- ((i+1)x^i)/i!

надеюсь,что ряд понятен.....

Так, ну прежде всего - сами программы:

Var
 i,M1,M2,n100,n10,n1:Integer;
Begin
 For i:=100 to 999 do
  begin
   M1:=i;
   n100:=M1 div 100;
   M1:=M1 mod 100;
   n10:=M1 div 10;
   n1:=M1 mod 10;
   M2:=100*n100+10*n1+n10;
   If ((i+M2) mod 8)=0 then write(i:4);
  end;
 readln
End.

Const
 e=0.0001;
Var
 a,S,x:Real;
 i:Integer;
Begin
 Write('x= ');
 Readln(x);
 i:=1;
 a:=x*2;
 S:=a;
 Repeat
  Inc(i);
  a:=-a/i*(i+1)*x/i;
  S:=S+a;
 Until Abs(a)<e;
 Writeln('n = ',i, '   Sum = ',S:0:5);
 Readln
End.

Насчет объяснений каждой строчки - извините, но мне кажется, у Вас уже есть некий опыт программирования, поэтому подобный запрос мне кажется излишним. Некоторые комментарии:
По первой задаче. Организуется цикл по всем трехзначным числам (i), для каждого i путем применения операций целочисленного деления (div) и вычисления остатка (mod) определяются цифры: n100 - количество сотен, n10 - количество десятков и n1 - количество единиц, затем вычисляется "дополнительное" число M2 с переставленными циферками, проверяется делимость суммы (i+M2) на 8 и, в случае нулевого остатка, число i выводится на экран.
По второй задаче. Тут тоже всё просто: вводится х, затем задаются исходные значения i (1), a и S. Здесь а - текущее слагаемое, S - текущее значение суммы. Единственное, что может вызвать затруднение, это строка
a:=-a/i*(i+1)*x/i;
Чтобы понять, как она построена, нужно сообразить, как из члена ряда, соответствующего (i-1), получить следующий, соответствующий i. Для этого надо:
- поменять знак;
- умножить на х;
- поделить на i;
- умножить на (i+1);
- снова поделить на i для того, чтобы в знаменателе считался факториал.
Цикл продолжается до тех пор, пока абсолютная величина а не станет меньше точности е. Выводится число членов ряда и сумма. Вроде всё.

 

[Margosham-k]

все понятно! спасибо большое!!!!