- Список рубрик
- Теги этой статьи
- Новые статьи на сайте
- Самые популярные статьи
![Иллюстрация к статье Замена процессора в ноутбуке. Апгрейд процессора Intel второго и третьего поколения Core i7 [Sandy Bridge и Ivy Bridge]](/docs/zamena_processora_v_noutbuke_socket_g2/imgsocial_small.jpg)
- Последние новости
Pascal. Сортировка массива комплексных чисел
Добрый день дорогие читатели. В статье описывается решение задачи "Сортировка массива комплексных чисел" написанние на языке программирования Turbo Pascal 7.0 (Borland Pascal 7.0).
Привожу результирующий исходный код программы:
Program B_16; {сортировка массива комплексных чисел}
type
inum = record
i, j : real;
end;
var
mas : array[1..1000] of inum;
n, k, position : integer;
temp : inum;
value, min : real;
begin
randomize;
for n := 1 to 1000 do
begin
mas[n].i := -10.5 + (10.5 + 30.75) * random;
mas[n].j := -10.5 + (10.5 + 30.75) * random;
end;
write('Hеотсортированый массив:');
for n := 1 to 1000 do writeln(mas[n].i:8:3, 'i', mas[n].j:8:3, 'j');
for n := 1 to 1000 do
begin
min := sqrt(sqr(mas[n].i) + sqr(mas[n].j));
position := n;
for k := n + 1 to 1000 do
if sqrt(sqr(mas[k].i) + sqr(mas[k].j)) < min
then
begin
min := sqrt(sqr(mas[k].i) + sqr(mas[k].j));
position := k;
end;
temp := mas[n];
mas[n] := mas[position];
mas[position] := temp;
end;
write('Отсортированый массив:');
for n := 1 to 1000 do
writeln(mas[n].i:8:3, 'i', mas[n].j:8:3, 'j');
end.
Вот и всё, данная программа составлялась мною ещё в конце 90-ых годов при учёбе в Приазовском Государственном Техническом Университете.
Автор: Попов Вадим
Теги этой статьи
Launch the License Manager from the bin folder (by default “C:/Program Files (x86)/Embarcadero/Studio/23.0/bin/LicenseManager.exe“) and delete any trial or beta (Test Field) license that you...
Карта разрушений и жертв российской агрессии в городе Мариуполь, на карте отмечены более 2000 пострадавших домов. На карте отмечены не только фото домов, но свидетельства их жителей, а так же место боевых...
Из-за военных событий 2014 года в Донецке тренер по плаванию Алексей Снежко и его жена вынужденно переехали в Киев. А теперь, в 2022-м, 33-летний Алексей потерял обоих родителей в Мариуполе. Как пережить...