Функции на Pascal.

[kulisk]

Функции на Pascal.

Здравствуйте. Помогите пожалуйста с программой. Написать и протестировать функцию, которая по заданному натуральному числу определяет количество цифр в нем и сумму цифр на нечетных местах.
Функции знаю не очень, вот что у меня получилось. Помогите пожалуйста исправить. При компиляции выдает Error 113: error in statement в подчеркнутой строке.

uses crt;
function kolcifr(n:integer):integer;{Функция количества цифр в числе}
var k:integer;
begin
k:=0;
while n<>0 do
begin
k:=k+1;
n:=n div 10;
kolcifr:=k;
end;
[U]function sumcifr(n:integer):integer;[/U]{Функция суммы цифр на нечетных местах}
var s:integer;
i:integer;
begin
s:=0;
for i:=1 to kolcifr(n) do
if i mod 2 = 1 then
begin
s:=s+i;
end;
sumcifr:=s;
end;
begin
clrscr;
write('Vvedite chislo: ');
readln(n);
writeln('Kolichestvo cifr v chisle = ',kolcifr(n));
writeln('Summa cifr na nechetnih mestah = ',sumcifr(n));
readln;
end.

[MOD]Ставьте пробелы после знаков препинания. Модератор[/MOD]

 

[Vladimir_S]

Здравствуйте. Помогите пожалуйста с программой.

Попробую помочь.
Программа содержит (как минимум) две ошибки:
1. Не определена ГЛОБАЛЬНАЯ переменная N.
2. Не закрыта первая функция kolcifr - отсутствует закрывающий "end". Отсюда и сообщение об ошибке.

 

[Vladimir_S]

Да, кстати - и вторая функция написана неверно: вместо подсчета суммы цифр ЧИСЛА Вы вычисляете сумму нечетных номеров позиций: 1+3+5...

 

[kulisk]

Помогите пожалуйста сделать эту программу правильно. Очень надо.

 

[Vladimir_S]

Помогите пожалуйста сделать эту программу правильно. Очень надо.

Хорошо, только если вы мне четко разъясните насчет "нечетных мест":
1. Откуда идет отсчет "мест" - справа или слева?
2. С чего этот отсчет начинается - с нуля или единицы?

 

[kulisk]

Хорошо, только если вы мне четко разъясните насчет "нечетных мест":
1. Откуда идет отсчет "мест" - справа или слева?
2. С чего этот отсчет начинается - с нуля или единицы?

1. Очсчет идет слева.
2.С еденицы.
Спасибо, что согласились помочь.

 

[Vladimir_S]

1. Отсчет идет слева.
2. С единицы.

Слева, говорите? Т.е. со старших порядков? Тогда несколько сложнее (справа было бы существенно проще). Ну ладно, слева так слева:

Var
 N:LongInt;
 Num:Byte;
 Sum1,Sum2:Word;
BEGIN
 Num:=0;
 Sum1:=0;
 Sum2:=0;
 Write('N= ');
 ReadLn(N);
 Repeat
  Num:=Num+1;
  If (Num mod 2)=1 then
   Sum1:=Sum1+(N mod 10)
  else
   Sum2:=Sum2+(N mod 10);
  N:=N div 10;
 Until N=0;
 WriteLn('Number of figures= ',Num);
 Write('Sum of figures on odd places= ');
 If (Num div 2)=1 then
  WriteLn(Sum1)
 else
  WriteLn(Sum2);
 ReadLn;
END.

 

[kulisk]

Слева, говорите? Т.е. со старших порядков? Тогда несколько сложнее (справа было бы существенно проще). Ну ладно, слева так слева:

Var
 N:LongInt;
 Num:Byte;[/QUOTE]
Большое спасибо!!!!