Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Нарисовать новогоднюю ёлку в паскале. Графика в паскале.Создать новогоднюю ёлку в паскале из 3 треугольников. с игрушками на ёлке https://www.cyberforum.ru/ turbo-pascal/ thread456648.html Turbo Pascal Вычислить значение функции с шагом h=0,5
f(x)=x/(x^2+1) расположена h=0,5
Turbo Pascal Правильно ли работает программа? https://www.cyberforum.ru/ turbo-pascal/ thread456591.html
Всем привет! Написал программу, сегодня пошел сдавать, преподаватель сказал что она у меня не правильно работает, якобы N не правильно выводится. Посмотрите пожалуйста правильно ли я все сделал. Если нет, то какие ошибки, желательно более подробно, как можно исправить и т.д. Uses crt; Var S, x, e, m, S1, r, i ,g: real; var n: integer; Begin clrscr; writeln('Vvedite colichestvo...
Turbo Pascal Найти сумму наименьших значений элементов столбцов двумерного массива A(n,m) Дан двумерный числовой массив A(n,m).Найти сумму наименьших значений элементов его столбцов. https://www.cyberforum.ru/ turbo-pascal/ thread456590.html
Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел... Turbo Pascal
Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел. Заполнить файл g числами, которые являются произведениями соседних компонентов файла f.
Turbo Pascal Программа выдает ошибку: "Предполагается идентификатор типа" https://www.cyberforum.ru/ turbo-pascal/ thread456573.html
Program Baza_dannyh; Uses crt; Type programma=record {Zapis, sootvetstvuyushaya programme} name:string; {Nazvanie programmy} razrab:string; {Razrabotchik programmy} operativa:integer; {Razmer zanimaemoy operativnoy pamyati} disk:integer; {Razmer zanimayemogo diskovogo prostranstva} os:string; {Operacionnaya sistema} end; Var
Turbo Pascal Составить блок схему к готовому коду Напишите программу по блок схеме. заранее спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread456530.html Найдите количество строк файла, начинающихся и заканчивающихся одинаковым символом Turbo Pascal
Дан текстовый файл содержащий строки, найдите количество строк начинающихся и заканчивающихся одинаковым символом и самые короткие строки.
Turbo Pascal Выводит ошибку "деление на 0" https://www.cyberforum.ru/ turbo-pascal/ thread456477.html
var x,y, xmin, xmax,dx: real; Begin Writeln('Табулирование функции.'); xmin:=-3; xmax:=6; dx:=0.5; x:=xmin; While x<=xmax Do begin
Turbo Pascal Два массива получаются одинаковыми вопреки задаче Два одинаковых двумерных массива у меня получается, хотя я рассчитывал получить разные. Создаю и вывожу с помощью процедур. Самое любопытное, что при закомментированных строках //writeln('array 1:'); и //writeln('array 2:'); массивы выводятся разные, при раскомментированых - одинаковые. О_о . Все! Образовательный процесс встал!! Мож кто подскажет - то ли моя ошибка, то ли глюк?? const ... https://www.cyberforum.ru/ turbo-pascal/ thread456474.html
Не удается компилировать программу. Turbo Pascal
Д.д. Пишу программу по книге. При нажатии Ф9 выдает окошко что нет ошибок. А если нажать ctrl+f9 то ничего не происходит.
Turbo Pascal Напечатать список цехов , у которых экономия электроэнергии составила более 5 %. Даны массивы h1,..,h7 -шифры цехов; l1,..,l7-лимит электро энергии,кВт.ч ;r1,..,r7-израсходованная электроэнергия ,кВт.ч ; напечатать список цехов ,у которых экономия электроэнергии составила более 5%.указать цех у которого экономия в процентах максимальна . https://www.cyberforum.ru/ turbo-pascal/ thread456406.html
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
02.03.2012, 19:21 0

Найти наибольший элемент в каждой строке, и найменший элемент в каждом столбце матрицы А(nxn) - Turbo Pascal - Ответ 2547383

02.03.2012, 19:21. Показов 1464. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от xaxamko Посмотреть сообщение
2.Найти наибольший элемент в каждой строке, и найменший элемент в каждом столбце матрицы А(nxn)
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
32
33
34
35
const
  n = 5;
var
  Matr: array[1..n, 1..n] of integer;
  Max, Min: integer;
  i, j: byte;
begin
  randomize;
  Max:=Matr[1, 1]; Min:=Matr[1, 1];
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=random(20);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  for i:=1 to n do
  begin
    for j:=1 to n do
      if Matr[i, j] > Max then Max:=Matr[i, j];
    writeln('Наибольший элемент в строке ', i, ': ', Max);
    Max:=Matr[1, 1];
  end;
  writeln;
  for j:=1 to n do
  begin
    for i:=1 to n do
      if Matr[i, j] < Min then Min:=Matr[i, j];
    writeln('Наименьший элемент в столбце ', j, ': ', Min);
    Min:=Matr[1, 1];
  end;
end.


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

Как найти наибольший элемент в каждой строке и наименьший в каждом столбце матрицы?
Дана вещественная матрица M x N. Найти 2 суммы: наибольших значений элементов ее строк, наименьших...

Найти первый отрицательный элемент в каждой строке матрицы и последний четный элемент в каждом столбце
Дан двумерный массив двухбайтовых знаковых целочисленных элементов 5*8. Полагаем,что в каждой...

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

Определить минимальный элемент в каждом столбце и максимальный элемент в каждой строке матрицы
Определить минимальный элемент в каждом столбце и максимальный элемент в каждой строке матрицы....

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

Найти наибольший элемент в каждой строке(1задача) и столбце (2задача) матрицы
Задачи выполняются в экселевском VBA. Heeelp(

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

Массив: Найти первый отрицательный элемент в каждой строке и последний четный элемент в каждом столбце.
Дан двумерный массив двухбайтовых знаковых целочисленных элементов 5*8. Полагаем,что в каждой...

Найти наибольший элемент в каждом столбце матрицы
Помогите найти наибольшее число в каждом столбце матрицы #include &quot;stdafx.h&quot;...

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