Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вычислить сумму элементов последовательности чисел, удовлетворяющих неравенству Вычислить сумму элементов последовательности чисел, удовлетворяющих неравенству хi>р; https://www.cyberforum.ru/ turbo-pascal/ thread1004674.html	Составить блок схему к готовому коду Turbo Pascal Собственно говоря, составить блок-схему для меня - самое трудное. С кодом уже разобралась - всё готово. Нужно было запрограммировать функцию. Собственно, сам код. program pol; Uses crt; Var a,b:array of real; x,sum:real; i,m:integer; c:char; Begin
Turbo Pascal Сортировка массива строк Написать программу сортировки любым известным методом (например, простого включения, выбора, обмена) массива строк из 200 элементов. Сортировка по возрастанию. Uses Crt; Type MyArr = array of string; Var pA : ^MyArr; i,j: byte; s,tmp : string; https://www.cyberforum.ru/ turbo-pascal/ thread1004670.html	Turbo Pascal Выравнивание текста по десятичной точке Нужно сделать вывод данных в следующем виде: a=________________x= b=________________y= x и y с определенным отступом должны быть выровнены по точке (тип - real) и представлены не в экспоненциальной форме. Например: a=657__________x= -931.741 b=32753________y= ___1.8471 https://www.cyberforum.ru/ turbo-pascal/ thread1004652.html
Вычислить длину строки и количество букв Turbo Pascal Ввести фамилию, имя, имя отчество как одно данное типа string. Вычислить длину строки и количество букв а(англ) в нем. Все буквы i(англ) продублировать. Вот у меня такой код получился: uses crt; var fio:string; i:char; j,m,k:integer;	Turbo Pascal Вычислить и вывести на экран в виде таблицы значения функции, заданной графически Добрый вечер. Прошу помочь с написанием программы, мне кажется, я где-то ошибься. Само задание: Вычислить и вывести на экран в виде таблицы значения функции, заданной графически, на интервале от Х начального до Х конечного с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой. Мой вариант программы: var dx, x, y, r:... https://www.cyberforum.ru/ turbo-pascal/ thread1004628.html
Turbo Pascal Определить, является ли цифра наименьшей в числе Ввести натуральное число N. Определить, является ли его младшая цифра самой маленькой. собственно не могу разобраться что не так вот мои пробы Program Laba9; uses crt; Var j,k,x,i,n,D,z: Integer; https://www.cyberforum.ru/ turbo-pascal/ thread1004624.html	Turbo Pascal Узнать, находится ли точка в многоугольнике или за его пределами Подскажите пожалуйста, есть многоугольник у которого известны координаты всех углов, и есть точка. Как узнать находится ли точка в многоугольнике или за его пределами?
Turbo Pascal Матрица.Модуль.Раздел функций модуля Дана задача : Написать программу умножения и суммы матриц через раздел описания модуля. Делал через функции,процедуры , не приняли.Задачу так и не уяснил.Помогите понять или сделать. Добавлено через 39 минут Попробовал,сделал лишь с введением матрицы , далее кому нужно...unit Program3; interface const nmax = 20; https://www.cyberforum.ru/ turbo-pascal/ thread1004590.html	Turbo Pascal Цикл https://www.cyberforum.ru/ turbo-pascal/ thread1004589.html Необходимо написать программу:
Торговля Turbo Pascal Доброго времени суток! Нужна помощь в составлении программы в паскале, нужно сделать программу "торговля", с 3мя базами данных : Клиенты, продукция, список купленных товаров клиентами. И организовать в вводы выводы данных.	Turbo Pascal Написать программу, которая вычисляет дату следующего дня https://www.cyberforum.ru/ turbo-pascal/ thread1004525.html Написать программу, которая вычисляет дату следующего дня. Ниже представлен рекомендуемый вид экрана во время работы программы. Введите цифрами Сегодняшнюю дату (число месяц год) Последний день месяца! С наступающим новым годом! Завтра ( число след. дня)

ildwine

Супер-модератор

6197 / 2946 / 1300

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

Сообщений: 5,791

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

12.11.2013, 11:10

Дан массив B(N). Преобразовать массив, упорядочив его по убыванию так, чтобы М его первых элементов остались неупорядоченными - Turbo Pascal - Ответ 5323138

12.11.2013, 11:10. Показов 1361. Ответов 1

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

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

Решение

Pascal

uses CRT;
const
  n = 30;
var
  b : array[1..n] of integer;
  i, j, k, m : integer;
begin
  randomize;
  repeat
    write('введите m: ');
    readln(m)
  until (m >= 1) and (m < n);
  {исходный массив}
  writeln('исходный массив:');
  for i := 1 to n do
  begin
    b[i] := random(50) - 25;
    write(b[i]:4)
  end;
  writeln;
  {сортировка "пузырьком"}
  for i := m + 1 to n do
    for j := n downto i do
      if b[i] >= b[j] then
      begin
        k := b[i];
        b[i] := b[j];
        b[j] := k        
      end;
  {вывод нового массива}
  writeln('массив после сортировки:');
  textcolor(red);
  for i := 1 to m do write(b[i]:4);
  textcolor(white);
  for i := m+1 to n do write(b[i]:4);
  readln
end.

Вернуться к обсуждению:
Дан массив B(N). Преобразовать массив, упорядочив его по убыванию так, чтобы М его первых элементов остались неупорядоченными Turbo Pascal

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

12.11.2013, 11:10

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

Преобразовать массив, упорядочив его по алфавиту
Здравствуйте знающие люди. Помогите пожалуйста написать код на паскале для следующeй задачe: Дан...

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

Дан массив 100 элементов необходимо упорядочить его по убыванию и найти среднее арифметическое max,min
Дан массив 100 элементов необходимо упорядочить его по убыванию и найти среднее арифметическое...

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

	12.11.2013, 11:10

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

12.11.2013, 11:10

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

Заполнить двумерый массив NxN числами от 0 до T так, чтобы сумма его элементов была равна K
Заполнить двумерый массив NxN числами от 0 до T так, чтобы сумма его элементов была равна K

Преобразовать массив, упорядочив по убыванию все элементы, стоящие после второго нулевого
Ввести массив K(N). Вывести его. Преобразовать массив, упорядочив по убыванию все элементы,...

Дан одномерный массив, содержащий n целых чисел (n<=25). Отсортировать его по убыванию
дан одномерный массив, содержащий n целых чисел (n<=25). составить программу.полученные значения...

Дан двумерный массив. Преобразовать его так, чтобы новый массив содержал элементы старого, циклически сдвинутые на 2 элемента влево.
Уважаемые форумчане, такая проблема, не знаю как решить задачу, в моём городе мне не к кому...

Новые блоги и статьи
Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .	Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .

Наверх