Процедуры и функции. Тексты программ - История изменений

Mikst: /* Ссылки */

2010-01-19T12:49:47Z

Ссылки

← Предыдущая версия		Версия от 15:49, 19 января 2010
Строка 197:		Строка 197:

	== Ссылки ==		== Ссылки ==
	[[~~Алгоритмы_для_начинающих_на_примерах\|Алгоритмы~~ для начинающих]]		*[[Программы для начинающих]]
			*[http://pascalabc.net/ru/programmyi-i-algoritmyi-dlya-nachinayuschih.html Сайт PascalABC.NET: Программы и алгоритмы для начинающих]

2010-01-17T21:37:13Z

← Предыдущая версия		Версия от 00:37, 18 января 2010
Строка 1:		Строка 1:
			__NOTOC__
	=== Вычисление площади и периметра прямоугольника ===		=== Вычисление площади и периметра прямоугольника ===
	<source lang="Delphi">procedure RectSP(a,b: real; var S,P:real);		<source lang="Delphi">procedure RectSP(a,b: real; var S,P:real);

2010-01-17T21:34:17Z

← Предыдущая версия		Версия от 00:34, 18 января 2010
Строка 1:		Строка 1:
	~~__NOTOC__~~
	=== Вычисление площади и периметра прямоугольника ===		=== Вычисление площади и периметра прямоугольника ===
	<source lang="Delphi">procedure RectSP(a,b: real; var S,P:real);		<source lang="Delphi">procedure RectSP(a,b: real; var S,P:real);

2009-11-28T09:27:40Z

Процедура вывода таблицы умножения

← Предыдущая версия		Версия от 12:27, 28 ноября 2009
Строка 182:		Строка 182:

	=== Процедура вывода таблицы умножения ===		=== Процедура вывода таблицы умножения ===
			<source lang="Delphi">procedure Pifagor(n: integer);
			begin
			for var i:=1 to n do
			begin
			for var j:=1 to n do
			write(i*j:4);
			writeln;
			end;
			end;

			begin
			Pifagor(15);
			end.</source>

	== Ссылки ==		== Ссылки ==
	[[Алгоритмы_для_начинающих_на_примерах\|Алгоритмы для начинающих]]		[[Алгоритмы_для_начинающих_на_примерах\|Алгоритмы для начинающих]]

2009-11-28T09:24:56Z

Функция определения НОД числа

← Предыдущая версия		Версия от 12:24, 28 ноября 2009
Строка 159:		Строка 159:

	=== Функция определения НОД числа ===		=== Функция определения НОД числа ===
			<source lang="Delphi">function NOD(a,b: integer): integer;
			begin
			while b<>0 do
			begin
			var c := a mod b;
			a := b;
			b := c;
			end;
			Result := a;
			end;

			var x,y: integer;

			begin
			x := 15; y := 12;
			writelnFormat('НОД чисел {0} и {1} равен {2}',x,y,NOD(x,y));
			x := 144; y := 64;
			writelnFormat('НОД чисел {0} и {1} равен {2}',x,y,NOD(x,y));
			x := 99; y := 54;
			writelnFormat('НОД чисел {0} и {1} равен {2}',x,y,NOD(x,y));
			end.</source>

	=== Процедура вывода таблицы умножения ===		=== Процедура вывода таблицы умножения ===

2009-11-28T09:19:18Z

Функция вычисления n-того числа Фибоначчи

@@ Строка 135: / Строка 135: @@
 === Функция вычисления n-того числа Фибоначчи===
 === Функция определения НОД числа ===
 === Процедура вывода таблицы умножения ===

2009-11-28T09:15:23Z

Функция определения простоты числа

@@ Строка 117: / Строка 117: @@
 === Функция определения простоты числа ===
 === Функция вычисления n-того числа Фибоначчи===
 === Функция определения НОД числа ===

2009-11-28T09:13:00Z

Функция проверки числа на четность

@@ Строка 105: / Строка 105: @@
 === Функция проверки числа на четность ===
 === Функция определения простоты числа ===
 === Функция вычисления n-того числа Фибоначчи===

2009-11-28T09:11:15Z

Функция, преобразующая цифру к ее словесному наименованию

← Предыдущая версия		Версия от 12:11, 28 ноября 2009
Строка 82:		Строка 82:

	=== Функция, преобразующая цифру к ее словесному наименованию ===		=== Функция, преобразующая цифру к ее словесному наименованию ===
			<source lang="Delphi">function DigitName(n: integer): string;
			begin
			case n of
			0: Result := 'ноль';
			1: Result := 'один';
			2: Result := 'два';
			3: Result := 'три';
			4: Result := 'четыре';
			5: Result := 'пять';
			6: Result := 'шесть';
			7: Result := 'семь';
			8: Result := 'восемь';
			9: Result := 'девять';
			end;
			end;

			begin
			writeln(DigitName(3));
			writeln(DigitName(5));
			writeln(DigitName(7));
			end.</source>

	=== Функция проверки числа на четность ===		=== Функция проверки числа на четность ===

2009-11-21T16:12:16Z

Функция вычисления n!

← Предыдущая версия		Версия от 19:12, 21 ноября 2009
Строка 80:		Строка 80:
	writelnFormat('{0}! = {1}',n,Factorial(n));		writelnFormat('{0}! = {1}',n,Factorial(n));
	end.</source>		end.</source>



	=== Функция, преобразующая цифру к ее словесному наименованию ===		=== Функция, преобразующая цифру к ее словесному наименованию ===