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

Mikst в 08:13, 6 января 2025

2025-01-06T08:13:13Z

← Предыдущая версия		Версия от 11:13, 6 января 2025
Строка 109:		Строка 109:
	== Ссылки ==		== Ссылки ==
	*[[Программы для начинающих]]		*[[Программы для начинающих]]
	*[http://pascalabc.net/ru/programmyi-i-algoritmyi-dlya-nachinayuschih.html Сайт PascalABC.NET: Программы и алгоритмы для начинающих]

Mikst: /* Вычисление A8 */

2025-01-06T08:12:28Z

Вычисление A8

← Предыдущая версия		Версия от 11:12, 6 января 2025
Строка 18:		Строка 18:
	=== Вычисление A<sup>8</sup> ===		=== Вычисление A<sup>8</sup> ===
	'''Код на PascalABC.NET:'''		'''Код на PascalABC.NET:'''
	<source lang="pascal">~~var a: real;~~		<source lang="pascal">
	begin		begin
	var a := ReadReal('Введите a: ');		var a := ReadReal('Введите a: ');

Mikst: /* Вычисление A8 */

2019-11-18T10:14:33Z

Вычисление A8

← Предыдущая версия		Версия от 13:14, 18 ноября 2019
Строка 20:		Строка 20:
	<source lang="pascal">var a: real;		<source lang="pascal">var a: real;
	begin		begin
	~~write~~('Введите a: ');		var a := ReadReal('Введите a: ');
	~~readln(a~~);
	var a2,a4,a8: real; // вспомогательные переменные		var a2,a4,a8: real; // вспомогательные переменные
	a2 := a * a;		var a2 := a * a;
	a4 := a2 * a2;		var a4 := a2 * a2;
	a8 := a4 * a4;		var a8 := a4 * a4;
	~~writeln~~(a,' в степени 8 = '~~,a8~~);		Println(a,$'{a} в степени 8 = {a8}');
	end.</source>		end.</source>
	Здесь иллюстрируется использование промежуточных переменных и вычислений: без промежуточных вычислений мы бы потратили 7 умножений, а с промежуточными - всего 3.		Здесь иллюстрируется использование промежуточных переменных и вычислений: без промежуточных вычислений мы бы потратили 7 умножений, а с промежуточными - всего 3.

Mikst: /* Вычисление площади круга */

2019-11-18T10:12:20Z

Вычисление площади круга

← Предыдущая версия		Версия от 13:12, 18 ноября 2019
Строка 9:		Строка 9:
	<source lang="pascal">const Pi = 3.1415;		<source lang="pascal">const Pi = 3.1415;

	~~var~~
	~~r: real; // радиус круга~~
	~~S: real; // площадь круга~~

	begin		begin
	~~write~~('Введите радиус круга: ');		var r := ReadReal('Введите радиус круга: ');
	~~readln(r);~~		var S := Pirr;
	S := Pirr;		Println('Площадь круга равна ',S);
	~~writeln~~('Площадь круга равна ',S);
	end.</source>		end.</source>
	Здесь иллюстрируется ввод, затем вычисления и вывод результата. ~~Входные и выходные переменные описаны на разных строчках, описание сопровождается комментарием~~		Здесь иллюстрируется ввод, затем вычисления и вывод результата.

	=== Вычисление A<sup>8</sup> ===		=== Вычисление A<sup>8</sup> ===

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

2010-01-19T12:47:42Z

Ссылки

← Предыдущая версия		Версия от 15:47, 19 января 2010
Строка 115:		Строка 115:
	== Ссылки ==		== Ссылки ==
	*[[Программы для начинающих]]		*[[Программы для начинающих]]
	*[http://pascalabc.net/ru/programmyi-i-algoritmyi-dlya-nachinayuschih.html Сайт PascalABC.NET: Программы для начинающих]		*[http://pascalabc.net/ru/programmyi-i-algoritmyi-dlya-nachinayuschih.html Сайт PascalABC.NET: Программы и алгоритмы для начинающих]

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

2010-01-19T12:47:15Z

Ссылки

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

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

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

2010-01-07T20:59:48Z

Ссылки

← Предыдущая версия		Версия от 23:59, 7 января 2010
Строка 114:		Строка 114:

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

Mikst в 18:11, 6 января 2010

2010-01-06T18:11:13Z

← Предыдущая версия		Версия от 21:11, 6 января 2010
Строка 19:		Строка 19:
	writeln('Площадь круга равна ',S);		writeln('Площадь круга равна ',S);
	end.</source>		end.</source>
			Здесь иллюстрируется ввод, затем вычисления и вывод результата. Входные и выходные переменные описаны на разных строчках, описание сопровождается комментарием

	=== Вычисление A<sup>8</sup> ===		=== Вычисление A<sup>8</sup> ===
Строка 32:		Строка 33:
	writeln(a,' в степени 8 = ',a8);		writeln(a,' в степени 8 = ',a8);
	end.</source>		end.</source>
			Здесь иллюстрируется использование промежуточных переменных и вычислений: без промежуточных вычислений мы бы потратили 7 умножений, а с промежуточными - всего 3.

	=== Вычисление расстояния между двумя точками на прямой ===		=== Вычисление расстояния между двумя точками на прямой ===
Строка 46:		Строка 48:
	writeln('Расстояние между точками = ',r);		writeln('Расстояние между точками = ',r);
	end.</source>		end.</source>
			Здесь иллюстрируется использование стандартной функции abs

	=== Вычисление гипотенузы по катетам ===		=== Вычисление гипотенузы по катетам ===
Строка 57:		Строка 60:
	writeln('Гипотенуза = ',c);		writeln('Гипотенуза = ',c);
	end.</source>		end.</source>
			Здесь иллюстрируется использование стандартной функции sqrt

	=== Бросание кубиков ===		=== Бросание кубиков ===
Строка 67:		Строка 71:
	writeln('Сумма очков равна ',r1+r2);		writeln('Сумма очков равна ',r1+r2);
	end.</source>		end.</source>
			Здесь иллюстрируется использование стандартной функции Random

	=== Обмен значений двух переменных с использованием третьей ===		=== Обмен значений двух переменных с использованием третьей ===
Строка 81:		Строка 86:
	writeln('Новые значения x,y: ',x,' ',y);		writeln('Новые значения x,y: ',x,' ',y);
	end.</source>		end.</source>
			Это - классическая задача о перемене местами значений двух переменных с использованием третьей переменной. Она часто возникает в других задачах. Интересно, что x и y являются как входными, так и выходными переменными

	'''Код на PascalABC.NET:'''		'''Код на PascalABC.NET:'''
Строка 93:		Строка 99:
	writeln('Новые значения x,y: ',x,' ',y);		writeln('Новые значения x,y: ',x,' ',y);
	end.</source>		end.</source>
			Данное решение использует внутриблочное описание переменной. В результате вспомогательная переменная описывается первый раз лишь в тот момент, в который она действительно понадобилась

	=== Выделение цифр из двузначного числа ===		=== Выделение цифр из двузначного числа ===
Строка 105:		Строка 112:
	writeln('Первая и вторая цифры двузначного числа: ',c1,' ',c2);		writeln('Первая и вторая цифры двузначного числа: ',c1,' ',c2);
	end.</source>		end.</source>

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

Mikst: /* HelloWorld */

2010-01-06T18:02:58Z

HelloWorld

← Предыдущая версия		Версия от 21:02, 6 января 2010
Строка 4:		Строка 4:
	writeln('Привет, мир!');		writeln('Привет, мир!');
	end.</source>		end.</source>
			Это - самая первая программа на любом языке программирования.

	=== Вычисление площади круга ===		=== Вычисление площади круга ===

Mikst в 17:40, 6 января 2010

2010-01-06T17:40:08Z

← Предыдущая версия		Версия от 20:40, 6 января 2010
Строка 1:		Строка 1:
			__NOTOC__
	=== HelloWorld ===		=== HelloWorld ===
	<source lang="pascal">begin		<source lang="pascal">begin