Комментарии к коду

[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; - зануление i
        while i1<>0 do begin
                inc(i); - увеличение i на единницу
                i1:=i1 div 10;
        end; - конец блока

        while i2<>0 do begin
                inc(i);
                i2:=i2 div 10;
        end; - конец блока

        num:=i;
end; - конец блока

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. - конец программы

Нужно описать каждую строчку программы, что какая команда выполняет. Конечно begin и end я и сам знаю что означает, а вот со всеми остальными строками, командами и кодами у меня проблемка. Я с этими командами вообще не знаком. Может кто - то помочь в этом ? Описать строчки программы. Очень надеюсь на Вас. Заранее спасибо.

[Alex21]

Сообщение от Juhn

Очень надеюсь на Вас. Заранее спасибо.

На других надейся, а сам не плашай.
Что не понятно? Ответ "Всё" не принимается.

[Juhn]

Ну если конкретнее то я не знаю как описать коды которые находятся в промежутках while, repeat, until. Так же что за команды function sar и function num. Вообщем это и получается большая часть, так как с такими циклами это первая моя программа и здесь не обошлось без помощи других, а теперь нужно ещё и каждую строчку знать..

P.S отметил, то что знаю сам, с остальным и нужно помочь :/

[Alex21]

function sar(const a, b:integer):real;
{функция, вычисляет ср. арифм. значений А и Б}
function num(var i1, i2:integer):integer; 
{функция определяет число цифр в i1 и i2 }
 inc(i); - //увеличение i на единницу   
                i1:=i1 div 10; - //"отсекаем" последнюю цифру у i1

[Juhn]

Большое спасибо ;]

[Yurk@]

Цикл с условием ДО

while i1<>0 do begin    - блок функций выполняется до тех пор, пока и НЕ равно 0
                inc(i); - увеличение i на единницу   
                i1:=i1 div 10; - занесение в i1 остатка от целочисленного деления на 10
        end; - конец блока

Цикл с условием ПОСЛЕ

repeat   
                writeln('Vvedite a');   readln(a); - вывод текста   
                writeln('Vvedite b');   readln(b); - вывод текста   
        until(a<b);

Выполняется блок операций, а после проверяется условие!

[Juhn]

Спасибо ;]
[IMG]

Проверте плз правильно ли я написал блок схему для этой программы. Если что нитак поправте