Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Сформировать целочисленный массив м(4,8), каждая строка которого содержит числа, которые при делении на 5 дают в остатке номер строки Проверьте пожалуйста код моей программы. Она у меня работает, но я не уверена, что я правильную формулу ввела. Как-то все подозрительно легко получается. Сформировать целочисленный массив м(4,8), каждая строка которого содержит числа, которые при делении на 5 дают в остатке номер строки. Заранее спасибо! uses crt; const n=4;k=8; Var m:array of integer; i,j:integer; Begin CLRSCR; For i:=1... https://www.cyberforum.ru/ turbo-pascal/ thread879084.html	Turbo Pascal Найти номер первого столбца матрицы, не содержащего ни одного отрицательного элемента Прошу помощи! Дана целочисленная прямоугольная матрица. а) Упорядочить матрицы по возрастанию количества одинаковых элементов в каждой строке. б) Найти номер первого столбца, не содержащего ни одного отрицательного элемента. Добавлено через 2 часа 37 минут Up! Добавлено через 1 час 42 минуты
Turbo Pascal . Определить номера тех строк массива, в которых есть хотя бы один элемент, равный 10 Дан целочисленный массив X (n и m вводится пользователем). Определить номера тех строк массива, в которых есть хотя бы один элемент, равный 10 https://www.cyberforum.ru/ turbo-pascal/ thread879060.html	Turbo Pascal Сколько чисел из 20 больше 10? https://www.cyberforum.ru/ turbo-pascal/ thread879047.html Помогите! нужна программа в паскале и блок-схема к задаче: Задано 20 чисел, сколько среди них больше 10?
Turbo Pascal Символьные данные подскажите Дан текст из нескольких строк 1 Определить количество согласных букв в этом тексте. 2 Упорядочить строки по убыванию согласных букв в каждой строке	Turbo Pascal Цикл: суммирование Нужна программа в Паскале и блок-схема, пожалуйста) Ввести с клавиатуры последовательность чисел заканчивающуюся нулём , вывести сумму этих чисел. https://www.cyberforum.ru/ turbo-pascal/ thread879038.html
Turbo Pascal Найти максимальный и минимальный элементы и поменять их местами https://www.cyberforum.ru/ turbo-pascal/ thread879037.html Найти минимальный и максимальный элементы массива Х и поменять их в массиве местами. Элементы массива вычисляются по формуле Xi=((-1)^i)((i^2)-3i), где i=1,2.....,10	удалить все слова строки, начинающие с той же буквы, что и последнее слово строки Turbo Pascal необходимо использовать процедуры, функции и множества. Turbo pascal
Turbo Pascal Расположите в порядок убывания отрицательные элементы массива, кратные заданному числу https://www.cyberforum.ru/ turbo-pascal/ thread879007.html Здравствуйте. Помогите пожалуйста. У меня две проблемы: 1) Как сделать так чтобы не выскакивала ошибка переполнения массива? 2) Помогите исправить код, выводит не тот ответ. Расположите в порядок убывания отрицательные элементы массива, кратные заданному числу. Program odna; uses crt; var	Turbo Pascal Вычислите сумму отрицательных элементов последовательности, кратных 5 Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислите сумму отрицательных элементов последовательности, кратных 5. https://www.cyberforum.ru/ turbo-pascal/ thread878976.html
Turbo Pascal Отделить корни графически и уточнить один из них методом половинного деления и касательных с точностью 0,001. Пожалуйста отзовитесь! Нужна ваша помощь!!! Не разбираюсь вообще!! Отделить корни графически и уточнить один из них методом половинного деления и касательных с точностью 0,001. Х3-0,1Х2+0,4Х+1,2=0	Turbo Pascal реализация перетекания массы https://www.cyberforum.ru/ turbo-pascal/ thread878925.html помогите с задачкой)) На плоскости заданы n материальных точек. С некоторого момента точка с наименьшей массой исчезает, передавая свою массу ближайшей к ней точке. Так продолжается до тех пор, пока не останется одна точка. Реализовать этот процесс и найти оставшуюся точку. буду очень благодарен!)

Puporev

Почетный модератор

64300 / 47595 / 32743

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

Сообщений: 115,181

26.05.2013, 14:17

Упорядочить столбцы матрицы по убыванию используя метод выбора - Turbo Pascal - Ответ 4617989

26.05.2013, 14:17. Показов 1156. Ответов 2

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

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

Решение

Pascal

uses crt;
const m=7;
      n=9;
var d:array[1..m,1..n] of integer;
    i,j,k,mx,buf:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    d[i,j]:=random(100);
    write(d[i,j]:4);
   end;
  writeln
 end;
for j:=1 to n do
 begin
  for i:=1 to m-1 do
   begin
    mx:=i;
    for k:=i+1 to m do
    if d[k,j]>d[mx,j] then mx:=k;
    buf:=d[i,j];
    d[i,j]:=d[mx,j];
    d[mx,j]:=buf;
   end;
 end;
writeln('Сортировка столбцов:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(d[i,j]:4);
  writeln
 end;
readln
end.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

26.05.2013, 14:17

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

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

Упорядочить столбцы матрицы по убыванию сумм их элементов.
дана вещественная матрица размером 4*4. упорядочить ее столбцы по убыванию сумм их элементов.

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

Главную диагональ матрицы упорядочить по убыванию методом выбора
Квадратный массив размером МхМ заполняется числами из входного текстового файла. Исходный массив...

	26.05.2013, 14:17

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

26.05.2013, 14:17

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

Упорядочить элементы строк матрицы по убыванию методом линейного выбора
Привет. Помогите пожалуйста. Условие : Дана действительная матрица A размерности nxn. Если...

Используя метод сортировки массива упорядочить столбцы массива по убыванию
Дан массив целых случайных чисел (в диапазоне от -50 до 23) размерности m*n. Числа m и n вводятся...

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

Упорядочить столбцы матрицы по убыванию их средних арифметических
Добрый день! Задание звучит следующим образом: Дана матрица целых чисел X(n, т). Упорядочить ее...

Наверх