Форум «Всё о Паскале» > цифровой корень числа

Yaroslav

14.12.2004 22:34

помогите решить задачу!!!найти цифровой корень числа через цикл while!!!

volvo

14.12.2004 22:37

Yaroslav
Что значит "цифровой корень числа?"

Yaroslav

15.12.2004 2:46

эТО ЗНАЧИТ ПРОСТОЙ КОРЕНЬ!!!!!!!

volvo

15.12.2004 3:04

Yaroslav
Цитата из правил форума:

Цитата

И небольшое пояснение про ЗАГЛАВНЫЕ БУКВЫ: такое написание РАСЦЕНИВАЕТСЯ КАК КРИК!!! Вам приятно, когда на вас кричат?

Учитесь задавать вопросы... И пользоваться поиском. Я уже давал ссылку на решение этой задачи...

mithquessir

15.12.2004 3:05

А что значит ПРОСТОЙ КОРЕНЬ

Вообще-то он называется арифметическим <_<
Да и не КРИЧИ

volvo

15.12.2004 3:30

Yaroslav
В следующий раз хотя бы точность задавайте...

Код

const
eps = 0.000001;

var
x, x0, x1: real;
begin
write('x = '); readln(x);
x1 := 1;
while true do
begin
x0 := x1; x1 := 0.5 * (x0 + x/x0);
if abs(x0 - x1) <= eps then break
end;

writeln('sqrt(x) = ', x0:15:10)
end.

Yaroslav

16.12.2004 21:19

Цитата(volvo @ 14.12.04 23:30)

Yaroslav
В следующий раз хотя бы точность задавайте...

Код

const
eps = 0.000001;

var
x, x0, x1: real;
begin
write('x = '); readln(x);
x1 := 1;
while true do
begin
x0 := x1; x1 := 0.5 * (x0 + x/x0);
if abs(x0 - x1) <= eps then break
end;

writeln('sqrt(x) = ', x0:15:10)
end.

Что значит eps=0.000001?
Что значит abs(x0-x1)?
Что значит writeln('sqrt(x) = ', x0:15:10)?
Спасибо за решение задачи!Она работает!

FreeMan

16.12.2004 21:25

eps=0.000001 - c точностью до такого-то знака
abs(x0-x1) - |х0-х1|
writeln('sqrt(x) = ', x0:15:10) - вывод на экран

Yaroslav

18.12.2004 1:23

Цитата(volvo @ 14.12.04 23:30)

Yaroslav
В следующий раз хотя бы точность задавайте...

Код

const
eps = 0.000001;

var
x, x0, x1: real;
begin
write('x = '); readln(x);
x1 := 1;
while true do
begin
x0 := x1; x1 := 0.5 * (x0 + x/x0);
if abs(x0 - x1) <= eps then break
end;

writeln('sqrt(x) = ', x0:15:10)
end.

Помогите пожалуйста найти цифровой корень числа через цикл while на Pascal!!!
Цифровой корень не является арифметическим!
Он высчитывается так: например:
Для числа 23456 цифровой корень высчитывается так:
2+3+4+5+6=20
2+0=2
Цифровой корень равен 2

Или для 456
4+5+6=15
1+5=6
Цифровой корень равен 6

Или для 678955
6+7+8+9+5+5=40
4+0=4
Цифровой корень равен 4

volvo

18.12.2004 1:36

Yaroslav
Так бы сразу и говорил... Держи:

Код

var x, s: integer;
begin
write('x = '); readln(x);
while x >= 10 do
begin
s := 0;
while x > 0 do
begin
s := s + (x mod 10);
x := x div 10;
end;
x := s;
end;
writeln('root = ', x)
end.

Yaroslav

19.12.2004 15:36

Цитата(volvo @ 17.12.04 21:36)

Yaroslav
Так бы сразу и говорил... Держи:

Код

var x, s: integer;
begin
write('x = '); readln(x);
while x >= 10 do
begin
s := 0;
while x > 0 do
begin
s := s + (x mod 10);
x := x div 10;
end;
x := s;
end;
writeln('root = ', x)
end.

эта программа работает некорректно!!!я ввожу числа и у всеч них цифровой корень равен нулю!!!перерешайте пожалуйста!!!

Yaroslav

19.12.2004 15:38

Цитата(Yaroslav @ 19.12.04 11:36)

эта программа работает некорректно!!!я ввожу числа и у всеч них цифровой корень равен нулю!!!перерешайте пожалуйста!!!

Я ИДИОТ!!!!!!!!!Извиняюсь, всё РАБОТАЕТ!!! перерешивать не надо!спасибо!!! :yes: