Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Определить число, предшествующее первому из введенных максимальных значений https://www.cyberforum.ru/ turbo-pascal/ thread287265.html С клавиатуры вводятся целые числа. Признак конца ввода – ноль. Определить число, предшествующее первому из введенных максимальных значений. Не пойму как даже начать...	Turbo Pascal Выход из программы Недавно начал изучать паскаль. Делаю свою первую программу. Не врубаюсь, как сделать чтоб например при нажатие на кнопку Esc осуществился выход из программы? Помогите разобраться начинающему! =)
Turbo Pascal получить мах элемент Даны натуральное число n, действительные числа а1, …, аn. Получить max (а2, а4, …). https://www.cyberforum.ru/ turbo-pascal/ thread287232.html	Turbo Pascal Написать строку справа налево, удалив из нее все цифры и пробелы ^_^ https://www.cyberforum.ru/ turbo-pascal/ thread287217.html Дана символьная строка, содержащая русские буквы, цифры и пробелы. Написать строку справа налево, удалив из нее все цифры и пробелы. Help-Help О_о
Turbo Pascal Матрицы и табулирование сложных ф-ций всем привет помогите решить задачу!	Turbo Pascal выбросить элементы из массива Задан линейный массив целых чисел. Выбросить из данного массива положительные элементы https://www.cyberforum.ru/ turbo-pascal/ thread287212.html
Turbo Pascal Вычислить число положительных чисел, равных числу А Нужно написать программы в Pascal'е: Одномерный массив: Вычислить число положительных чисел равных числу А. Двумерный массив: Найти max элемент в зоне квадратичной матрице . https://www.cyberforum.ru/ turbo-pascal/ thread287202.html	Даны координаты вершин... Turbo Pascal Задача № 1. Даны координаты вершин треугольника и точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника. Задача № 2. Вычислить: Z=F(SIN A, B) + F(COS A, B) + F (SIN2 A, B-1) + F(SIN A - COS A, B2 - 1) + F(SIN2 A-1, COS A+B),где
Turbo Pascal Решение системы уравнений Ребята помогите пожалуйста! У нас по алгоритмам и программированию всего несколько уроков было, потом дали практическую работу которую никто не знает как делать, а к учительнице не обратишься, она у нас просто терминатор какой-то Т_Т вот задания: нужно найти значение переменной у для трьох разных значений переменной х . Выполнить программирование трижды при разных значениях переменной х https://www.cyberforum.ru/ turbo-pascal/ thread287172.html	Turbo Pascal Записи: вывести средний рост учеников, рост самого высокого https://www.cyberforum.ru/ turbo-pascal/ thread287167.html Программа должна выводить средний рост учеников , рост самого высокого и сколько учеников могут участвовать в баскетболе если рост у баскетболиста должен быть не меньше 170 , у меня все выводит кроме самого высокого роста посмотрите иправьте кто понимает плиз program tt; type tablic=record fam:string; ima:string; rost:integer; mas:integer; end; var
Менеджер досуговых мероприятий Turbo Pascal Программа позволяет работать с базой данных, которая содержит сведения о наименовании, типе, адресе, адрес для различных досуговых точек, а также о репертуаре, времени начала/конца и стоимости. Генерируемые отчеты а) о досуговых точках конкретного района б) о мероприятиях отвечающих какому-либо критерию в) о адресах мест, где происходит то или иное мероприятие г) о мероприятиях, начинающихся...	Turbo Pascal Определить, пройдет ли график функции через указанную точку Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 999), обозначающего денежную единицу, дописывает слово «рубль» в правильной форме. Например, 12 рублей, 21 рубль и т.д. составьте программу, определяющую, пройдет ли график функции у=5(х (в квадрате))-7х+2 через заданную точку с координатами(а,b). Проверить имеет ли квадратное уравнение вида а(х(в... https://www.cyberforum.ru/ turbo-pascal/ thread287146.html

KaiTheCat

К.О.

534 / 499 / 344

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

Сообщений: 1,141

02.05.2011, 19:39

В матрице размером NxM поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. - Turbo Pascal - Ответ 1607898

02.05.2011, 19:39. Показов 5600. Ответов 1

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

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

Решение

Pascal

var
  a: array[1..50,1..50] of integer;
  i,j,n,m,maxi,mini: byte;
  x,max,min: integer;
Begin
  randomize;
  readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(61)-30;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  max:=a[1,1];
  min:=a[1,1];
  maxi:=1;
  mini:=1;
  for i:=1 to n do
  for j:=1 to m do
    begin
      if a[i,j]>max then begin
        max:=a[i,j];
        maxi:=i; end;
      if a[i,j]<min then begin
        min:=a[i,j];
        mini:=i; end;
    end;
  for j:=1 to m do
    begin
      x:=a[maxi,j];
      a[maxi,j]:=a[mini,j];
      a[mini,j]:=x;
    end;
  for i:=1 to n do
    begin
      for j:=1 to m do write(a[i,j]:4);
      writeln;
    end;
  readln
End.

Вернуться к обсуждению:
В матрице размером NxM поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. Turbo Pascal

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

02.05.2011, 19:39

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

Поменять местами строку матрицы, содержащую минимальный элемент, со строкой, содержащей максимальный
всем привет!прошу помощи! В произвольной матрице i= , j= поменять местами строку, содержащую...

Поменять местами столбец с наибольшим значением со столбцом с наименьшим значением
в массиве В(3,3) поменять местами столбец , содержащий наиб. значение со столбцом, содержащим наим....

Обработка матриц.В матрице а(3х5) поменять местами элементы с наибольшим и наименьшим значением.
В матрице а(3х5) поменять местами элементы с наибольшим и наименьшим значением. Кто поможет,...

В заданной матрице поменять местами последнюю строку со строкой, содержащей наименьший элемент матрицы
Задание на программирование: используя технологию структурного программирования, разработать...

	02.05.2011, 19:39

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

02.05.2011, 19:39

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

В двух матрицах поменять местами строки, содержащие элемент с наибольшим и наименьшим значением
в данных действительных матрицах n*m и k*l поменять местами строку , содержащую элемент с...

В матрице поменять местами строку, содержащую минималный элемент, со строкой содержащий максимальный элемент.
Помогите пожалуста:):):) вот задание В произвольной матрице A поменять местами строку, содержащую...

В матрице поменять местами строку, содержащую максимум, со строкой, содержащей минимум
В данной действительной матрице размера 6х9 поменять местами строку, содержащую элемент с...

Поменять столбец матрицы А с наибольшим значением со столбцом матрицы В с наименьшим значением
Даны две целочисленные матрицы A и B размером M на N, все элементы которых различны. Поменять...

Новые блоги и статьи
Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое 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# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .

Наверх