Стандартные задачи на циклы - История изменений

Mikst: /* №9. Вывод n первых чисел Фибоначчи */

2019-12-31T20:18:36Z

№9. Вывод n первых чисел Фибоначчи

← Предыдущая версия		Версия от 23:18, 31 декабря 2019
Строка 154:		Строка 154:
	var (a,b) := (1,1);		var (a,b) := (1,1);
	Print(a,b);		Print(a,b);
	~~for var i := 3 to~~ n do		loop n-2 do
	begin		begin
	(a,b):=(b,a+b);		(a,b):=(b,a+b);

Mikst: /* №9. Вывод n первых чисел Фибоначчи */

2019-12-31T20:18:06Z

№9. Вывод n первых чисел Фибоначчи

← Предыдущая версия		Версия от 23:18, 31 декабря 2019
Строка 151:		Строка 151:
	begin		begin
	var n := ReadInteger('Введите целое число n (n > 1): ');		var n := ReadInteger('Введите целое число n (n > 1): ');
	~~assert~~(n>1);		Assert(n>1);
	var (a,b) := (1,1);		var (a,b) := (1,1);
	Print(a,b);		Print(a,b);

Mikst: /* №9. Вывод n первых чисел Фибоначчи */

2019-12-31T20:17:54Z

№9. Вывод n первых чисел Фибоначчи

← Предыдущая версия		Версия от 23:17, 31 декабря 2019
Строка 153:		Строка 153:
	assert(n>1);		assert(n>1);
	var (a,b) := (1,1);		var (a,b) := (1,1);
	~~print~~(a,b);		Print(a,b);
	for var i := 3 to n do		for var i := 3 to n do
	begin		begin

VFixer: /* №13a. Вычислить Σ(i=1..∞) (-1)^i * a^i/i! */

2019-12-12T21:19:04Z

№13a. Вычислить Σ(i=1..∞) (-1)^i * a^i/i!

← Предыдущая версия		Версия от 00:19, 13 декабря 2019
Строка 260:		Строка 260:
	<source lang="pascal">		<source lang="pascal">
	begin		begin
	var a:=ReadReal('Введите a: ');		var a:=ReadReal('Введите a (0 < a < 1): ');
	~~var n:=ReadInteger~~(~~'Введите n~~ (n>0)~~: '~~);		assert((a>0) and (a<1));
	~~assert(n>~~0);
	var x := a;		var eps := 0.0001;
	var s := x;		var i := 1;
	~~for~~ var i := ~~2 to n do~~		var s := 0.0;
	~~begin~~		var y := -a;
	x *= a / i;		repeat
	s += x;		s += y / i;
	~~end~~;		i += 1;
	Println($'Сумма = {s}');		y *= -a;
	end. ~~//Привет~~		until abs(y/i) < eps;

			Println($'Сумма = {s}');
			end.
	</source>		</source>

VFixer: /* №13. Вычислить Σ(i=1..n) a^i/i! */

2019-12-12T21:11:00Z

№13. Вычислить Σ(i=1..n) a^i/i!

← Предыдущая версия		Версия от 00:11, 13 декабря 2019
Строка 242:		Строка 242:
	=== №13. Вычислить Σ(i=1..n) a^i/i! ===		=== №13. Вычислить Σ(i=1..n) a^i/i! ===
	<source lang="pascal">		<source lang="pascal">
	~~var~~
	~~a: real;~~
	~~n: integer;~~
	begin		begin
	~~write~~('Введите a и n (n>0): ');		var a:=ReadReal('Введите a: ');
	~~readln(a,n~~);		var n:=ReadInteger('Введите n (n>0): ');
	assert(n>0);		assert(n>0);
	var x := a;		var x := a;
Строка 256:		Строка 253:
	s += x;		s += x;
	end;		end;
	~~writeln~~('Сумма = '~~, s~~);		Println($'Сумма = {s}');
	end.		end.
	</source>		</source>

VFixer: /* №13a. Вычислить Σ(i=1..∞) (-1)^i * a^i/i! */

2019-12-12T21:05:48Z

№13a. Вычислить Σ(i=1..∞) (-1)^i * a^i/i!

← Предыдущая версия		Версия от 00:05, 13 декабря 2019
Строка 262:		Строка 262:
	=== №13a. Вычислить Σ(i=1..∞) (-1)^i * a^i/i! ===		=== №13a. Вычислить Σ(i=1..∞) (-1)^i * a^i/i! ===
	<source lang="pascal">		<source lang="pascal">
	~~var a: real;~~
	begin		begin
	~~write~~('Введите a ~~(0 < a < 1)~~: ');		var a:=ReadReal('Введите a: ');
	~~readln~~(a);		var n:=ReadInteger('Введите n (n>0): ');
	assert((a>0~~) and (a<1)~~);		assert(n>0);
			var x := a;
	var ~~eps~~ := ~~0.0001;~~		var s := x;
	~~var i := 1~~;		for var i := 2 to n do
	var s := ~~0.0~~;		begin
	var y := ~~-a;~~		x *= a / i;
	~~repeat~~		s += x;
	~~s +~~= y / i;		end;
	i += 1;		Println($'Сумма = {s}');
	~~y *= -a~~;		end. //Привет
	~~until abs(y/i) < eps~~;

	~~writeln~~('Сумма = '~~, s~~);
	end.
	</source>		</source>

VFixer: /* №12a. Найти min, удовлетворяющее условию p(x) */

2019-12-12T20:54:24Z

№12a. Найти min, удовлетворяющее условию p(x)

← Предыдущая версия		Версия от 23:54, 12 декабря 2019
Строка 218:		Строка 218:
	<source lang="pascal">		<source lang="pascal">
	// Условие взятое как пример (Если число положительное, то условие p(x) возвращает true, иначе false)		// Условие взятое как пример (Если число положительное, то условие p(x) возвращает true, иначе false)
	function p(x: real): boolean;		function p(x: real): boolean:=x > 0;

	begin		begin
	~~Result~~ := ~~x > 0;~~		var n := ReadInteger('Введите целое число n (n>0): ');
	~~end;~~

	~~begin~~
	~~write~~('Введите целое число n (n>0): ');
	~~var n := ReadInteger~~;
	assert(n>0);		assert(n>0);

	var min := real.MaxValue;		var min := real.MaxValue;
	for var i := 1 to n do		for var i := 1 to n do
	begin		begin
	~~write~~('Введите ', i~~, '~~ число: ');		var x := ReadReal($'Введите {i} число: ');
	~~var x := ReadReal~~;
	if (x < min) and p(x) then		if (x < min) and p(x) then
	min := x;		min := x;
	end;		end;

	if min = real.MaxValue then		if min = real.MaxValue then
	~~writeln~~('Нет чисел, удовлетворяющих условию')		println('Нет чисел, удовлетворяющих условию')
	else ~~writeln~~('Минимальное из введенных чисел, удовлетворяющее условию: '~~, min~~);		else println($'Минимальное из введенных чисел, удовлетворяющее условию: {min}');
	end.		end.
	</source>		</source>

VFixer: /* №12. Найти max из введенных чисел */

2019-12-12T20:48:42Z

№12. Найти max из введенных чисел

← Предыдущая версия		Версия от 23:48, 12 декабря 2019
Строка 199:		Строка 199:
	<source lang="pascal">		<source lang="pascal">
	begin		begin
	~~write~~('Введите целое число n (n>0): ');		var n := ReadInteger('Введите целое число n (n>0): ');
	~~var n := ReadInteger~~;
	assert(n>0);		assert(n>0);

	~~write~~('Введите 1 число: ');		var x := ReadReal('Введите 1 число: ');
	~~var x := ReadReal~~;
	var max := x;		var max := x;
	for var i := 2 to n do		for var i := 2 to n do
	begin		begin
	~~write~~('Введите ', i~~, '~~ число: ');		x := ReadReal($'Введите {i} число: ');
	~~x := ReadReal~~;
	if max < x then		if max < x then
	max := x;		max := x;
	end;		end;

	~~writeln~~('Максимальное из введенных чисел: '~~, max~~);		Println($'Максимальное из введенных чисел: {max}');
	end.		end.
	</source>		</source>

VFixer: /* №11. Найти сумму цифр целого положительного числа m */

2019-12-12T20:40:39Z

№11. Найти сумму цифр целого положительного числа m

← Предыдущая версия		Версия от 23:40, 12 декабря 2019
Строка 176:		Строка 176:
	</source>		</source>

	=== №11. Найти сумму цифр целого ~~положительного~~ числа m ===		=== №11. Найти сумму цифр целого числа m ===
	<source lang="pascal">		<source lang="pascal">
	begin		begin
	~~write~~('Введите целое ~~положительное~~ число m: ');		var m := ReadInteger('Введите целое число m: ');
	var m := ~~ReadInteger;~~
	~~assert~~(m ~~> 0~~);		var (s,m1) := (0,abs(m));
			while m1 > 0 do
	~~var s := 0~~;
	while m > 0 do
	begin		begin
	s += m mod 10;		s += m1 mod 10;
	m := m div 10;		m1 := m1 div 10;
	end;		end;

	~~writeln~~('Сумма цифр числа m равна '~~, s~~);		println($'Сумма цифр числа {m} равна {s}');
	end.		end.
	</source>		</source>

			Для работы с отрицательными числами в алгоритме используется стандартная функция abs(x) возвращающая модуль от x.

	== Максимумы и минимумы ==		== Максимумы и минимумы ==

VFixer: /* №9. Вывод n первых чисел Фибоначчи */

2019-12-12T20:29:07Z

№9. Вывод n первых чисел Фибоначчи

← Предыдущая версия		Версия от 23:29, 12 декабря 2019
Строка 161:		Строка 161:
	end.		end.
	</source>		</source>

			В алгоритме используются кортежи. В момент переприсваивания в цикле создаются буферные переменные, что позволяет нам избежать их объявления вручную.

	=== №10. Найти НОД(A,B), используя алгоритм Евклида: ===		=== №10. Найти НОД(A,B), используя алгоритм Евклида: ===