PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Написать блок-схему https://www.cyberforum.ru/ pascalabc-net/ thread2122161.html Напишите, пожалуйста, блок-сему к данной программе : var n, i, x, y: integer; t: boolean; begin write('Введите число:'); read(n); t := false;	PascalABC.NET Записать выражение синтаксисом языка Паскаль Записать выражение синтаксисом языка Паскаль: 1.25\left(\frac{5.98A}{\exp \frac{B(C+1.41)^{0.5}}{87}}-D \right)
PascalABC.NET Заполнить матрицу числами 1 – выше главной диагонали, 2 – ниже главной диагонали https://www.cyberforum.ru/ pascalabc-net/ thread2121965.html Дан двумерный массив целых чисел размера М строк и М столбцов. Заполнить этот массив числами 1 – выше главной диагонали, 2 – ниже главной диагонали. На главной диагонали записать число 3.	PascalABC.NET Получить сумму тех элементов массива, которые удовлетворяют заданному условию Дан одномерный массив А целых чисел длины N. Получить сумму тех элементов массива, которые удовлетворяют условию: \|ai\|<i^2 https://www.cyberforum.ru/ pascalabc-net/ thread2121964.html
Создание юнита PascalABC.NET Пожалуйста помогите с созданием юнита. unit Program5; interface type TBubbleSort=integer; procedure BubbleSort(var sort:array of TBubbleSort); procedure swap( var a, b: TBubbleSort ); forward; var a:array of integer;	PascalABC.NET Найти сумму квадратов всех целых чисел от A до B включительно https://www.cyberforum.ru/ pascalabc-net/ thread2121939.html Даны два целых числа A и B, где A<B. Найти сумму квадратов всех целых чисел от A до B включительно. Через циклы.
PascalABC.NET Подсчитать количество чисел Подсчитать количество чисел, принадлежащих промежутку и сумму чисел стоящих на местах, кратных 3. Через элементы массива. https://www.cyberforum.ru/ pascalabc-net/ thread2121938.html	PascalABC.NET Сдвинуть все элементы массива вправо на заданное число позиций 2 С клавиатуры вводится произвольный одномерный массив типа Real (не более 10 элементов), после чего делается его контрольный вывод. Сдвинуть все элементы массива вправо на заданное число позиций.
PascalABC.NET Вычислить среднее арифметическое (геометрическое) положительных (отрицательных) элементов массива https://www.cyberforum.ru/ pascalabc-net/ thread2121917.html 1)Вычислить среднее арифметическое (геометрическое) положительных (отрицательных) элементов массива.	PascalABC.NET Определить государство с минимальной обеспеченностью больницами https://www.cyberforum.ru/ pascalabc-net/ thread2121813.html Определена запись: Record name:string; {название государства} sqr : real; {площадь территории} peop, sch, hosp, inst: word{численность населения, число школ, больниц, вузов}
PascalABC.NET Процедура: в начало каждой подстроки в строке добавить ее номер Описать процедуру, в которой в начало каждой подстроки в строке добавляется ее порядковый номер (подстроки отделяются пробелом). буду рад если поможете, а то мозги уже не тянут.	PascalABC.NET Вывести в алфавитном порядке все буквы, которые входят в текст по одному разу Программа на тему регулярные типы: векторы. Дан текст из малых латинских букв, за которым следует точка. Вывести в алфавитном порядке все буквы, которые входят в этот текст по одному разу. Как описать массив: mas: array of char; или mas: array of integer; ? https://www.cyberforum.ru/ pascalabc-net/ thread2121764.html

alex5code

Aimez-vous les baguettes?

193 / 26 / 27

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

Сообщений: 165

14.11.2017, 18:16

Сократить код программы - PascalABC.NET - Ответ 11711268

14.11.2017, 18:16. Показов 1252. Ответов 4

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

Ответ

Pascal

begin
Var Integers: array[1..5] of integer;
for var i:=1 to 5 do Integers[i]:= ReadlnInteger('Integers[' + i.ToString +'] =');
Integers.Sorted.Println;
end.

Вернуться к обсуждению:
Сократить код программы PascalABC.NET

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

14.11.2017, 18:16

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

Сократить код программы
Сократите код данной программы: const n=5; var i,m,j,x:integer; A:ARRAY OF INTEGER;...

Можно ли сократить код?
Программа выводит разноцветный график функции y=1-e^-x. Можно ли объединить циклы из 5 в 2(цикл для...

Сократить код программы
Необходимо сократить код программы процедурами. Кто готовь помочь, пишите, скину код программы (он...

Возможно ли сократить код программы?
Всем привет! Недавно нашел на ваш форум, перечитал много тем и теперь сам хочу задать вопрос. Суть...

	14.11.2017, 18:16

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

14.11.2017, 18:16

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

Сократить код программы Delphi
Здравствуйте! Я новичок в программировании, учусь писать программы на Дэлфи. Подскажите как можно...

Как сократить код программы?
Здравствуйте. Подскажите пожалуйста, как сократить код программы, чтобы не писать кучу...

нужно сократить код! для программы перевода из СС
Доброго времени суток, вот имею такую программу которая перевод числа и десятичной системы...

Сократить код программы, создав массив полей
Программа работает, но вот препод сказал сократить код, собрать всё в масив... Но я не понимаю как...

Наверх