Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
PascalABC.NET Как прочередовать все элементы массива быстро? https://www.cyberforum.ru/ pascalabc-net/ thread1759279.html
Нужно в строку вывести поочередно из двух массивов элементы, то есть: arr1 + arr2 + arr + arr и т.д. Сделал просто: for var i := 0 to f.Item1.length - 1 do textBox1.Text += f.Item1 + ' ' + f.Item2; Но при больших длинах, непонятно почему, процесс сильно затягивается, то есть основной алгоритм длится 0.05 сек., а вывод поочередно сек 20. Хотел бы побыстрее. 		PascalABC.NET Нужно сделать блок схему для программы
var i,res:integer; m:arrayof integer; begin for i:=1 to 12 do begin write(i,' число '); readln(m); if odd(m)=false then res:=res+m; end; writeln('сумма четных элементов массива ',res); end.
PascalABC.NET Исследование уравнений и построение графиков Построить график функции, вычислить и построить все асимптоты для этой функции. f(x)=x2-3x+7 Метод касательных (Ньютона) https://www.cyberforum.ru/ pascalabc-net/ thread1758988.html PascalABC.NET Составить программу построения массива Даны массивы A и B. Составить программу построения массива С такого, что Ci=min https://www.cyberforum.ru/ pascalabc-net/ thread1758956.html
Из массива удалить элементы, встречающиеся в массиве более одного раза PascalABC.NET
Из массива удалить элементы, встречающиеся в массиве более одного раза. Пример: из массива A: 9 3 4 9 1 0 0 должен получиться массив A: 3 4 1. 		PascalABC.NET Сделать цикл https://www.cyberforum.ru/ pascalabc-net/ thread1758505.html
Дано вещественное число b. Вычислить сумму: 1b+2b+...+12b. program dl9_meru3; var b,s,i:Integer; begin Writeln('Дано вещественное число b. Вычислить сумму:1b+2b+...+12b.'); writeln ('Ведите b'); readln (b); s:=0; b:=b*1+b*2+b*3+b*4+b*5+b*6+b*7+b*8+b*9+b*10+b*11+b*12; begin
PascalABC.NET Вычислить функцию f(x) https://www.cyberforum.ru/ pascalabc-net/ thread1758503.html
Вычислить функцию f(x), заданную графически 		PascalABC.NET Вычислить длину отрезка АВ
Вычислить длину отрезка АВ, заданного координатами концов А(х1,y1) B(x2,y2) на плоскости (см. изображение). (Решить для А(3,4) , В(10,10)).
PascalABC.NET Из массива удалить элементы https://www.cyberforum.ru/ pascalabc-net/ thread1758501.html
Из массива удалить элементы, стоящие после максимального и имеющие значение меньше среднего арифметического всех элементов массива. Пример: из массива A: 8 6 9 4 5 должен получиться массив A: 8 6 9 (среднее арифметическое четных элементов =(8+6+9+4+5)/5=6.4). 		PascalABC.NET Ввести данные о студентах, и выяснить, на каком курсе больше занимаются спортом Составить программу, которая вводит данные о студентах: № п/п, фамилию, год рождения, пол, курс, вид спорта и выводит: на каком курсе больше занимаются спортом. https://www.cyberforum.ru/ pascalabc-net/ thread1758500.html
Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят в слово PascalABC.NET
Дана непустая последовательность из строчных русских букв, за последним символом-точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят в слово. Примечание: глухие согласные - (к,п,с,т,ф,х,ц,ч,ш,щ). 		PascalABC.NET Моделирование стрельбы из пушки по мишени https://www.cyberforum.ru/ pascalabc-net/ thread1758347.html
Помогите пожалуйста!!! я не сильна в программировании, но мне очень надо написать программу моделирование стрельбы из пушки по мишени на PascalABC.NET. Как вот это реализовать в программе?
5068 / 2639 / 2349
Регистрация: 10.12.2014
Сообщений: 10,007
10.06.2016, 04:54 0

Найти разность между min и max элементами матрицы - PascalABC.NET - Ответ 9255956

10.06.2016, 04:54. Показов 686. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

const
  Rows = 5;
  Cols = 3;
begin
  Randomize;
  var a : array [1..Rows, 1..Cols] of Integer;
  var minval := Integer.MaxValue;
  var maxval := Integer.MinValue;
  WriteLn('Массив заполнен случайными числами от 0 до 99:');
  for var Row := 1 to Rows do
    begin
      for var Col := 1 to Cols do
        begin
          a[Row, Col] := Random(100);
          Write(a[Row, Col]:3);
          if minval > a[Row, Col] then minval := a[Row, Col]
          else if maxval < a[Row, Col] then maxval := a[Row, Col];
        end;
      WriteLn;
    end;
  WriteLn('Разность между min и max его элементами = ', minval - maxval);
end.


Вернуться к обсуждению:
Найти разность между min и max элементами матрицы PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 10.06.2016, 04:54
Готовые ответы и решения:

Найти разность между MAX и MIN элементами массива. Найти ошибку
найти разность между MAX и MIN элементами массива PROGRAM massraznost; var A :array of integer; ...

Одномерный массив. Определить разность между max и min элементами массива и их индексами
..ничего не получается... сформируйте одномерный массив из 50 целых случайных чисел в диапозоне...

Массив. Найти произведение элементов массива, располагающихся между max и min элементами
В общем есть одномерный массив, который состоит из вещественных элементов. Нужно найти...

Найти среднее арифметическое элементов последовательности, расположенных между max и min элементами (включительно)
Дана последовательность из 100 различных целых чисел. Найти среднее арифметическое значение чисел,...

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

Переписать простые числа из матрицы A в массив B, из массива удалить числа между max и min элементами
переписать простые числа из матрицы целых чисел A в массив B. Из массива B удалить числа,...

Найти разность между минимальным и максимальным элементами матрицы
Добрый день уважаемые, я начинающий программист ) Сейчас в колледже изучаем языки Паскаль и Делфи....

Матрица. Найти разность между максимальным и минимальным элементами матрицы
Дана матрица,содержащая N*M вещественных чисел.Найти разность между максимальным и минимальным...

Найти разность между максимальным и минимальным элементами i-ой строки матрицы
Дана целочисленная матрица размера MxN. Найти: Y=x(1)*x(m)+x(2)*x(m-1)+…+x(m)*x(1), где x(i) –...

Найти сумму элементов той строки матрицы, в которой разница между max и min элементами максимальна
Дана вещественная, квадратная матрица порядка N. Найти сумму элементов той строки в которой разница...

Найти разность модулей max и min элемента матрицы
Помогите, пожалуйста, написать программу, определяющую разность модулей максимального и...

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