Циклы. Тексты программ - История изменений

Mikst: /* Алгоритм Евклида поиска НОД */

2019-01-21T21:01:13Z

Алгоритм Евклида поиска НОД

← Предыдущая версия		Версия от 00:01, 22 января 2019
Строка 276:		Строка 276:

	=== Алгоритм Евклида поиска НОД ===		=== Алгоритм Евклида поиска НОД ===
	<source lang="Delphi">var a,b,c: ~~integer;~~		<source lang="Delphi">begin
			var (a,b) := ReadInteger2('Введите a,b: ');
	~~begin~~
	~~writeln~~('Введите a,b: ');
	~~read(a,b~~);
	while b<>0 do		while b<>0 do
	begin		begin
	c := a mod b;		var c := a mod b;
	a := b;		a := b;
	b := c;		b := c;
	end;		end;
	~~writeln~~('Наибольший Общий Делитель = ',a);		Writeln('Наибольший Общий Делитель = ',a);
	end.</source>		end.</source>

2019-01-21T21:00:11Z

Определение простоты числа

← Предыдущая версия		Версия от 00:00, 22 января 2019
Строка 304:		Строка 304:

	=== Определение простоты числа ===		=== Определение простоты числа ===
	<source lang="Delphi">~~var~~		<source lang="Delphi">begin

	begin
	var N := ReadlnInteger('Введите целое (>1): ');		var N := ReadlnInteger('Введите целое (>1): ');

2019-01-21T20:59:55Z

Определение простоты числа

← Предыдущая версия		Версия от 23:59, 21 января 2019
Строка 310:		Строка 310:

	var IsPrime := True;		var IsPrime := True;
	for var i:=2 to ~~round~~(~~sqrt~~(N)) do // если число составное, то один из его сомножителей <= sqrt(N)		for var i:=2 to Round(Sqrt(N)) do // если число составное, то один из его сомножителей <= sqrt(N)
	if N mod i = 0 then		if N mod i = 0 then
	begin		begin

2019-01-21T20:59:41Z

Определение простоты числа

← Предыдущая версия		Версия от 23:59, 21 января 2019
Строка 305:		Строка 305:
	=== Определение простоты числа ===		=== Определение простоты числа ===
	<source lang="Delphi">var		<source lang="Delphi">var
	~~N: integer;~~
	~~IsSimple: boolean;~~

	begin		begin
	~~writeln~~('Введите ~~число~~: ');		var N := ReadlnInteger('Введите целое (>1): ');
	~~readln(N~~);

	~~IsSimple~~ := True;		var IsPrime := True;
	for var i:=2 to round(sqrt(N)) do // если число составное, то один из его сомножителей <= sqrt(N)		for var i:=2 to round(sqrt(N)) do // если число составное, то один из его сомножителей <= sqrt(N)
	if N mod i = 0 then		if N mod i = 0 then
	begin		begin
	~~IsSimple~~ := False;		IsPrime := False;
	break;		break;
	end;		end;

	if ~~IsSimple~~ then		if IsPrime then
	~~writeln~~('Число ',N,' простое')		Writeln('Число ',N,' простое')
	else ~~writeln~~('Число ',N,' составное');		else Writeln('Число ',N,' составное');
	end.</source>		end.</source>

2010-01-19T12:48:47Z

Ссылки

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

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

2010-01-07T21:07:15Z

Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1 =

← Предыдущая версия		Версия от 00:07, 8 января 2010
Строка 1:		Строка 1:
	__NOTOC__		__NOTOC__
	== Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1 ===		=== Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1 ===
	<source lang="Delphi">var i: integer;		<source lang="Delphi">var i: integer;
	begin		begin
Строка 324:		Строка 324:
	else writeln('Число ',N,' составное');		else writeln('Число ',N,' составное');
	end.</source>		end.</source>

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

2010-01-07T21:07:00Z

← Предыдущая версия		Версия от 00:07, 8 января 2010
Строка 1:		Строка 1:
	=== Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1 ===		__NOTOC__
			== Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1 ===
	<source lang="Delphi">var i: integer;		<source lang="Delphi">var i: integer;
	begin		begin

2010-01-07T21:00:58Z

← Предыдущая версия		Версия от 00:00, 8 января 2010
Строка 1:		Строка 1:
	~~__NOTOC__~~
	=== Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1 ===		=== Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1 ===
	<source lang="Delphi">var i: integer;		<source lang="Delphi">var i: integer;

2009-11-18T21:09:02Z

← Предыдущая версия		Версия от 00:09, 19 ноября 2009
Строка 324:		Строка 324:
	else writeln('Число ',N,' составное');		else writeln('Число ',N,' составное');
	end.</source>		end.</source>
			== Ссылки ==
			[[Алгоритмы_для_начинающих_на_примерах\|Алгоритмы для начинающих]]

2009-11-18T21:08:13Z

Определение простоты числа

← Предыдущая версия		Версия от 00:08, 19 ноября 2009
Строка 304:		Строка 304:

	=== Определение простоты числа ===		=== Определение простоты числа ===
			<source lang="Delphi">var
			N: integer;
			IsSimple: boolean;

			begin
			writeln('Введите число: ');
			readln(N);

			IsSimple := True;
			for var i:=2 to round(sqrt(N)) do // если число составное, то один из его сомножителей <= sqrt(N)
			if N mod i = 0 then
			begin
			IsSimple := False;
			break;
			end;

			if IsSimple then
			writeln('Число ',N,' простое')
			else writeln('Число ',N,' составное');
			end.</source>