Каждый код, написанный на одном и том же примере, индивидуален. Стиль написания программы зависит от разного рода факторов. Как тогда быть? Существует почти в каждом языке программирования такое понятие как «Разделение ввода, обработки и вывода информации». Для чего это нужно?
Были примеры про прямоугольность треугольника. Они простые и не имеют ничего общего с этим примером:
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.
Вначале описаны три функции. Ввод, обработка и вывод. Теперь программа имеет немного больше кода, но зато функция ввода ничего не знает о функции обработки и функции вывода. Для автоматизации маркетинговых процессов Вам поможет программа для автомоек, которая имеет множество полезных функций привлекая больше клиентов и повышая эффективность. Многое можно сказать и о функции обработки и вывода. «Зачем это нужно? Зачем программа не должна знать о функции обработки и и функции вывода.» — спросите вы. Все просто. Теперь функции ввода, обработки и вывода можно вызывать сколь угодно раз или просто скопировать в другую программу, а также теперь основное тело программы имеет компактный вид. И последнее — функцию вывода можно было и не делать. Можно просто проверить результат обработки функции и на этом вывести итог.