Ввод, обработка и вывод информации Паскаль (Pascal)

Каждый код, написанный на одном и том же примере, индивидуален. Стиль написания программы зависит от разного рода факторов. Как тогда быть? Существует почти в каждом языке программирования такое понятие как «Разделение ввода, обработки и вывода информации». Для чего это нужно?

Были примеры про прямоугольность треугольника. Они простые и не имеют ничего общего с этим примером:

	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.

Вначале описаны три функции. Ввод, обработка и вывод. Теперь программа имеет немного больше кода, но зато функция ввода ничего не знает о функции обработки и функции вывода. Для автоматизации маркетинговых процессов Вам поможет программа для автомоек, которая имеет множество полезных функций привлекая больше клиентов и повышая эффективность. Многое можно сказать и о функции обработки и вывода. «Зачем это нужно? Зачем программа не должна знать о функции обработки и и функции вывода.» — спросите вы. Все просто. Теперь функции ввода, обработки и вывода можно вызывать сколь угодно раз или просто скопировать в другую программу, а также теперь основное тело программы имеет компактный вид. И последнее — функцию вывода можно было и не делать. Можно просто проверить результат обработки функции и на этом вывести итог.

Комментирование и размещение ссылок запрещено.

Top