Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal вычислить в массиве все числа оканчивающиеся нулем дан массив из 10 элементов. Найти количество чисел оканичвающихся нулем. https://www.cyberforum.ru/ turbo-pascal/ thread413162.html Turbo Pascal Итерационные циклы с параметрами процедурного типа
Написал программу, но никак не могу задать правильное условие выхода из цикла. Поэтому оставил его просто для галочки. Помогите исправить программу, задание вложено. Требуется реализовать решение...
Turbo Pascal Модуль. Нужна реконструкция. https://www.cyberforum.ru/ turbo-pascal/ thread413147.html
Создать множество из букв слова. Unit Mnoj; Interface Uses Crt; Implementation type mmm=set of char; Var s:mmm; function CRE(x:string):mmm; {почему тут ругается, пробовал set of char...
Turbo Pascal Требуется выдать план неохваченной части сочинения https://www.cyberforum.ru/ turbo-pascal/ thread413143.html
Завтра ргрку сдавать, очень нуждаюсь в вашей помощи. Имеется план школьного сочинения, записанный с помощью дерева. Два друга решили написать сочинение вместе. Каждый из них независимо взял...
Turbo Pascal Комплексная задача - для экзамена по методике информатики
Ребят,такие дела Нужна задача, которую с некоторыми модификациями можно провести через курс программирования. То есть задача без усложнений для объяснения детям программирования. Но условие, чтоб...
Turbo Pascal Исследовать методы поиска данных https://www.cyberforum.ru/ turbo-pascal/ thread413119.html
Народ срочно! Завтра сдача, пожалуйста помогите :) 1. Проверьте работу программы. Определите тип алгоритма поиска, используемый в программе. Результаты работы программы скопируйте в отчет....
Turbo Pascal Найти значения первых трех минимальных элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread413113.html
Нужно составить задачу, которая находила бы значения первых трех минимальных элементов массива. Ребята, пожалуйста, выручите! Знаю, как найти минимальный элемент массива, а вот как три сразу же -- не...
вычислить объём усеченной пирамиды Turbo Pascal
вычислить объём усеченной пирамиды по заданной высоте и сторонам основания (основания-правильные треугольники) помогите пожалуйста!! турбо паскаль
Turbo Pascal Вычислить объём пирамиды Вычислить объём пирамиды по заданным сторонам основания и высоте плиииз ответьте)) турбо паскаль https://www.cyberforum.ru/ turbo-pascal/ thread413090.html Turbo Pascal Шахматная доска https://www.cyberforum.ru/ turbo-pascal/ thread413089.html
Задается шахматная доска NxM. Нужно вывести максимальное количество ферзей, которых можно расставить так, чтобы они не били друг друга.
Turbo Pascal Значения площади круга и длины окружности
вычислить значения площади круга и длины окружности по заданному радиусу ПОМОГИТЕ ПЛЗ!!! зачёт (турбо паскаль)
Turbo Pascal Асету интересно, сколько раз он прочитал подстроку ab? Помогите плиззз... Асет любит читать строку через символы, т.е. ‘acbed’, он читает а, после пропускает b и читает с, дальше пропускает d и читает е. Асету интересно сколько раз он прочитал... https://www.cyberforum.ru/ turbo-pascal/ thread413084.html
0 / 0 / 0
Регистрация: 20.12.2011
Сообщений: 4
23.12.2011, 00:39  [ТС] 0

Статический одномерный массив - Turbo Pascal - Ответ 2311567

23.12.2011, 00:39. Показов 635. Ответов 4
Метки (Все метки)

Ответ

Добавлено через 56 минут
массивы(каждый) сортируются по убыванию

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure Sorting (var mas: array of integer; const count: integer)
var
    i: integer;
    flag: boolean;
begin
    repeat 
        flag := false;
        for i := 1 to (count - 1) do
            if mas[i] < mas[i+1] then
            begin
                flag := true;
                mas[i] := mas[i] + mas[i+1];
                mas[i+1] := mas[i] - mas[i+1];
                mas[i] := mas[i] - mas[i+1]
            end;
    until flag = false;    
end;
правильно?

Вернуться к обсуждению:
Статический одномерный массив Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2011, 00:39
Готовые ответы и решения:

Статический одномерный массив(паскаль)
Есть 3 статических одномерных массива.Пользователь вводит их, массивы(каждый) сортируются по...

Дан двумерный массив, из него сделать одномерный. В одномерный массив сначала вписат четные строки потом нечетные
Здравствуйте,собственно задача в заголовке темы. никак не получается все это дело слит в одномерный...

Статический в динамический массив
Помогите переписать программу(чтобы использовался динамический массив) Var A:array of integer; ...

Последовательность и статический массив
помогите пожалуйста . навалилось очень много заданий , и со всеми справиться не могу помогите с...

4
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2011, 00:39

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Как преобразовать статический массив в динамический?
uses crt; const nmax=100; var a:array of integer; n,i,i1,k:byte; begin clrscr; randomize;...

Используйте статический массив для организации очереди
Перепишите предыдущую программу – используйте статический массив для организации очереди. Считайте,...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

Массив одномерный. Проверить, можно ли, меняя элементы массива А, получить массив В
составьте программу проверяющую можно меняя элементы одномерного массива А, получить одномерный...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.