Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Сортировка типизированного файла) Вот описание программы "Создать справочник «Безалкогольные напитки», содержащий информацию: наименование напитка, объем бутылки, количество калорий, газонасыщенность (закодировать с помощью числа – сильногазированный, среднегазированный и без газа), цена. Вывести информацию о товаре с газом с заданным объемом бутылки, с сортировкой по цене." Больше всего напрягает вот эта часть Вывести... https://www.cyberforum.ru/ turbo-pascal/ thread216846.html Turbo Pascal Вычислить значение выражения
Друг попросил помочь с задачей сам то я с программированием не дружу)) Не по той специальности)) Вообщем условие такое: Дано натуральное число n. Вычислить и картинка вот что вроде вычислить надо...
Turbo Pascal В списке L из каждой группы подряд идущих элементов оставляет только один составить программу, которая в списке L из каждой группы подряд идущих элементов оставляет только один. https://www.cyberforum.ru/ turbo-pascal/ thread216832.html Turbo Pascal определить отрицательные значения! СРОЧНО.. На интервале 0.5≤y≤1 с шагом Δy=0.01 определить количество отрицательных значений функции p=ay2-b, где а=0.8х, b=2.2x, х – любое действительное число. https://www.cyberforum.ru/ turbo-pascal/ thread216830.html
двумерные массивы Turbo Pascal
Помогите если кто может. В прямоугольной матрице, размерностью n*m,найти номера последних отрицательных элементов каждой строки (столбца).
Turbo Pascal Удалить часть символьной строки, заключённой в апострофы https://www.cyberforum.ru/ turbo-pascal/ thread216811.html
Удалить часть символьной строки, заключённой в апострофы
Turbo Pascal «Множественный тип данных» Три садовода выращивают на своих участках овощи. Определить, какие сорта овощей есть у каждого садовода, и каких сортов овощей нет ни у одного садовода. https://www.cyberforum.ru/ turbo-pascal/ thread216804.html Оператор CASE Turbo Pascal
Используя оператор выбора CASE, cоставить программу, которая по введённому номеру единицы измерения (1 – килограмм, 2 – миллиграмм, 3 – грамм, 4 – тонна, 5 – центнер) и массе М выдавала бы соответствующее значение массы в килограммах.
Turbo Pascal Составить программу вычисления произведения элементов по строкам матрицы https://www.cyberforum.ru/ turbo-pascal/ thread216799.html
Всем здравствуйте, помогите пожалуйста: 1.Составить программу вычисления суммы отрицательных элементов матрицы A(N,N). 2.Составить программу вычисления произведения элементов матрицы B(N,N), кратных 5. 3.Составить программу вычисления минимального элемента и его индексов матрицы A(M,N). 4.Составить программу вычисления произведения элементов по строкам матрицы C(N,N). (Хотя бы любые два или...
Turbo Pascal Блин срочно на завтра нужно сделать прогу!!! https://www.cyberforum.ru/ turbo-pascal/ thread216793.html
если не сделаю зачет не получу((( помогите пжл))) Вычислить интеграл от заданной функции f(x) на отрезке с точностью эпсилент равный 10 в -5 степени.Способом по формуле прямоугольников (средней точки). 1/(x+sin(0.5*x)) на отрезке
Cлияние двух упорядоченных файлов Turbo Pascal
{Ñîçäàòü äâà ôàéëà À è  èç öåëûõ ÷èñåë. Ôàéë À ? îòñîðòèðîâàòü ïî âîçðàñòàíèþ; ôàéë  ? îòñîðòèðîâàòü ïî óáûâàíèþ. Ïðîèçâåñòè ñëèÿíèå äâóõ ôàéëîâ â ôàéëå Ñ òàêèì îáðàçîì, ÷òîáû ôàéë Ñ áûë óïîðÿäî÷åí ïî âîçðàñòàíèþ. Ñëèÿíèå ïðîèçâîäèòü â ñîîòâåòñòâèè ñ óïîðÿäî÷åííîñòüþ ôàéëîâ À è  (ò.å. ñàìó ñîðòèðîâêó ôàéëà Ñ íå äåëàòü).} program lab; uses crt; type fileint=file of integer; var
Turbo Pascal Процедуры Доброго времени суток,знающие люди, помогите пожалуйста с задачкой: Описать процедуру TimeToHMS(T, H, M, S), определяющую по времени T (в секундах) содержащееся в нем количество часов H, минут M и секунд S (T — входной, H, M и S — выходные параметры целого типа). Используя эту процедуру, найти
6045 / 2160 / 753
Регистрация: 10.12.2010
Сообщений: 6,005
Записей в блоге: 3
21.12.2010, 21:36 0

Массивы и их сортировка... - Turbo Pascal - Ответ 1226026

21.12.2010, 21:36. Показов 789. Ответов 11
Метки (Все метки)

Ответ

Так-с разобьем на блоки.
1)заполнение квадратной матрицы размером N:
Pascal
1
2
for j:=1 to N do
for i:=1 to N do readln(Matrix[i,j]);
2)ищем сумму элементов главной диагонали в матрице:
Pascal
1
2
sum:=0;
for i:=1 to N do sum:=sum+Matrix[i,i];
3)определяем минимальный элемент и меняем с элементом главной диагонали
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
for j:=1 to N do
begin
  min:=Matrix[1,j];
  minIndex:=1;
  for i:=2 to N do
  begin
    if Matrix[i,j]<min then
    begin
      min:=Matrix[i,j];
      minIndex:=i;
    end;
  end;
  temp:=Matrix[j,j];
  Matrix[j,j]:=Matrix[minIndex,j];
  Matrix[minIndex,j]:=temp;
end;
как-то так

Вернуться к обсуждению:
Массивы и их сортировка... Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2010, 21:36
Готовые ответы и решения:

массивы сортировка
простая сортировка обменами. напишите плиз..

Массивы и сортировка
1.Решить поставленные задачи двумя способами — с применением рекурсии и без нее. Предусмотреть...

Массивы (сортировка...)
Здравствуйте,JS только начала изучать и запнулась собственно на массивах,понимаю что это наверное...

Массивы и сортировка
Уважаемые пользователи этого ресурса,поделитесь,пожалуйста,своим опытом в программировании. В...

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

Массивы, сортировка
Люди помогите сделать єто задание: Лабораторна робота №2 Тема – алгоритмізація і програмування...

Массивы и сортировка
Помогите, написать код, не успеваю выполнить все из контрольной. =/ 1. Вычислить площадь круга,...

Массивы и сортировка
Здравствуйте, дана вот такая задача: Заполните случайным образом массив (100 элементов) поочередно...

Одномерные массивы, сортировка
Из последовательности целых чисел вывести в порядке возрастания все числа, стоящие на чётных местах...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru