Паскаль АBC

Margosham-k · 10.02.2012, 22:53

Здравствуйте! будьте добры...помогите решить 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 · 11.02.2012, 17:56

Цитата:

Сообщение от Margosham-k

Здравствуйте! будьте добры...помогите решить 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 · 11.02.2012, 18:09

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

10.02.2012, 22:53	#1 (permalink)
Margosham-k Member Регистрация: 07.12.2011 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль АBC Здравствуйте! будьте добры...помогите решить 2 задачки с объяснением каждой строчки..... буду очень признательна.... 1. Найти все натуральные трехзначные числа, каждое из которых обладает следующим свойством: сумма самого числа с числом, получающимся из него перестановкой второй и третьей цифр, делится на 8 без остатка. 2. Вычислить сумму ряда с точностью e=10 в -4 степени 2x/1! - 3x^2/2! + 4x^3/3! - 5x^4/4! + ... +- ((i+1)x^i)/i! надеюсь,что ряд понятен..... Последний раз редактировалось Margosham-k; 10.02.2012 в 23:03

10.02.2012, 22:53
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	В каком то из этих постов проблема возможно решена Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Паскаль Паскаль АВС Паскаль Паскаль

11.02.2012, 18:09	#3 (permalink)
Margosham-k Member Регистрация: 07.12.2011 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	все понятно! спасибо большое!!!!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070