10.02.2012, 22:53 | #1 (permalink) |
Member
Регистрация: 07.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль АBC
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, 17:56 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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 для того, чтобы в знаменателе считался факториал. Цикл продолжается до тех пор, пока абсолютная величина а не станет меньше точности е. Выводится число членов ряда и сумма. Вроде всё. |
|
11.02.2012, 18:09 | #3 (permalink) |
Member
Регистрация: 07.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
все понятно! спасибо большое!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|