Исправление ошибок в проге

[Juhn]

Есть такая программа:

program chisla;
function sar(const a, b:integer):real; 
begin
        sar:=(a + b)/2;
end;

function num(var i1, i2:integer):integer; 
var     
	i:integer;
begin
        i:=0;
        while i1<>0 do begin 
                inc(i); 
                i1:=i1 div 10; 
        end;

        while i2<>0 do begin
                inc(i);
                i2:=i2 div 10;
        end;

        num:=i; 

var 
a, b:integer;
begin
        repeat 
                writeln('Vvedite a');   readln(a);
                writeln('Vvedite b');   readln(b);
        until(a<b); 
        writeln('summa chisel:', (a+b));
        writeln('srednee arifmeticheskoe:', sar(a,b):4);
        writeln('kolichestvo cifr:', num(a,b));
readln;
end.

1.Ошибка в следующем, сумма и арифметическое считается правильно, а вот количество цифр почему - то пишется 1, а не 2, хотя написано writeln('kolichestvo cifr:', num(a,b)); Как сделать что бы выдавало кол-во цифр 2 ?
2. Не поможете разобраться с данными строками:
function sar(const a, b:integer):real;
function num(var i1, i2:integer):integer;

Какой тип к этим переменным присваевается ? реальный или переменный? а то в скобках например integer а за скобками ещё и real. Вообщем помогите как расписать эти строки.
Заранее спасибо.

[puporev]

Сам бы писал, не спрашивал бы.
1.

i:=0;
while i1<>0 do begin
inc(i);
i1:=i1 div 10;

Берешь двухзначное число, делишь его на 10. Целая часть числа=1. Если еще раз разделить, уловие while i1<>0 do begin не даст, следовательно результат=1. Значит что нужно? Перед началом цикла поставить i:=1;

2.

function sar(const a, b:integer):real;
function num(var i1, i2:integer):integer; Какой тип к этим переменным присваевается ? реальный или переменный? а то в скобках например integer а за скобками ещё и real. Вообщем помогите как расписать эти строки.

Будет время, расскажи нам темным про реальный и переменный типы по-подробнее.
function sar(const a, b:integer):real; - по словам:
function - это функция; sar - название ее (сокращенно от среднего арифметического); const - вообще не нужно; a,b -два числа люблго типа, в данном случае - целого (nteger); :real; - тип результата, который выдает функция, в данном случае вещественный тип real;, т.к. в результате деления по определению целое число лишь частный случай.
function num(var i1, i2:integer):integer; первое и второе слова см. выше; var - убери; i1, i2:integer - поскольку условия задачи не видал, могу предположить, что это целые числа; последнее слово см. выше;
Вроде все.

[Juhn]

Спасибо, очень помогло. Только вот.. i:=0; - это зануление значения i как я понимаю, тоесть нужно ещё перед этим вписать i:=1 ? тоесть так:
i:=1;
i:=0;
while i1<>0 do begin
inc(i);
i1:=i1 div 10;

Тогда тоже самое нужно будет сделать и со следующим циклом (там где i2). И как описать эту строку i:=1; ? присвоение i единичного значения ?

[puporev]

это зануление значения i как я понимаю, тоесть нужно ещё перед этим вписать i:=1 ? тоесть так:
i:=1;
i:=0;

Никакого "зануления не бывает". Перед началом цикла некоторым переменным присваиваеся начальное значение. Оно может быть не только 0 или1, а любое число и даже формула. Поэтому i:=0 - убрать. Во втором цикле все аналогично. Обычно I:=0 пишут, если нужно в цикле подсчитать сумму I:=I+a; Если в цикле идет умножение? то перед циклом пишут I:=1; в цикле I:=I*a; Это наиболее часто встречается при решении задач типа школьных.

[Juhn]

Понятно поменял, но теперь вообще не понимаю как это вычисляется, например ввёл a=1, b=3, выдал кол-во цифр 2, а ввёл а=1, б=12, выдал кол-во цифр вообще 3, непонятно как это там считается, явно что то нитак, может ещё какая - то дополнительная строчка (какая - нибудь формула) в программе нужна для подсчитывания цифр ?

[puporev]

Напиши подробно условие задачи, я не понимаю, что у тебя делает function num(var i1, i2:integer):integer;

[Juhn]

Условие такое:
даны 2 числа а и б, притом а < б. Найти их сумму, ср. арифметическое и кол-во цифр. (Использовать циклы Repeat-Until, while-do, только вот я сам не знаю или 2 цикла вместе или можно и с любым из двух, поэтому здесь сразу 2, но если можно с одним, то думаю тоже пойдёт, если меньше заморочек будет).

[puporev]

Чтобы долго не рассказывать я написал маленькую программу, как работает твоя функция. Конечно ее нужно делать для одного числа, а использовать можно хоть для ста чисел, пока руки не отнимутся. Всегда к своему коду прилагай подробное условие в оригинале, а не пересказанное своими словами. Если бы условие было, я тебе час назад все бы выдал. А I:=0; это правильно.

uses crt;
var a,b:longint;
    numa,numb:integer;
function num(a:longint):integer;
var i:integer;
begin
i:=0;
while a<>0 do
   begin
     inc(i);
     a:=a div 10;
   end;
num:=i;
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
writeln('numa=',num(a));
writeln('numb=',num(b));
readln;
end.

Еще сменил тип для вводимых чисел, чтобы можно было вводить числа до 2000000000.

[Juhn]

Так это нужно вставить куда - то в мою программу, или это отдельная программа ? Просто что она считает ? Всегда выдает результат numa=1, numb=1.

[puporev]

Не знаю, что ты там пишешь, у меня все нормально работает. У тебя в первом коде еще такой косяк: ты сначала описываешь функции, а потом раздел переменных, а нужно наоборот. Вот весь код, а в приложении работающая программа.

program chisla;
uses crt;
var a,b:longint;
    numa,numb:integer;
function sar(a,b:longint):real;
begin
sar:=(a+b)/2;
end;
function num(a:longint):integer;
var i:integer;
begin
i:=0;
while a<>0 do
   begin
     inc(i);
     a:=a div 10;
   end;
num:=i;
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
writeln('sr arifm a,b=',sar(a,b):6:2);
writeln('numa=',num(a));
writeln('numb=',num(b));
readln;
end.