С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Как доделать прогу, чтобы был поэтапный вывод сортировки? Есть рабочий программный код, все прекрасно, но нужно, чтобы после каждой перестановки "новый маассив" тоже выводился, чтобы было наглядно показано, как происходит быстрая сортировка. uses crt; const n=19; var x:array of integer; i:integer; procedure sort(l,r:integer); {lлевый конец масива,r-правый конец} var i,j,x1,y1,m: integer; https://www.cyberforum.ru/ turbo-pascal/ thread2353930.html Turbo Pascal Задать положение рисунка
Задача состоит в том, чтобы можно было задать положение рисунка на экране относительно начальной и конечно точки подключение(обозначил красным в преложеном рисунке). Задать координаты надо параметрами процедуры, тоесть четыре параметра (x1,y1,x2,y2) Я понял как просто нарисовать рисунок, но не могу понять, как сделать расположение всех линий зависимыми от точек начала и конца. Ниже вставил мой...
Turbo Pascal Как скомпилировать файл Turbo Pascal 7.0 с .pas в .exe? Добрый день или вечер (без разницы) - у меня есть вопрос - как скомпилировать файл Turbo Pascal 7.0 с .pas в .exe? Нажимая такую комбинацию клавиш как в учебнике (Ctrl+F9) - компилирует только в .Pas - вот тут файл http://file.sampo.ru/wq88qk/. Кт может подсказать - подскажите - если это возможно -- то как и с помощью какой программы? https://www.cyberforum.ru/ turbo-pascal/ thread2353830.html Turbo Pascal Как переделать данный код быстрой сортировки под определенный числовой массив? https://www.cyberforum.ru/ turbo-pascal/ thread2353789.html
Есть программный код быстрой сортировки под другой числовой массив (7, 12, 25, 3, 17) n=5, c=5 (кол-во элементов в массиве) i=5 div 2=2 pushdown(2, 5) p=2 a>a и a<a a< -> a p=4
Turbo Pascal Ограниченный тип диапазона
Задача: Поезд отправляется в путь в 22 часа и находится в пути 10 часов. Во сколько он прибывает на станцию? Ошибочная программа: uses Crt; Var Otpravl, Pribitie: Byte; begin ClrScr; Otpravl:= 22; Pribitie:= Otpravl + 10; Writeln(‘ Прибытие: ‘, Pribitie); 		Turbo Pascal Написать программу, которая меняет цвет экрана https://www.cyberforum.ru/ turbo-pascal/ thread2353749.html
. Используя возможности модуля Crt для работы с экраном в текстовом режиме, написать про- грамму, которая 16 раз меняет цвет экрана и выводит любой текст на новом фоне в центр экрана. Пояснение: разумно, если цвет фона и параметр цикла будут одной переменной (диапазон палитры цветов 0 – 15). uses Crt; Var C: 0..15; X, Y: Integer; begin
Turbo Pascal Как переделать код сортировки вставкой на быструю сортировку? https://www.cyberforum.ru/ turbo-pascal/ thread2353715.html
//процедура обмена двух элементов procedure Swap(var a, b: integer); var tmp: integer; begin tmp := a; a := b; b := tmp; end; 		Вычислить сумму квадратных корней нечетных элементов массива Turbo Pascal
Задан одномерный массив Y. Вычислить сумму квадратных корней нечетных элементов массива
Turbo Pascal Определить среднее арифметическое минимальных элементов столбца двухмерного массива https://www.cyberforum.ru/ turbo-pascal/ thread2353523.html
Помогите пожалуйста. Спасибо) Написать алгоритм, составить блок-схему и отладить программу. Данные введены и выведены из файла и в файл Задание: Определить среднее арифметическое минимальных элементов столбца двухмерного массива. 		Turbo Pascal Массив https://www.cyberforum.ru/ turbo-pascal/ thread2353405.html
1)Поменять местами минимальный и максимальный элементы. 2)Найти минимальный среди четных по значению элементов и максимальный среди элементов нечетных по значению. Какой элемент в массива встречается раньше? 3)Найти минимальный из отрицательных элементов.Сколько раз это значение встречается в массиве? 4)Найти минимальный из положительных элементов. Каких элементов в массиве больше: имеющих...
Turbo Pascal Проверить, равны ли двум два числа из введенных трех
Слишком длинное условие Pascal Turbo Можно ли поменять этот код так чтобы избежать такого длинного if ? Т. е. есть же вероятность что я хочу добавить четвертую (or more) циферку в код, а там еще и в if это добавить надо. В некоторых других языках возможно я бы подумал про массивы, но в turbo pascal нет динамических массивов. Какие у вас есть идеи? Никогда прежде не трогал этот язык. ... 		Turbo Pascal Вычислить значение заданной функции с погрешностью 0.001. https://www.cyberforum.ru/ turbo-pascal/ thread2352941.html
Помогите решить,пожалуйста!!! Вычислить значение заданной функции с погрешностью 0.001.Использовать цикл с предусловием. Пытаюсь сам,но не получается... program cikl_s_predusloviem; const fi=0.5772156649; e=0.0001; var sum,t,x,del,kon_sum,sl:real;
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7795 / 4618 / 2831
Регистрация: 22.11.2013
Сообщений: 13,114
Записей в блоге: 1
19.11.2018, 10:28 0

Найти минимальное значение среди сумм элементов всех ее строк и столбцов и номер строки (столбца) с этим значением - Turbo Pascal - Ответ 13073281

19.11.2018, 10:28. Показов 2151. Ответов 4
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

  nr:=1; {mr:=0;}
  for j:=1 to n do mr:=mr+a[1,j];
  for i:=2 to m do begin
    t:=0; for j:=1 to n do t:=t+a[i,j];
    if mr>t then begin mr:=t; nr:=i; end;
  end;
  nc:=1; {mc:=0;}
  for i:=1 to m do mc:=mc+a[i,1];
  for j:=2 to n do begin
    t:=0; for i:=1 to m do t:=t+a[i,j];
    if mc>t then begin mc:=t; nc:=j; end;
  end;
  Write('Минимальная сумма элементов ');
  if mr<mc
  then WriteLn(mr,' в строке ',nr)
  else WriteLn(mc,' в столбце ',nc);


Вернуться к обсуждению:
Найти минимальное значение среди сумм элементов всех ее строк и столбцов и номер строки (столбца) с этим значением Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 19.11.2018, 10:28
Готовые ответы и решения:

Найти минимальное значение среди сумм элементов всех строк матрицы
Дана матрица размера 5 х 10. Найти минимальное1|максимальное2 значение среди сумм элементов всех её...

Найти минимальное значение среди сумм элементов всех строк матрицы
Дана матрица размера 5 x 10. Найти минимальное значение среди сумм элементов всех ее строк и номер...

Процедуры: Найти минимальное значение среди сумм элементов всех строк матрицы
3. Дана матрица размера 5 x 10. Найти минимальное значение среди сумм элементов всех ее строк и...

Найти минимальное значение среди сумм элементов всех строк матрицы
Дана целочисленная матрица размера 5 x 10. Найти минимальное значение среди сумм элементов всех...

4
19.11.2018, 10:28
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 19.11.2018, 10:28
Помогаю со студенческими работами здесь

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

Подсчитать сумму каждого столбца матрицы и найти минимальное значение среди полученных сумм
1. Дана действительная матрица размером n x m (n,m &lt;10). Подсчитать сумму каждого столбца матрицы...

Найти минимальное значение среди сумм элементов всех ее строк
Прошу помочь. 2. Дана целочисленная матрица размера 5х10. Найти минимальное значение среди сумм...

Найти минимальное значение среди сумм элементов всех строк матрицы
Дана целочисленная матрица размера 5х10. Найти минимальное значение среди сумм элементов всех ее...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru