Каждый код, написанный на одном и том же примере, индивидуален. Стиль написания программы зависит от разного рода факторов. Как тогда быть? Существует почти в каждом языке программирования такое понятие как «Разделение ввода, обработки и вывода информации». Для чего это нужно?
Были примеры про прямоугольность треугольника. Они простые и не имеют ничего общего с этим примером:
Program Triangle;
Var a,b,c,flag : Integer;
function Enters(i:Integer):Integer;
begin
Write('enter the side of the triangle: ');
Read(i);
Result:=i;
end;
function SquareNess(a, b, c : Integer):Integer;
begin
if (
(sqr(c)=(sqr(a) + sqr(b))) or
(sqr(b)=(sqr(a) + sqr(c))) or
(sqr(a)=(sqr(b) + sqr(c)))
) then
result:=0
else
result:=1;
end;
function OutPut(x : Integer):Integer;
begin
if (x=0) then WriteLn('Rectangular triangle!!!')
else WriteLn('Triangle is not a right!!!')
end;
Begin
WriteLn('Enter the triangle!!!');
a := Enters(a);
b := Enters(b);
c := Enters(c);
flag := SquareNess (a, b, c);
OutPut(flag);
End.
Вначале описаны три функции. Ввод, обработка и вывод. Теперь программа имеет немного больше кода, но зато функция ввода ничего не знает о функции обработки и функции вывода. Для автоматизации маркетинговых процессов Вам поможет программа для автомоек, которая имеет множество полезных функций привлекая больше клиентов и повышая эффективность. Многое можно сказать и о функции обработки и вывода. «Зачем это нужно? Зачем программа не должна знать о функции обработки и и функции вывода.» — спросите вы. Все просто. Теперь функции ввода, обработки и вывода можно вызывать сколь угодно раз или просто скопировать в другую программу, а также теперь основное тело программы имеет компактный вид. И последнее — функцию вывода можно было и не делать. Можно просто проверить результат обработки функции и на этом вывести итог.


Декабрь 17th, 2013
admin 
Опубликовано в рубрике