|
|
| Другие темы раздела | |
|
PascalABC.NET Записать выражение синтаксисом языка Паскаль
https://www.cyberforum.ru/ pascalabc-net/ thread2121966.html Записать выражение синтаксисом языка Паскаль: 1.25\left(\frac{5.98A}{\exp \frac{B(C+1.41)^{0.5}}{87}}-D \right) Y:=1.25*(5.98*A/exp(B*sqrt(C+1.41)/87)-D); |
PascalABC.NET Найти сумму квадратов всех целых чисел от A до B включительно Даны два целых числа A и B, где A<B. Найти сумму квадратов всех целых чисел от A до B включительно. Через циклы. https://www.cyberforum.ru/pascalabc/thread245454.html https://www.cyberforum.ru/ pascalabc-net/ thread2121939.html |
| PascalABC.NET Заполнить матрицу числами 1 – выше главной диагонали, 2 – ниже главной диагонали Дан двумерный массив целых чисел размера М строк и М столбцов. Заполнить этот массив числами 1 – выше главной диагонали, 2 – ниже главной диагонали. На главной диагонали записать число 3. begin var m := ReadlnInteger('M = '); var a : array of Integer; SetLength(a, m, m); for var row := 0 to pred(m) do for var col := 0 to pred(m) do case sign(row - col) of ... https://www.cyberforum.ru/ pascalabc-net/ thread2121965.html |
PascalABC.NET Сдвинуть все элементы массива вправо на заданное число позиций
https://www.cyberforum.ru/ pascalabc-net/ thread2121918.html 2 С клавиатуры вводится произвольный одномерный массив типа Real (не более 10 элементов), после чего делается его контрольный вывод. Сдвинуть все элементы массива вправо на заданное число позиций. https://www.cyberforum.ru/pascal/thread133142.html |
|
PascalABC.NET Получить сумму тех элементов массива, которые удовлетворяют заданному условию
https://www.cyberforum.ru/ pascalabc-net/ thread2121964.html Дан одномерный массив А целых чисел длины N. Получить сумму тех элементов массива, которые удовлетворяют условию: |ai|<i^2 var sum := 0; for var i := 1 to n do if a < i*i then sum += a; |
PascalABC.NET Вывести в алфавитном порядке все буквы, которые входят в текст по одному разу Программа на тему регулярные типы: векторы. Дан текст из малых латинских букв, за которым следует точка. Вывести в алфавитном порядке все буквы, которые входят в этот текст по одному разу. Как... https://www.cyberforum.ru/pascalabc/thread539069.html |
|
PascalABC.NET Определить государство с минимальной обеспеченностью больницами
https://www.cyberforum.ru/ pascalabc-net/ thread2121813.html Определена запись: Record name:string; {название государства} sqr : real; {площадь территории} peop, sch, hosp, inst: word{численность населения, число школ, больниц, вузов} https://www.cyberforum.ru/turbo-pascal/thread121446.html |
Вычислить среднее арифметическое (геометрическое) положительных (отрицательных) элементов массива PascalABC.NET 1)Вычислить среднее арифметическое (геометрическое) положительных (отрицательных) элементов массива. const n = 10; var x: array of integer; sap, sgp, sao, sgo: real; i, ko, kp: byte; begin sap := 0; |
| PascalABC.NET Подсчитать количество чисел Подсчитать количество чисел, принадлежащих промежутку и сумму чисел стоящих на местах, кратных 3. Через элементы массива. const n = 10; var i, a, b, k, s: integer; x: array of integer; begin write('Введите значения промежутка: '); readln(A, B); https://www.cyberforum.ru/ pascalabc-net/ thread2121938.html |
PascalABC.NET Процедура: в начало каждой подстроки в строке добавить ее номер
https://www.cyberforum.ru/ pascalabc-net/ thread2121812.html Описать процедуру, в которой в начало каждой подстроки в строке добавляется ее порядковый номер (подстроки отделяются пробелом). буду рад если поможете, а то мозги уже не тянут. А если несколько пробелов? То как считать подстроки? — пробел – это начало подстроки и по фиг сколько их: procedure indexing(var s : String); begin var space := s.Count(c->c=' ')+1; for var... |
|
Написать блок-схему PascalABC.NET Напишите, пожалуйста, блок-сему к данной программе : var n, i, x, y: integer; t: boolean; begin write('Введите число:'); read(n); t := false; |
Создание юнита PascalABC.NET Пожалуйста помогите с созданием юнита. unit Program5; interface type TBubbleSort=integer; procedure BubbleSort(var sort:array of TBubbleSort); procedure swap( var a, b: TBubbleSort... Вот так: unit Program5; interface type TBubbleSort = integer; procedure BubbleSort(var sort: array of TBubbleSort); procedure swap(var a, b: TBubbleSort ); |
|
Супер-модератор
  
|
|
| 14.11.2017, 19:21 | 0 |
Сократить код программы - PascalABC.NET - Ответ 1171149314.11.2017, 19:21. Показов 1276. Ответов 4
Метки (Все метки)
Ответ
Сократить - это значит сделать размер кода меньше
при том же функционале. Что у ТС-а происходит с массивом? Он сортируется, и потом выводится. В результате массив какой? Правильно, упорядоченный. Что у тебя? Выводится отсортированный, но сам массив остался прежним. Это не сокращение, а изменение функционала.
Вернуться к обсуждению: Сократить код программы PascalABC.NET
0
|
|
| 14.11.2017, 19:21 | |
|
Готовые ответы и решения:
4
Сократить код программы Можно ли сократить код? Сократить код программы |
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 14.11.2017, 19:21 | |
|
Помогаю со студенческими работами здесь
0
Возможно ли сократить код программы?
Как сократить код программы? нужно сократить код! для программы перевода из СС Сократить код программы, создав массив полей |
Новые блоги и статьи
|
||||
|
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
|
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
|
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
|
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
|
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
|
|
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
|
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
|
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
|
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
|
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
|
Наверх