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

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

2010-01-19T12:51:44Z

Ссылки

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

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

2010-01-18T11:10:12Z

Сортировка массива персон по возрасту

@@ Строка 112: / Строка 112: @@
 ===Сортировка массива персон по возрасту===
 == Ссылки ==
 [[Алгоритмы_для_начинающих_на_примерах|Алгоритмы для начинающих]]

2010-01-18T11:03:42Z

Выбор из массива точек точки, наиболее близкой к началу координат

@@ Строка 79: / Строка 79: @@
 ===Выбор из массива точек точки, наиболее близкой к началу координат===
 ===Сортировка массива персон по возрасту===
 == Ссылки ==
 [[Алгоритмы_для_начинающих_на_примерах|Алгоритмы для начинающих]]

2010-01-18T10:55:03Z

Подсчет количества персон с данным возрастом

@@ Строка 52: / Строка 52: @@
 ===Подсчет количества персон с данным возрастом===
 ===Выбор из массива точек точки, наиболее близкой к началу координат===
 ===Сортировка массива персон по возрасту===

2010-01-18T10:49:28Z

Поиск в массиве персон по фамилии

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

	===Поиск в массиве персон по фамилии===		===Поиск в массиве персон по фамилии===
			<source lang="Delphi">type
			Person = record
			name: string;
			age: integer;
			end;

			var a: array[1..5] of Person;

			begin
			a[1].name :='Попова'; a[1].age := 20;
			a[2].name :='Петрова'; a[2].age := 18;
			a[3].name :='Крылов'; a[3].age := 23;
			a[4].name :='Иванов'; a[4].age := 25;
			a[5].name :='Сидоров'; a[5].age := 17;

			var fio: string;
			write('Введите фамилию: ');
			readln(fio);

			var ind := 0;
			for var i:=1 to 5 do
			if a[i].name=fio then
			begin
			ind := i;
			break
			end;

			if ind>0 then
			writeln('Найдено: ',a[ind].name,' ',a[ind].age)
			else writeln('Человека с такой фамилией нет в списке');
			end.</source>

	===Подсчет количества персон с данным возрастом===		===Подсчет количества персон с данным возрастом===

2010-01-18T10:41:15Z

Ввод и вывод данных о персонах

@@ Строка 1: / Строка 1: @@
 __NOTOC__
 ===Ввод и вывод данных о персонах===
 ===Поиск в массиве персон по фамилии===

2010-01-18T10:40:16Z

← Предыдущая версия		Версия от 13:40, 18 января 2010
Строка 1:		Строка 1:
			__NOTOC__
	===Ввод и вывод данных о персонах===		===Ввод и вывод данных о персонах===
	===Поиск в массиве персон по фамилии===		===Поиск в массиве персон по фамилии===

2010-01-18T10:22:20Z

← Предыдущая версия		Версия от 13:22, 18 января 2010
Строка 2:		Строка 2:
	===Поиск в массиве персон по фамилии===		===Поиск в массиве персон по фамилии===

	===Подсчет количества ~~в массиве~~ персон ~~по возрасту===~~		===Подсчет количества персон с данным возрастом===
	~~===Подсчет в массиве точек количества точек, находящихся от начала координат на расстоянии не более R~~===
	===Выбор из массива точек точки, наиболее близкой к началу координат===		===Выбор из массива точек точки, наиболее близкой к началу координат===
	===Сортировка массива персон по возрасту===		===Сортировка массива персон по возрасту===

2010-01-18T10:19:50Z

Сортировка массива персон по фамилии

← Предыдущая версия		Версия от 13:19, 18 января 2010
Строка 5:		Строка 5:
	===Подсчет в массиве точек количества точек, находящихся от начала координат на расстоянии не более R===		===Подсчет в массиве точек количества точек, находящихся от начала координат на расстоянии не более R===
	===Выбор из массива точек точки, наиболее близкой к началу координат===		===Выбор из массива точек точки, наиболее близкой к началу координат===
	===Сортировка массива персон по ~~фамилии~~===		===Сортировка массива персон по возрасту===

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

2010-01-18T10:19:42Z

Поиск в массиве персон по фамилии, возрасту

← Предыдущая версия		Версия от 13:19, 18 января 2010
Строка 1:		Строка 1:
	===Ввод и вывод данных о персонах===		===Ввод и вывод данных о персонах===
	===Поиск в массиве персон по фамилии~~, возрасту~~===		===Поиск в массиве персон по фамилии===

	===Подсчет количества в массиве персон по возрасту===		===Подсчет количества в массиве персон по возрасту===
	===Подсчет в массиве точек количества точек, находящихся от начала координат на расстоянии не более R===		===Подсчет в массиве точек количества точек, находящихся от начала координат на расстоянии не более R===