Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Delphi Метод Ньютона. Функция двух переменных И снова здравствуйте эксперты форума. И снова вопрос по методу Ньютона. Есть задача: нужно изготовить бак цилиндрической поверхности, нужно найти радиус и высоту бака, чтобы на его изготовление пошло... https://www.cyberforum.ru/ delphi-beginners/ thread83042.html Найти два минимальных в массиве Delphi
Здравствуйте, подскажите, пожалуйста: Вот есть массив из 7 чисел. Нам надо найти два минимальных. Что мне надо добавить в код, чтобы если какой то элемент равен первому минимальному - то брал его,...
Delphi При выполнении кода форма зависает. Как вывести прогрессбар? Пишу программу, которая должна с моего сайта скачать нудный файл, и старый заменить новым. Типа обновление программы. Проблема в том, что во время закачки форма застывает, пока не закончится закачка.... https://www.cyberforum.ru/ delphi-beginners/ thread83038.html Delphi Вызов функции из Dll https://www.cyberforum.ru/ delphi-beginners/ thread82977.html
Суть проблемы. Пишу программу подобие работы с БД. Написал функцию добавления в базу данных type Client = record Numer: integer; Marka: string; Model: string; Client: string;...
Организовать текстовый файл, состоящий из N строк, и определить максимальный и минимальный размер строки в файле Delphi
Организовать текстовый файл состоящий из N строк.Как определить максимальный и минимальный размер строки в файле? var f:textfile; s,a,min,max:string; n,i:byte; begin ... 		Delphi Написать программу, которая будет нажимать клавишу с интервалом Привет всем,я новенький тут и только начал изучать язык программирования,я хоху создать очень простую программу которая будет нажимать клавишу с интервалом примерно 1 секунда,но я не имею понятия что... https://www.cyberforum.ru/ delphi-beginners/ thread82930.html
Delphi Справочный материал https://www.cyberforum.ru/ delphi-beginners/ thread82821.html
У меня есть такой вопрос. Какие книги можно почитать по программированию, чтобы начать лучше решать разного рода задачи??? 		Проверить, чередуются ли в массиве четные и нечетные элементы Delphi
Помагиет рещить задачу плиз заранее спс..... Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем 1 2 числа. Если чередуются, то вывести 0, если нет, то вывести номер первого...
Delphi Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с элементом, стоящим на пересечении этих диагоналей Помагиет рещить задачу плиз заранее спс...... Дана действительная квадратная матрица порядка n все элементы которой различны. Найти наибольший элемент среди стоящих на главной и побочной диагоналях... https://www.cyberforum.ru/ delphi-beginners/ thread82816.html Delphi В зависимости от выбора, найти сумму, кол-во, разность минимально и максимального элемента в массиве https://www.cyberforum.ru/ delphi-beginners/ thread82815.html
Помагиет рещить задачу плиз заранее спс......Используя 3 зависимых переключателя решить: В зависимости от выбора, найти сумму, кол-во, разность минимально и максимального элемента в массиве..(прошу...
Delphi Подсчитать количество слов в строке
Помагиет рещить задачу плиз заранее спс..... Дана символьная строка. Группы символов между пробелов считаются словами. Подсчитать сколько слов содержит данная строка.(прошу писать код задачи... 		Delphi Назначение комбинации клавиш https://www.cyberforum.ru/ delphi-beginners/ thread82803.html
Как вставить комбинацию клавиш Ctrl+S? Ниже пример: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if "Нажата кнопка Ctrl и S" then showmessage('Вы...
21 / 21 / 2
Регистрация: 10.11.2009
Сообщений: 67
06.01.2010, 17:41 0

Определить числа b1,...bm равные значениям средних арифметических элементов строк - Delphi - Ответ 461760

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

Решение

Первая часть в консольном приложении
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14

  write('m= ');readln(m);//количество строк
  write('n= ');readln(n);//количество столбцов
    for i:=1 to m do
      begin
         s:=0;
         for j:=1 to n do
            begin
                write('a[',i,',',j,']=');readln(a[i,j]);
                s:=s+a[i,j];
            end;
            b[i]:=s/n;
          writeln;
      end;
     for i:=1 to m do write(b[i],' ');

вот алгоритм определения средних значений

Delphi
1
2
3
4
5
6

 for i:=1 to m do
      begin
         s:=0;
         for j:=1 to n do    s:=s+a[i,j];
          b[i]:=s/n;
      end;


Вернуться к обсуждению:
Определить числа b1,...bm равные значениям средних арифметических элементов строк Delphi
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 06.01.2010, 17:41
Готовые ответы и решения:

Определить числа матрицы, равные соответственно наименьшим значениям элементов строк
дана действительная матрица размера m x n. Определить числа {b}_{1},...{b}_{m}, равные...

Определить числа b1,…,bm, равные соответственно наименьшим значениям элементов строк матрицы
Дана действительная матрица. Определить числа b1,…,bm, равные соответственно наименьшим значениям...

Определить числа, равные значениям средних арифметических элементов строк
Дана действительная матрица размера mXn. Определить числа b1,…,bm равные значениям средних...

Определить числа, равные значениям средних арифметических элементов строк матрицы
Ребят срочно нужна помощь, нужно здать программу у самого нечего неполучаеться. Выручите меня...

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

Определить числа b0, b1,…, bm равные соответственно значениям средних арифметических элементов строк.
Дана действительная матрица размера m x n. Определить числа b0, b1,…, bm равные соответственно...

Дана вещественная матрица размером NxM.Определить числа B1..Bm,равные значениям средних арифметических элементов столбцов.
Дана вещественная матрица размером NxM.Определить числа B1..Bm,равные значениям средних...

Определить числа b1, ... , bm равные наименьшим значениям элементов строк
Дана действительная матрица размера m x n. Определить числа b1, ... , bm равные наименьшим...

Определить числа равные наименьшим значениям элементов строк матрицы
Дана действительная матрица размера m*n. Определить числа b1,…,bm равные наименьшим значениям...

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