Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Модули: Вычислить среднее арифметическое указанных членов последовательности Решите пожалуйста задачу, нужно срочно!!!! Последовательность задана формулой общего члена dI=II+3I+4/3*I+1. Вычислить среднее арифметическое членов с 3 по 10, с 11 по 17, с 19 по 24 номера. https://www.cyberforum.ru/ turbo-pascal/ thread779084.html	Turbo Pascal В заданной матрице необходимо упорядочить по возрастанию элементы каждой строки и найти величину и местоположение максимального элемента матрицы помогите написать программу! (В заданной матрице необходимо упорядочить по возрастанию элементы каждой строки и найти величину и местоположение максимального элемента матрицы.)
Turbo Pascal Использование модуля Два ромба заданы координатами своих вершин : A1(3;3);B1(6;5);C1(9;3);D1(6;1); A2(2;-3);B2(7;-1);C2(12;-3);D2(7;-5); Нужно вычислить и сравнить их площади . Формула: S=(AC*BD)/2 Добавлено через 1 минуту Извиняюсь за место смайлов D https://www.cyberforum.ru/ turbo-pascal/ thread779044.html	Turbo Pascal Массив: Из элементов массива сформировать два массива: один из его компонент с четными номерами, другой - с не четными. Здравствуйте :cry: помогите пожалуйста с задачей Задан массив целого типа A. Из его компонент сформировать два массива, один из его компонент с четными номерами, другой с не четными. https://www.cyberforum.ru/ turbo-pascal/ thread779040.html
Turbo Pascal Зациклилась программа Не могу понять почему зациклилась программа, задание создать маршрутную перестановку с использованием шифрующей таблицы 6х4. вот код: var f: file of char; c: char; a,s: array of char; b: array of char; i,r,x,t,n,j: integer; begin i:=1; assign (f, 'c:\qwerty.txt');	Turbo Pascal Является ли матрица симметричной относительно главной диагонали. https://www.cyberforum.ru/ turbo-pascal/ thread778991.html Дана квадратная вещественная матрица размерности n. Является ли матрица симметричной относительно главной диагонали. напишите программу пожалуйста. а то не очень понимаю двумерные массивы вообще.
*Turbo Pascal Даны массивы A(N) и B(N). Сформировать массив C(2N) и отсортировать его по убыванию** https://www.cyberforum.ru/ turbo-pascal/ thread778969.html Даны массивы A(N) и B(N). Сформировать массив C(2*N) и отсортировать его по убыванию.	Реккурентность Turbo Pascal Вычислить и вывести все члены числового ряда превышающие значение 10-5 1, 1/(2!+2), 1/(3!+3), ..., 1/(n!+n) как-то так, но тут не правильно program abc; uses crt; var n,y:real; i:byte; function kor(n:real):real; begin
Turbo Pascal Массив: Выведите на экран модель и тактовую частоту трех самых недорогих процессоров Создайте массив записей, содержащий сведения о процессорах (модель, тактовая частота, стоимость). Выведите на экран модель и тактовую частоту трех самых недорогих процессоров. (Если можно то с коментариями. Заранее спасибо) https://www.cyberforum.ru/ turbo-pascal/ thread778938.html	Turbo Pascal Разветвляющийся алгоритм доброго времени суток, помогите пожалуйста с программой, очень долгое время пытаюсь написать ее правильно и всегда выходит какая либо ошибка "подготовка программы, осуществляющей расчет по формуле вида: C(x,p)=A(x,p)/B(x,p) , где А и В – функции двух аргументов. функция A(x,p)= sqrt(sqrt(2px)+3.5xx-10), B(x,p)= sqr(cos(abs(ln(2p-6x+1)-1)). (но расчет по формуле возможен не всегда, если... https://www.cyberforum.ru/ turbo-pascal/ thread778920.html
Вычислить сумму отрицательных элементов массива Turbo Pascal Одновимірний масив складається з дійсних елементів. Обчислити суму від’ємних елементів масиву. нужно написать програму в Паскале для решения етого примера, помогите пожалуйста.	Turbo Pascal Массив: Получить массив, состоящий только из чисел исходного массива, абсолютная величина которых больше заданного числа Дан одномерный массив действительного типа. Получить другой массив , состоящий только из чисел исходного массива ,абсолютная величина которых больше заданного числа или сообщить, что таких чисел нет. Полученный массив вывести в порядке убывания элементов. https://www.cyberforum.ru/ turbo-pascal/ thread778872.html

Mysterious Light

Эксперт функциональных языков программирования

$Эксперт по математике/физике$

4300 / 2091 / 431

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

Сообщений: 3,163

Записей в блоге: 24

04.02.2013, 23:53

сортировать массив.вообще не представляю - Turbo Pascal - Ответ 4094048

04.02.2013, 23:53. Показов 1005. Ответов 2

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

Сообщение было отмечено nastia_k как решение

Решение

Как-то так
b хранит те элементы, которые участвуют в сортировке

Pascal

const max = 10;
var a,b : array[1..max] of integer;
var c : array[1..max] of boolean;
var i,k : 0..max;
begin
{...}
k:=0;
for i:=1 to max do
  begin
    c[i] := (a[i] mod 3 > 0);
    if c[i] then
    begin
      inc(k);
      b[k]:=a[i];
    end;
  end;
{ sorting b }
for i:=max downto 1 do
  if c[i] then
  begin
    a[i]:=b[k];
    dec(k);
  end;
end.

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

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

04.02.2013, 23:53

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

Дан одномерный массив символьного типа. Сортировать массив по алфавиту
Доброго времени суток! Очень прошу помочь в решении задач) 1)Дан одномерный массив С(n),...

сортировать массив
Люди помогите пожалуйста. Мне нужно отсортировать в одномерном массиве все положительние элементи с...

Сортировать массив
Как сортировать массив с числами, сортируя только числа, в которых есть цифра 0, то есть все...

Сортировать массив по возрастанию
помогите, как сортировать массив чтобы там все элементы выстроились в порядке возрастания???ну...

	04.02.2013, 23:53

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

04.02.2013, 23:53

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

Сортировать массив по убыванию
у меня есть программа, которая должна: 1)спрашивать длину массива 2)спрашивать каждое число...

Необходимо сортировать массив записей.
мне необходимо сортировать массив записей. но правильно это сделать не получается. вот процедура,...

сортировать массив из 10 целых элементов по возрастанию.
Написать программу, которая сортирует массив из 10 целых элементов по возрастанию.

Сортировать массив по невозрастанию элементов четвертого столбца
Помогите пожалуйста. Дано двумерный массив, содержащий 3 строки и 7 столбики. Элементами массива...

Наверх