Как объяснить данную программу?

@Kerilo · Регистрация: 11.12.2010

Author24 — интернет-сервис помощи студентам

Преподаватель задает вопрос, почему да что, откуда что береться, хоть там и покоментировано, не могли бы вы немного объяснить?

Pascal

Uses crt;
const {Раздел констант}
Nach=11; {Начальное значение}
Kon=13; {Конечное значение}
stp=0.2; {Шаг}
 
 
Function schet(var a,b,c,x:real):real; {Функция вычисления}
Begin
schet:= a * exp(x)+b*sin(c*x);  {Расчёт по формуле и вывод из функции}
end;
    
 
Procedure perebor (var a,b,c:real);  {Процедура пошагового вывода}
Var x:real;
 
begin
x:=nach;  {Указатель на текущий шаг - счётчик}
writeln;
While x<=Kon do
  begin
 
 write(x:4:1,':  ');
 Writeln(schet(a,b,c,x):1:3);    {Вывод с заданной точностью}
 
 x:=x+stp;  {Увеличиваем счётчик на размер шага}
 end;
 
end;
 
 
procedure vvod ;  {Процедура ввода данных}
Var
   a,b,c:real;
Begin
Writeln('Введите: a b c');
Readln(a,b,c);
perebor(a,b,c);
end;
 
Begin
vvod;        {тело основной программы}
end.

ПС: и где можно посмотреть примеры как делать Гистограммы(стобцовые едиграммы) на паскале. Прсото я не понимаю в этом, мб есть готовая, просто переделать..Буду очень признателен, и если кто еще по гистограммам поможет, не обижу)

	09.05.2011, 17:23