PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Не работает KeyDown - обработчик событий для массива https://www.cyberforum.ru/ pascalabc-net/ thread1618773.html делаю такую программу, чтобы массив точек двигался равномерно при нажатии клавиш со стрелками //the beginning of class description Program lb1; uses GraphABC,Events; Type TPoint = class private x,y,Vx,Vy: integer; col: color;	PascalABC.NET задача по паскаль Написать программу, формирующую N индивидуальных вариантов из 3 групп заданий Формат вывода: Вариант <номер>: <задание_1> <задание_2> <задание_3> Вариант 1: 3 1 15 Вариант 2: 4 12 4 ... Вариант 15: 11 9 9
PascalABC.NET Задача Arrays https://www.cyberforum.ru/ pascalabc-net/ thread1618745.html Добрый день , помогите с задачей . Условие : Дано целое число N (>0); Сформировать и вывести целочисленный массив размера N , содержащий степени двойки от первой до N-й : 2,4 ,8 ,16 ,32 ,64,128 , если N=7 . uses crt; const N=7; var a: array of integer; i: integer; begin	PascalABC.NET Не могу вывести формулу Короче, туплю конкретно, помогите пожалуйста Найдите сумму 1+12+13+…+1n. Желательно сделать через For To Do Сделал. https://www.cyberforum.ru/ pascalabc-net/ thread1618482.html
PascalABC.NET В каждой строке матрицы найти число элементов, кратных пяти, и наибольший из полученных результатов Для целочисленной матрицы найти для каждой строки число элементов, кратных пяти, и наибольший из полученных результатов. А(10;10) Aij=(i+j)^i Подскажите пожалуйста не понимаю язык Pascal.	PascalABC.NET Работа с типизированными файлами На междугородней АТС информация о разговорах содержит дату разговора, код и название города, время разговора, тариф, номер телефона в этом городе и номер телефона абонента. Вывести по каждому городу общее время разговоров с ним и сумму. В типизированном файле, и у каждого города должен быть свой тариф. https://www.cyberforum.ru/ pascalabc-net/ thread1618426.html
PascalABC.NET Скопировать элементы файла в квадратную матрицу размером Дан типизированный файл, содержащий символы. Скопировать элементы этого файла в квадратную матрицу размером n×n (если элементов файла недостает, заполнить оставшиеся элементы матрицы символом «точка»). Поменять местами в каждой строке минимальный и максимальный элементы. https://www.cyberforum.ru/ pascalabc-net/ thread1618386.html	Файлы:нечисловые данные. Не могу найти ошибку PascalABC.NET Найти сумму кодов максимального и последнего небуквенного элемента. Если небуквенных элементов нет, сообщить об этом. Type Foch=File of char; Type buk=arrayof Foch; Procedure inp_f(f:Foch); var a:char; i,n:integer; begin n:=Random(100); Rewrite(f);
PascalABC.NET Переписать в новый файл строки, длина которых от a до b Переписать в новый файл строки, длина которых от a до b (a, b — натуральные, a≤b). https://www.cyberforum.ru/ pascalabc-net/ thread1618384.html	PascalABC.NET "Вставка елемента у впорядковану таблицю" "Вставка елемента у впорядковану таблицю". Задано впорядковану лінійну таблицю. Вставити в таблицю число А, не порушивши впорядкованість таблиці, при умові, що таблицю впорядковано за зростанням https://www.cyberforum.ru/ pascalabc-net/ thread1618264.html
PascalABC.NET Сортировка нечетных элементов масива по убыванию Помогите пожалуйста написать программу: С настоящего вектора D размерности n получить вектор X путем расположение нечетных элементов исходного массива по убыванию, используя сортировку выбором. То есть нужно отсортировать только нечетные по номеру элементы массива D, по убыванию методом выбора.	PascalABC.NET Переправа: с одного берега реки на другой перевезти козу, волка и кочан капусты https://www.cyberforum.ru/ pascalabc-net/ thread1618179.html Ребят, помогите пожалуйста программу на pascal ABC написать. что нужно толком сделать - неясно. то ли прописать все эти действия, которые там будет совершаться, то ли чёрт его знает. условие таково: нужно с одного берега реки на другой перевезти козу, волка да кочан капусты. да так, чтобы коза с капустой не оставалась, а волк с козой не оставался. в лодке только одно место, помимо...

Azazel-San

Mental handicap

1246 / 624 / 171

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

Сообщений: 2,429

19.12.2015, 19:27

Найти максимальный и минимальный элементы массива D и поменять их местами - PascalABC.NET - Ответ 8514265

19.12.2015, 19:27. Показов 1891. Ответов 1

Метки (Все метки)

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

Решение

Урывок кода для поиска макс, мин и замена их местами

Pascal

min:=a[1]; mn:=1;
   max:=a[1]; mx:=1;
   for i:=2 to n do
      begin
         a[i]:=random(100);
         write(a[i]:4);
         if a[i]<min then begin min:=a[i]; mn:=i; end;
         if a[i]>max then begin max:=a[i]; mx:=i; end;
      end;
   a[mn]:=a[1];
   a[1]:=min;
   a[mx]:=a[n];
   a[n]:=max;

Вернуться к обсуждению:
Найти максимальный и минимальный элементы массива D и поменять их местами PascalABC.NET

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

19.12.2015, 19:27

Готовые ответы и решения:

Найти максимальный и минимальный элементы данного массива и поменять их местами
Дан двумерный массив размерностью N*M(N и M вводятся с клавиатуры).Найти максимальный и минимальный...

Найти минимальный и максимальный элементы массива и поменять их местами
найти минимальный и максимальный элементы массива и поменять их местами

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы
В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...

Найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элемент
3) В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...

	19.12.2015, 19:27

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

19.12.2015, 19:27

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

Найти максимальный и минимальный элементы массива D и поменять их местами
найти максимальный и минимальный элементы массива D и поменять их местами d(80) помогите плиз)

Найти минимальный и максимальный элементы массива и поменять их местами
Найти минимальный и максимальный элементы массива и поменять их местами. C#

Найти максимальный и минимальный элементы массива и поменять их местами
Составить программу в системе Mathcad для заданного вектора:...

Найти максимальный и минимальный элементы массива S(n) и поменять их местами
написать на С++) и + блок-схемы(время неи денег нет а проги надо написать помогите кно нить) 1. ...

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх