Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Найти среднюю стоимость k книг https://www.cyberforum.ru/ turbo-pascal/ thread598495.html
Помогите решить! Найти среднюю стоимость k книг. Исходные данные: k\epsilon N,{S}_{i}\epsilon R,i=\bar{1,k} 		Прокомментировать код (работа с очередью) Turbo Pascal
Эта рабочая программа. Просто мне нужны комментарии (желательно чем больше тем лучше). Просто сам не могу разобраться с каждой строкой, а на курсовой надо все объяснить. program zadachapyat; Uses crt; type connect=^data; data=Record elem:integer; next:connect end; var sn,p,sk:connect; n,x,i:integer;
Turbo Pascal Дано натуральное число m. Найти такое натуральное n, что двоичная запись n получается из двоичной записи m изменением порядка цифр на обратный https://www.cyberforum.ru/ turbo-pascal/ thread598473.html
помогите с задачей по паскалю Дано натуральное число m. Найти такое натуральное n, что двоичная запись n получается из двоичной записи m изменением порядка цифр на обратный (m задано в десятичной системе, и n надо также получить в десятичной системе, например, для m=6 получается n=3). заранее спасибо! 		Turbo Pascal Упорядочить название населенных пунктов района по возрастанию их расстояний до райцентра https://www.cyberforum.ru/ turbo-pascal/ thread598463.html
Помогите написать программу. Упорядочить название населенных пунктов района по возрастанию их расстояний до райцентра. В ней должно вводится с клавиатуры количество населенных пунктов, названия их и расстояния. Please!!! Добавлено через 22 минуты Можно или в Pascalе или в Delphi сделать
Двумерные массивы. Создать третий массив, каждый элемент которого равен 1, если соответствующие элементы массивов имеют одинаковый знак Turbo Pascal
Даны два двумерных массива одинаковой размерности.Создать третий массив той-же размерности,каждый элемент которого равен 1,если соответствующие элементы массивов имеют одинаковый знак,иначе элемент равен 0. 		Turbo Pascal Процедуры и функции. Составить подпрограммы. Преобразовать строку, оставив в ней только первые два слова https://www.cyberforum.ru/ turbo-pascal/ thread598435.html
Составить подпрограммы для решения следующих задач: 2. Задана строка символов. состоящая из отдельных слов, разделенных пробелами. Преобразовать ее, оставив в ней только первые два слова. Заранее спасибо !!!
Turbo Pascal Матрица. Поменять местами элементы строк сектора Вводится квадратная матрица размером 15 х 15. Если максимальный элемент сектора является центральным в том же секторе, зеркально поменять местами элементы строк сектора. В противном случае перенести максимальный элемент сектора в соседний сектор с сохранением места: МАХ(1 сектора) ---> во 2 сектор, МАХ(2 сектора) ---> во 3 сектор, МАХ(3 сектора) ---> во 4 сектор, МАХ(4 сектора) ---> во 1... https://www.cyberforum.ru/ turbo-pascal/ thread598424.html Turbo Pascal Найти все двузначные числа, которые при умножении на 2 заканчиваются на 8, а при умножении на 3 — на 4
Прошу помощи, ребята ! 2. Найти все двузначные числа, которые при умножении на 2 заканчиваются на 8, а при умножении на 3 — на 4. Заранее спасибо !
Turbo Pascal Найти количество различных цифр данного натурального числа https://www.cyberforum.ru/ turbo-pascal/ thread598413.html
Прошу помощи, ребята ! 3. Найти количество различных цифр данного натурального числа. Заранее спасибо ! 		Turbo Pascal С помощью этих функций, а также функции Pop из задания Dynamic12, извлечь из исходного стека пять элементов и вывести их значения https://www.cyberforum.ru/ turbo-pascal/ thread598411.html
помогите кто может и у кого есть эта програ))) Dynamic13. Дан указатель P1 на вершину стека. Используя тип TStack (см. задание Dynamic11), описать функции StackIsEmpty(S) логического типа (возвращает True, если стек S пуст, и False в противном случае) и Peek(S) целого типа (возвращает значение вершины непустого стека S, не удаляя ее из стека). В обеих функциях переменная S является входным...
Turbo Pascal В массиве все элементы, стоящие выше максимального элемента, заменить на максимальный элемент первого столбца
Сос с программой, чрезвычайно быстрая необходимость, завтра нужно отчитываться В массиве все элементы, стоящие выше максимального элемента, заменить на максимальный элемент первого столбца.(нужно написать прогу и блок схему по ней скинуть),если не трудно 		Turbo Pascal Подсчитать сумму отрицательных элементов выше побочной диагонали матрицы https://www.cyberforum.ru/ turbo-pascal/ thread598405.html
Двухмерный массив задан последовательностью случайных чисел от 0 до M.Размерность массива определяет пользователь.Подсчитать сумму отрицательных элементов выше побочной диагонали.
Нет ТЗ - давай досвидания
746 / 377 / 64
Регистрация: 01.12.2011
Сообщений: 2,250
06.06.2012, 22:45 0

Заменить все элементы в строке и столбце матрицы на 0, где находится наибольший элемент - Turbo Pascal - Ответ 3134645

06.06.2012, 22:45. Показов 1309. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

const
  n=3;
  m=3;
var
  a:array[1..n,1..m] of integer;
  i,j,imax,jmax,max:integer;
begin
  max:=0;
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=-10+random(40);
        if j=m then writeln(a[i,j]:3)
          else write(a[i,j]:3);
        if a[i,j]>max then
          begin
            imax:=i;
            jmax:=j;
          end;
      end;
  writeln;
  for i:=1 to n do
    for j:=1 to m do
      begin
        if (j=jmax) or (i=imax) then a[i,j]:=0;
        if j=m then writeln(a[i,j]:3)
          else write(a[i,j]:3);
      end;
  readln;
end.


Вернуться к обсуждению:
Заменить все элементы в строке и столбце матрицы на 0, где находится наибольший элемент Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 06.06.2012, 22:45
Готовые ответы и решения:

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

Найти максимальный элемент и все элементы, расположенные в одной строке и в одном столбце матрицы
Дана квадратная матрица А порядка n. Составить программу, которая находит максимальный элемент и ...

Найти столбец матрицы, где находится ее min элемент и все элементы этого столбца умножить на 5
2. Найти столбец матрицы А(20*20), где находится ее min элемент и все элементы этого столбца...

Найти наибольший элемент в каждой строке, и найменший элемент в каждом столбце матрицы А(nxn)
Выручите, пожалуйста! 1.Вычислить коэффициент b0 и b1 линейного приближения y=b0+b1x за...

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

Матрицы: найти max элемент и все, расположенные в одной строке и столбце с max, заменить на нули
Дана квадратная матрица А порядка n. Составить программу, которая находит максимальный элемент и ...

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
переведите на паскаль Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы...

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все...

Элементы домножить на 10, если наибольший элемент матрицы находится на главной диагонали
Даны натуральное число n, действительная квадратная матрица порядка n, действительные числа...

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