Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal составить программу для вычисления выражения, используя операции однобайтном составления Используя только операции однобайтном составления, вычитание и сдвига составить программу для вычисления следующего выражения: (0720h + 7h) 24 + FFFh / 25. Вывести промежуточные и окончательные результаты вычисления на экран. https://www.cyberforum.ru/ turbo-pascal/ thread1581722.html	Turbo Pascal Вычислить значение выражения Дано натуральное число n, действительное число x. Вычислить: \prod_{k=1}^{n}\frac{{(1-x)}^{k+1}+1}{{((k-1)!+1)}^{2}}
Turbo Pascal В данном одномерном массиве В данном одномерном массиве найдите количество пар различных по номеру элементов, сумма которых делится на 3. https://www.cyberforum.ru/ turbo-pascal/ thread1581702.html	Turbo Pascal Определить количество строк в текстовом файле, в которых есть символ «!» https://www.cyberforum.ru/ turbo-pascal/ thread1581695.html Гайс, хелп плз.....) Определить количество строк в текстовом файле, в которых есть символ «!».
Turbo Pascal Даны четыре действительных числа Даны четыре действительных числа a,b,c,d. Если сумма максимального и минимального равна сумме двух других, то все числа заменить этой суммой, иначе числа оставить без изменения.	Turbo Pascal Определить сумму первых k положительных чисел https://www.cyberforum.ru/ turbo-pascal/ thread1581429.html Приветствую всех. Нужно решить задачу с проверкой val. Определить сумму первых k положительных чисел. Надеюсь на вашу помощь. =)
*Turbo Pascal последовательность задана формулой ai=(-1)(i^2+1)/(2i+1). вычислить сумму отрицательных членов и их число* https://www.cyberforum.ru/ turbo-pascal/ thread1581423.html последовательность задана формулой ai=(-1)((i^2+1)/(2i+1)). вычислить сумму отрицательных членов и их число с номера 3 по 10 , и с 10 по 17	Turbo Pascal Среди полученых сум найти максимальную Заданы 2 массива a и b. Рассмотреть все возможные суммы произведений {a}_{i}*{b}_{i}, в каждом из них некакие {a}_{i} и {b}_{i} не встречаются 2 раза. Среди полученых сум найти максимальную.
Turbo Pascal Размер https://www.cyberforum.ru/ turbo-pascal/ thread1581149.html Скажите пж что это за размер МхN?	Turbo Pascal Динамическая строка https://www.cyberforum.ru/ turbo-pascal/ thread1581085.html Сформировать динамическую строку, элементами которой есть цифры и знаки арифметики. Вывести строку на экран, и проверить корректно ли заданы ариф. операции. Помогите, пожалуйста. Добавлено через 52 минуты P. S. вот что у меня получилось, но в некоторых местах не могу понять как это все сделать (в этих местах "??????"): program test; type zv = ^pointer ;
Turbo Pascal Вычислиь и сравнить площадь призм За раннее спасибо за ответ ! В основании двух прямых призм с заданными высотами лежат прямоугольные прямоугольники с заданными катетами . Вычислить и сравнить площади полных поверхностей этих призм .	Turbo Pascal Подсчитать символы, стоящие на нечётных местах https://www.cyberforum.ru/ turbo-pascal/ thread1581003.html Срочно нужно . За раннее спасибо. Даны две строки символов . Подсчитать в них количество символов стоящих на нечётных местах.

yarok1996

0 / 0 / 0

Регистрация: 18.10.2015

Сообщений: 12

Упорядочить диапазон элементов массива - Turbo Pascal - Ответ 8344355

15.11.2015, 16:10. Показов 918. Ответов 1

Метки (Все метки)

Студворк — интернет-сервис помощи студентам

Не компилируется!
Помогите что не так в програме, Не могу сделать условие чтобы сортировало только числа кратные 5
Составить программу, по которой:
1) заполнить массив A (40) случайным образом целыми числами с диапазона [100, 999];
2) вывести элементы массива на экран в строку;
3) упорядочить диапазон элементов массива при следующих условиях:
Диапазон элементов массива:
Первый :8
Последний:38
Метод упорядочения: выбором
Свойства элементов массива: кратные 5

Pascal

const MaxN = 38;
type TElement = real; TMas = array[8..MaxN] of TElement;
var A : TMas; Nmin, i,N, j : Integer; T :TElement;
 begin
  N:=40;
  randomize;
   for i:=1 to N do begin
   a[i]:=100+Random(900);end;
 WriteLn('До сортировки:');
for i := 1 to N do Write(a[i],' '); WriteLn;
for i := n downto 2 do
for j := 1 to i-1 do
if a[j] > a[j+1]
then begin T := a[j]; a[j] := a[j+1]; a[j+1] := T;
end;
WriteLn('отсортирован:');
for i:=1 to N do
if a[i] mod 5=10 then begin
 write(a[i]);
 end;
   readln;
 end.

Вернуться к обсуждению:
Упорядочить диапазон элементов массива Turbo Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.11.2015, 16:10

Готовые ответы и решения:

Упорядочить диапазон элементов массива
1. Составить программу, по которой: a. заполнить массив А (40) случайным образом целыми числами из...

Вычислить сумму элементов каждого столбца массива. Упорядочить столбцы массива по убыванию сумм элементов столбцов.
Заполнить двумерный числовой массив В целыми числами. Вычислить сумму элементов каждого столбца...

Определить сколько элементов массива входит в диапазон (a,b)
ПОМОГИТЕ ПОЖАЛУЙСТА!!! Задан двумерный массив целых чисел. Напишите программу которая определит,...

Вычислить произведение ненулевых элементов массива, упорядочить элементы массива по возрастанию модулей
Создать массив целых чисел. Вычислите произведение ненулевых элементов массива. Упорядочить...

	15.11.2015, 16:10

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.11.2015, 16:10

Помогаю со студенческими работами здесь

Упорядочить элементы одномерного массива по убыванию модулей элементов
Упорядочить элементы одномерного массива по убыванию модулей элементов.

Найти сумму элементов массива, упорядочить его по убыванию
Массив a n=4 задается пользователем с клавиатуры Найти сумму всех элементов массива a; sum ...

Упорядочить строки массива по не возрастанию значений первых элементов строк
Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. В...

Упорядочить (переставить) столбцы массива, по не возрастанию значений последних элементов столбцов
Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. В...

Наверх