Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Образовательный студенческий форум _ Информатика / Программирование _ помагите перевести с Паскаля на С
Автор: @ Alenka @ 15.5.2011, 11:56
Написать функцию,которая находит цифровой корень целого числа
var n:longint;
function num(i:longint):integer;
var s: integer;
begin
s:=0;
repeat
s:=s+n mod 10;
n:= n div 10;
until n=0;
num:=s;
end;
function root(l:longint):integer;
begin
if n<10 then root:=n
else
begin
n:=num(n);
root:=root(n);
end;
end;
begin
write('Введите целое число n=');
readln(n);
writeln('Его цифровой корень равен : ', root(n));
end.
помогите перевести с паскаля на С
Автор: tig81 15.5.2011, 12:00
А в чем вопрос?
Автор: @ Alenka @ 15.5.2011, 12:02
вопрос в том что на С надо перевести
Автор: граф Монте-Кристо 15.5.2011, 12:48
Зачем вы объявляете переменные в функции, а потом нигде их не используете? Я имею в виду строчки
Что не получается с переводом на С?
Автор: @ Alenka @ 15.5.2011, 16:06
Зачем вы объявляете переменные в функции, а потом нигде их не используете? Я имею в виду строчки и , в этих функциях ни i, ни l соответственно нигде не встречаются. Lucky you, что это паскаль, где переменные объявляются зарание. С Вам такого финта ушами не простит.
Что не получается с переводом на С?
на С никогда не работала
Автор: граф Монте-Кристо 15.5.2011, 16:10
Значит, берёте книжку Кернигана и Ритчи, и вперёд.
Автор: @ Alenka @ 15.5.2011, 16:24
Значит, берёте книжку Кернигана и Ритчи, и вперёд.
спасибо
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)