Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Коментарии https://www.cyberforum.ru/ turbo-pascal/ thread575259.html Помогите написать комментарии, хотя бы 2 процедуру. Uses Crt; Const a1 = 'a1.txt'; a2 = 'a2.txt'; a3 = 'a3.txt'; Var f1, f2: Text; syn: Array of String;	Сортировка массивов Turbo Pascal Ребят, помогите пожалуйста. Нужен ПОЛНЫЙ КОД. Вот задача: В городе имеется m банков. Известны величины задолженностей банков друг другу. Расположить должников по возрастанию долга.
Turbo Pascal Определить элементы массива, разность модулей которых имеет наименьшее значение Дан массив содержащий N элементов.определить элементы массива, разность модулей которых имеет наименьшее значение. https://www.cyberforum.ru/ turbo-pascal/ thread575236.html	Turbo Pascal Задана квадратичная матрица А[n;m].поменять местами строку с мах элементом на главной диоганали со строкой с заданным номером. Задана квадратичная матрица А.поменять местами строку с мах элементом на главной диоганали со строкой с заданным номером.в столбце под номером n расположить положительные элементы по возрастанию.для откладки программы элементы массива сформировать с помощью генератора случайных чисел https://www.cyberforum.ru/ turbo-pascal/ thread575226.html
Двумерный массив. Переставить строки в соответствии с убыванием элеменов 1 столбца Turbo Pascal В массиве X переставить строки в соответствии с убыванием элеменов 1 столбца	Turbo Pascal Процедуры и функции обработки массивов. Ввод / вывод элементов матрицы из текстового файла Помогите пожалуйста! Составить следующие подпрограммы: 1)чтение элементов матрицы из текстового файла, 2)вывод элементов матрицы в текстовый файл, 3)обработка матрицы const mmax = 100; nmax = 100; var a: array of real; i, j, m, n: integer; https://www.cyberforum.ru/ turbo-pascal/ thread575210.html
Turbo Pascal Запись в файле, записывается поверх предыдущей Вопрос: как сделать чтобы когда я записывал данные в файл, у меня текст записи моей не писался поверх другой записи, чтобы было как с чистого листа! ( У меня к примеру два сотрудника , первого пишу нормально а второго пишу поверху всех данных предыдущего , получается каша) Вот текст программы: program Main; uses crt; const MinInt = -MaxInt-1; type Tfm = string; Tfio = string; https://www.cyberforum.ru/ turbo-pascal/ thread575196.html	Turbo Pascal Поменять местами начальный и конечный элементы файла. Дан файл целых чисел A.DAT. Поменять местами начальный и конечный элементы файла. Добавлено через 47 секунд Помогите пожалуйста...очень срочно!!!!!
Turbo Pascal Отсортировать по возрастанию элементы столбца матрицы, номер которого вводится с клавиатуры Задание 1: В одномерном массиве несколько максимальных и минимальных элементов. Найти их положение и перенести в другой массив их индексы и значения исходного массива, находящиеся между крайними минимальными элементами. Число элементов массива не более 30. Задание 2: Дана целочисленная матрица с максимальной размерностью 10х10.Отсортировать по возрастанию элементы столбца, номер... https://www.cyberforum.ru/ turbo-pascal/ thread575178.html	Turbo Pascal Обработка символьных данных и строк https://www.cyberforum.ru/ turbo-pascal/ thread575169.html Помогите пожалуйста сделать задание... Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать: 1) те слова, перед которыми в последовательности находятся только меньшие (по алфавиту) слова, а за ними - только большие; 2) все слова, которые встречаются в...
Turbo Pascal Двумерный массив. Вывести все элементы, расположеные до минимального Вывести все элементы массива Х(n,m), расположеные до минимального элемента этого массива. Заранее спасибо.	Turbo Pascal Если сумма первых 15 элементов вектора больше суммы последних 15 элементов, сформировать матрицу Дан вектор А. Если сумма первых 15 элементов вектора больше суммы последних 15 элементов, то из вектора A сформировать матрицу B и затем из максимальных элементов строк сформировать вектор C. Иначе из вектора A сформировать матрицу B и затем из максимальных элементов столбцов сформировать вектор C. https://www.cyberforum.ru/ turbo-pascal/ thread575148.html

Чувак

1 / 1 / 1

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

Сообщений: 62

15.05.2012, 15:46 [ТС]

Поменять столбец с наибольшим элементом, со столбцом с наименьшим (исправьте задачу) - Turbo Pascal - Ответ 3034163

15.05.2012, 15:46. Показов 2097. Ответов 6

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

Ответ

В действительной матрице размером n x m (n, m <10) поменять местами столбец, содержащий
элемент с наибольшим значением, со столбцом, содержащим элемент с наименьшим
значением (предположить, что эти элементы единственны). Размер матрицы и ее элементы
вводятся с клавиатуры. Оформить ввод и вывод матрицы. Изменения сделал, нужно просто вывести конечную матрицу.

Pascal

program zadanie3;
uses crt;
Var
X:Array [1..10, 1..10] Of integer;
m,n, in1, in2:integer;
P:Real;
buf:integer;
i,j,max,min: Integer;
Begin
clrscr;
WriteLn ('');
Write ('vvedite raznomernost:  N = ');
ReadLn (N);
write('vvedite raznomernost:   M=');
readln(m);
WriteLn ('vvedite elementy');
For i := 1 To N Do
    For j := 1 To M Do
    Begin
    Write ('X[', i, ',', j, '] = ');
    ReadLn (X [i, j]);
    End;
for i:=1 to n do
    begin
    for j:=1 to m do
     write(x[i,j]:3);
    writeln;
end;
Max:=x[1,1];
min:=x[1,1];
For i:=1 to n do
for j:=1 to m do
Begin
  If x[i,j] > Max then
  begin
   Max:=x[i,j];
  in1:=j;
    end;
  if x[i,j] < min then
  begin
  min:=x[i,j];
  in2:=j;
  end;
End;
for i:=1 to n do
 begin
 buf:=x[i,in1];
 x[i,in2]:=x[i,in1];
 x[i,in1]:=buf;
 end;
readln;
 
end.

Вернуться к обсуждению:
Поменять столбец с наибольшим элементом, со столбцом с наименьшим (исправьте задачу) Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.05.2012, 15:46

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

В матрице поменять столбец с наибольшим элементом со столбцом с наименьшеим элементом
ПОМОГИТЕ, ПОЖАЛУЙСТА (нужны только программы ,без блок-схем) 4)в массиве В (3,3) поменять...

В матрице А(6,6) найти строку с наименьшим элементом и поменять её со столбцом с наибольшим
В матрице А(6,6) найти строку с наименьшем элементом и поменять его со столбцом с наибольшим числом...

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

Скалярное произведение строки с наибольшим элементом матрицы на столбец с наименьшим элементом
Дана матрица целых чисел X(n, п). Вывести матрицу и скалярное произведение строки с наибольшим...

	15.05.2012, 15:46

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.05.2012, 15:46

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

Заменить столбец матрицы с наибольшим элементом строкой с наименьшим элементом
Помогите решить! 1)Дана квадратная матрица. Заменить столбец с наибольшим элементом строкой с...

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

Столбец матрицы с максимальным элементом поменять местами со столбцом с нулевым элементом
Как столбец с максимальным элементом поменять местами со столбцом с нулевым элементом

Поменять местами столбец, с минимальным элементом, со столбцом, с максимальным элементом
Задана матрица размером N*M. Поменять местами столбец, содержащий элемент с минимальным значением,...

Поменять местами столбцы с наибольшим и наименьшим элементом.
Составить программу, позволяющую с помощью датчика случайных чисел сформировать матрицу MxN....

Поменять местами столбцы с наибольшим и наименьшим элементом.
С помощью датчика случайных чисел сформировать матрицу n x m. Поменять местами столбцы с наибольшим...

Наверх