Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Упорядочить выбором массив целых чисел по возрастанию https://www.cyberforum.ru/ pascalabc/ thread748595.html
1. Упорядочить выбором массив целых чисел по возрастанию. 2. Упорядочить вставкой массив целых чисел по убыванию.
2. Заполнить массив различными действительными числами, случайно выбираются из указанного промежутка. Вывести на экран элементы массива в два столбика Pascal ABC
2. Заполнить массив различными действительными числами, случайно выбираются из указанного промежутка. Вывести на экран элементы массива в два столбика: в первый - элементы с нечетными номерами, во...
Pascal ABC Предел https://www.cyberforum.ru/ pascalabc/ thread748567.html
Составить программу,которая вычисляет значение предела https://www.cyberforum.ru/attachment.php?attachmentid=218673&stc=1&d=1356639398 Определить наименьшее n, при котором значение предела...
Pascal ABC Вычислить значение функции вычислить значение функции https://www.cyberforum.ru/ pascalabc/ thread748516.html
результаты работы этой программы должны быть выведены на экран дисплея и помещены в текстовый файл на диск, Pascal ABC
Вот программа, поправьте ее пожалуйста, чтобы выполнялось требование ProgramABC; TYPE MAT=ARRAY OF REAL; VEC=ARRAY OF REAL; VAR A:MAT; X:VEC; I,N:INTEGER; S:REAL; PROCEDURE MATR(N:INTEGER;...
Pascal ABC Вводится 8 чисел. Найти максимальный среди отрицательных чисел и произведение нечетных Вводится 8 чисел. Найти максимальный среди отрицательных чисел и произведение нечетных https://www.cyberforum.ru/ pascalabc/ thread748486.html
Pascal ABC Дан массив вещественных чисел. Найти сумму элементов, номера которых являются простыми числами (по принципу Решета Эратосфена) вот поиск чисел от a до b. Вот как сюда вставить массив чтобы он адекватно искал элементы номера у которых простые числа и вычислял их сумму, у меня не получается. Выручайте ребят. var... https://www.cyberforum.ru/ pascalabc/ thread748450.html Pascal ABC нахождение корня уравнения методом последовательных приближений
http://s018.***********/i507/1212/6c/adb691d8ec36.jpg С картинки уравнение под циферкой 2. Абсолютно не понимаю метод с математической стороны. Добавлено через 12 часов 17 минут ап-ап ...
Pascal ABC В массиве целых чисел поменять местами строки с наибольшим и наименьшим элементами 7. В массиве целых чисел поменять местами строки с наибольшим и наименьшим элементами. п.с. спасибо тому кто сделал огромное:* https://www.cyberforum.ru/ pascalabc/ thread748438.html Pascal ABC Записать символы текстовой строки в обратном порядке https://www.cyberforum.ru/ pascalabc/ thread748435.html
3.записать символы текстовой строки в обратном порядке п.с. спасибо тому кто сделал огромное:*
Pascal ABC Исправить ошибку в программе Леверье
вод код программы: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Spin, CategoryButtons, ExtCtrls;
Pascal ABC Текстовую строку превратить в "предложения" https://www.cyberforum.ru/ pascalabc/ thread748431.html
4.Текстовую строку превратить в "предложения" по таким требованиям: перед первым словом не должно быть пробелов после последнего слова должна быть точка;предложение начинается с большой буквы слова...
45 / 45 / 44
Регистрация: 10.05.2012
Сообщений: 76
28.12.2012, 01:43 0

Разделить каждый элемент массива на максимальный по модулю элемент массива - Pascal ABC - Ответ 3927410

28.12.2012, 01:43. Показов 1749. Ответов 3
Метки (Все метки)

Ответ

Вариант решения пункта №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
const
     n = 10;
var
   i: integer;
   d:real;
   arr: array[1..n] of real;
begin
     d:=0;
     randomize;
     writeln('Íà÷àëüíûé ìàññèâ:');
     for i:=1 to n do
         begin
              arr[i]:=random(30)-15;
              write(arr[i], ' ');
              if (abs(arr[i]) > d) then
                 d:= arr[i];
         end;
         writeln;
         writeln('Áîëüøåå ïî ìîäóëþ: ', d);
         writeln('Èçìåíåííûé ìàññèâ:');
      for i:=1 to n do
          begin
               arr[i]:=arr[i]/d;
               write(arr[i]:2:2,' ');
          end;
 
end.


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

Подпрограммы: разделить каждый из элементов массива на его максимальный отрицательный элемент
Ввести одномерные массивы X1(n1), X2(n2) и X3(n3) . Разделить каждый из элементов на максимальный...

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

Все отрицательные элементы заданного массива L (11) разделить на максимальный элемент этого массива. Вывести максимальный элемент, начальный и преобра
Помогите составить программу на С++

Ввести массив a(n). найти максимальный элемент массива. Четные элементы массива разделить на максимальный
Вывести полученный массив.

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

Определить максимальный по модулю элемент элемент массива и позицию в которой он расположен
Помогите пожалуйста решить задачку по с++; Задан одномерный массив В , состоящий из n...

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

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

Найти максимальный элемент динамического массива и умножить этот элемент на каждый в этом массиве
Создать двумерный динамический массив произвольного размера. Заполнить массив случайным образом....

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