Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal матрицы и одномерные массивы здраствуйте помогите пожалуйста решить задачу на паскале ДАНА МАТРИЦА 4х4 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ИЗ НЕЁ СОСТАВИТЬ ОДНОМЕРНЫЙ МАССИВ СОСТОЯЩИЙ ИЗ... https://www.cyberforum.ru/ pascal/ thread25210.html Задача на файл и задача на создание очереди Pascal
1 Дан символьный файл, содержащий, по крайней мере, один символ пробела. Удалить из файла все символы, предшествующие пробелу 2 Создать очередь из N чисел, вводимых с клавиатуры
Pascal Найти сумму элементов в каждой строке двумерного массива Здравствуйте) Помогите пожалуйста решить несколько задач) Заранее огромнейшее спасибо) 1. В заданном массиве K(F;F) найдите сумму элементов в каждой строке. Сформулируйте одномерный массив ,... https://www.cyberforum.ru/ pascal/ thread25182.html Pascal UL-разложение на основе гауссова исключения по столбцам с выбором главного элемента по строке ¯UL-разложение на основе гауссова исключения по столбцам с выбором главного элемента по строке В программе также реализовать следующие подпрограммы: 1)подпрограмму решения систем линейных... https://www.cyberforum.ru/ pascal/ thread25154.html
Pascal Записи
Ввести список учебной группы, включающей 7 человек. Для каждого студента указать пол, дату рождения, оценки последних экзаменов по алгебре, истории и ЭВМ. Составить программу, которая обеспечивает... 		Pascal как в программу запихать не менее одной подпрограммы-процедуры(функции) https://www.cyberforum.ru/ pascal/ thread25149.html
определить значение функции(вроде справился..) необходимо использовать не менее одной подпрограммы-функции и подпрограммы-процедуры(не пойму во-первых зачем, а во-вторых как и куда их...
Pascal 2 задачи с использованием процедуры https://www.cyberforum.ru/ pascal/ thread25143.html
Помогите пожалуйста решить: 1) Составить процедуру, исходными данными которой является матрица А из n строк и n столбцов, либо два массива В1, В2,...,Вn; C1, C2,..., Cm, либо один из них.... 		Pascal Создать файл TEMP, состоящий из записей
Создать файл TEMP, состоящий из записей. Каждая запись: порядковый номер, год, среднегодовая температура. 1 1974 16,4 2 1975 15,8 3 1976 14,5 4 1977 17,2 5 1978 16,1 6 1979 16,2 7 1980 14,8
Pascal Задачи с входными и выходными файлами Люди! Решите как можно скорее и желательно все! Очень прошу! Заранее благодарен. 1) На плоскости задано десять точек. Найдите квадрат максимальной площади с вершинами в заданных точках.... https://www.cyberforum.ru/ pascal/ thread25128.html Pascal Вывести на экран файл и запись, которая соответствует максимальной среднегодовой температуре Создать файл TEMP, состоящий из записей. Каждая запись: порядковый номер, год, среднегодовая температура. 1 1974 16,4 2 1975 15,8 3 1976 14,5 4 1977 17,2 5 1978 16,1 6 1979 16,2 7 1980 14,8 https://www.cyberforum.ru/ pascal/ thread25126.html
Pascal Дана строка.Напечатать текст,составленный из последних букв всех слов этой строки.
Помогите пожалуйста...=( Дана строка.Напечатать текст,составленный из последних букв всех слов этой строки. Заранее очень-очень благодарна! 		Pascal Создать программу, которая сохраняет информацию в типизированом файле для определённого элемента https://www.cyberforum.ru/ pascal/ thread25107.html
Здравствуйте! Создать программу, которая сохраняет информацию в типизированном файле для определённого элемента ( использую структуру ). Программа предназначена для следующих задач: Ввод...
Эксперт С++
3069 / 1407 / 425
Регистрация: 19.01.2009
Сообщений: 3,853
06.03.2009, 21:08 0

Подпрограммы: разделить каждый из элементов массива на его максимальный отрицательный элемент - Pascal - Ответ 112351

06.03.2009, 21:08. Показов 1545. Ответов 4
Метки (Все метки)

Ответ

Цитата Сообщение от Puporev Посмотреть сообщение
Вот здесь неверно.
Так мы получим не максимальное отрицательное, а минимальное.
Согласен... опять меня подвело желание скорее кодить, не дочитав задание до конца

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14

function MaxOtr(a:Tmas;n:byte):real;
var i,k:byte;
    max:real;
begin
max:=-100;k:=0;
for i:=1 to n do
if (a[i]<0)and(a[i]>max) then
   begin
     max:=a[i];
     k:=1;
   end;
if k=0 then max:=0;
MaxOtr:=max;
end;
Хочу развить Вашу мысль: данный алгоритм не найдет максимальное минимальное число менее -100. Вот как я предлагаю выкрутится: присвоить переменной max наименьшее из вообще возможных значений для Real переменных. Так же если использовать по активнее использовать встроенную локальную переменную, обозначающую возврат из функции, то мы спокойно можем избавиться от переменной-флага k.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

function MaxOtr(a:Tmas; n:byte):real;
var i   : byte;
    max : real;
begin
  max    := 2.9e-39; {применяем самое минимальное из возможных REAL}
  MaxOtr := 0;       {это если ни одного минимального мы не обнаружим}
 
  for i:=1 to n do
    if (a[i]<0) and (a[i]>max) then
    begin
      max    := a[i]; {запоминаем макс из мин}
      MaxOtr := max;  {когда функция завершится ее результатом будет}
                      { самое последнее значение}
    end;  
end;


Вернуться к обсуждению:
Подпрограммы: разделить каждый из элементов массива на его максимальный отрицательный элемент Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 06.03.2009, 21:08
Готовые ответы и решения:

В каждой из трех матриц найти максимальный элемент и разделить на него каждый отрицательный элемент матрицы
Задание:В каждой из трех матриц Х, Y и Z найти максимальный элемент и разделить на него каждый...

Разделить каждый из элементов на максимальный элемент среди отрицательных элементов соответствующего массива
Ввести одномерные массивы X1n1 X2n2 X3n3. Разделить каждый из элементов на максимальный элемент...

Каждый элемент одномерного массива разделить на сумму всех его элементов
Найти сумму элементов одномерного массива размером 4. разделить каждый элемент исходного массива на...

Разделить каждый элемент массива на максимальный элемент (нормирование)
вот задача: Ввести вектор целых чисел. Выполнить нормирование элементов этого вектора, разделив...

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

Разделить каждый элемент массива на максимальный по модулю элемент массива
1. Разделить каждый элемент массива целых чисел, в котором не все элементы равны нулю, на самый по...

Каждый отрицательный элемент массива заменить на его абсолютную величину
Дан массив вещественных чисел. а) Каждый отрицательный элемент заменить на его абсолютную...

Каждый отрицательный элемент массива заменить на его абсолютную величину
Дан массив вещественных чисел x. Каждый отрицательный элемент заменить на его абсолютную величину.

Каждый отрицательный элемент динамического массива заменить на его абсолютную величину
Дан массив вещественных чисел. Вывести на экран новое состояние массива, в котором: а)...

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