Определить наибольшую из абсолютных величин произведений - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.87/15:

@Unknown26 0 / 0 / 0 Регистрация: 13.03.2014 Сообщений: 6
		1
	Определить наибольшую из абсолютных величин произведений 13.03.2014, 18:38. Показов 2808. Ответов 2 Метки нет (Все метки) 0

Заказать работу у эксперта

Лучшие ответы (1)

Сообщение: #5898150

Programming

Эксперт

9485 / 562 / 19

Регистрация: 12.04.2006

Сообщений: 11,671

Блог

13.03.2014, 18:38

Ответы с готовыми решениями:

Из абсолютных величин элементов массива выбрать наибольшую
1) Дан целочисленный массив a0, a1,…, am-1. Из абсолютных величин его элементов выбрать наибольшую....

Из абсолютных величин элементов целочисленного массива выбрать наибольшую
Всем привет и с прошедшими праздниками! Прошу помочь с задачкой по программированию. Буду рад...

Найти минимальный элемент того столбца массива, который имеет наибольшую сумму абсолютных величин
Дан массив X(N,M).Найти минимальный элемент того столбца ,который имеет наибольшую сумму абсолютных...

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

bormant

Модератор

7795 / 4618 / 2831

Регистрация: 22.11.2013

Сообщений: 13,114

Записей в блоге: 1

14.03.2014, 11:26

Сообщение было отмечено Unknown26 как решение

Решение

Pascal

const
  LIM=5; W=8; D=2; n=8;
var
  a, c: array [1..n] of Real;
  max, p: real;
  i: integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=LIM-Random*LIM*2;
    c[i]:=LIM-Random*LIM*2;
  end;
  WriteLn('A=');
  for i:=1 to n do Write(a[i]:W:D); WriteLn;
  WriteLn('C=');
  for i:=1 to n do Write(c[i]:W:D); WriteLn;
  max:=0;
  WriteLn('P=');
  for i:=1 to n do begin
    p:=abs(a[i]*c[n-i+1]); Write(p:W:D);
    if p>max then max:=p;
  end; WriteLn;
  WriteLn('max = ',max:0:D);
end.

@Unknown26 0 / 0 / 0 Регистрация: 13.03.2014 Сообщений: 6
	15.03.2014, 22:49 [ТС]	3
	Большое спасибо) 0

	15.03.2014, 22:49

cpp_developer

Эксперт

20123 / 5690 / 417

Регистрация: 09.04.2010

Сообщений: 12,546

Блог

15.03.2014, 22:49

Помогаю со студенческими работами здесь

Определить сумму абсолютных величин всех элементов массива
Ребят помогите очень прошу, надо вот 3 лабы сделать к завтрашнему:( буду рад любой помощи:) №1...

Определить количество четных элементов и сумму абсолютных величин элементов матрицы
Задать матрицу произвольным способом. Определить количество четных элементов , определить сумму...

полусумма абсолютных величин чисел
Дано два числа, не используя стандартную функцию, определить: а) полусумму абсолютных...

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

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

Наверх