|
|
| Другие темы раздела | |
|
PascalABC.NET Дано действительное число Х1, Х2 , …, Х8. Получить квадратную матрицу порядка 8
https://www.cyberforum.ru/ pascalabc-net/ thread2548314.html Получить квадратную матрицу порядка 8 const n = 8; var x: array of real; y: array of real; i, j: integer; begin randomize; |
Для заданного файла вычислить.(текстовый файл) PascalABC.NET Для заданного файла вычислить a1 + 2a2 + 3a3 + ... + nan (здесь ai — последовательно прочитанные элементы файла, причём нумерация начата с 1) |
| PascalABC.NET Блок-схема по коду (тема работа с множествами) var s:String; var num, i, j, n, code:Integer; var numbers: set of byte; begin Write('Введите натуральное число: '); Read(num); str(num, s); WriteLn('Множество цифр, не входящих в... Поправил код. var n,i:integer; numbers: set of byte; begin Write('Введите натуральное число: '); Readln(n); numbers:=; WriteLn('Множество цифр, не входящих в введенное число:'); ... https://www.cyberforum.ru/ pascalabc-net/ thread2547551.html |
PascalABC.NET Дана программа. Нужно сделать рекурсию
https://www.cyberforum.ru/ pascalabc-net/ thread2548330.html Дана программа. Нужно сделать рекурсию при помощи процедуры. var s,k:string; i:integer; begin write('Введите строку: '); readln(s); k:=''; for i:=length(s) downto 1 do ... procedure revers(var s:string;k:integer); var c:char; begin if k=1 then begin c:=s; s:=s; s:=c; end; if k<=length(s) div 2 then revers(s,k+1); |
|
PascalABC.NET Блок-схема по коду (тема использование процедур и функций)
https://www.cyberforum.ru/ pascalabc-net/ thread2547557.html uses math; var x, y, res: real; function get_value(x,y:real):real; begin get_value:=(ArcCos(x)-sqrt(1-0.3*sqr(x))); get_value:= get_value*(ArcCos(y/2)-sqrt(1-(0.3*sqr(y))/4)+5); end; |
PascalABC.NET Найти сумму квадратов элементов в файле. Тема Текстовый файл Должен посчитать сумму квадратов элементов. Работает, но считает неправильно. var T: Text; a,n, i: integer; s: string; sum := 0; begin write('Имя входного файла? '); readln(s); var T: Text; a,n,i,sum: integer; s:string; begin write('Имя входного файла? '); readln(s); assign(T, s); rewrite(t); write('Количество чисел: '); |
|
PascalABC.NET Определить количество чисел, входящих в последовательность по одному разу
https://www.cyberforum.ru/ pascalabc-net/ thread2548619.html 1.Дано натуральное число n и последовательность целых чисел a1, а2, ... аn, где 0 <аn <255. Определить количество чисел, входящих в последовательность по одному разу. Нужно сделать через множины. через множины. Множества? |
PascalABC.NET Для десяти выстрелов, координаты которых задаются с клавиатуры, вывести текстовые сообщения о попадании в мишень
https://www.cyberforum.ru/ pascalabc-net/ thread2547596.html Дорогие знатоки. Прошу помочь написать код или исправить мною написанный, скорее всего я напортачил лишь в описаниях мишени. program rep; var x,r,y:real; s:integer; Begin ... if (y>0) and (sqr(x)+sqr(y)<sqr(R)) or (y<0) and (x<0) and (y>-R) and (y<x) then WriteLn('Попал') else WriteLn('Мимо'); |
| PascalABC.NET Дан текстовый файл. Вычислить Элементы файла могут принимать целые значения от 0 до 100. Опишите алгоритм, позволяющий найти и вывести произведение элементов, которые имеют чётное значение и не оканчиваются на 0. Гарантируется,... begin ReadAllText('123.txt').ToIntegers.Where(x->(x mod 10>0) and x.IsEven).Product.Print; end. https://www.cyberforum.ru/ pascalabc-net/ thread2548231.html |
Сколько есть пятизначных чисел, делящихся на 5, в записи которых нет одинаковых цифр? PascalABC.NET Сколько есть пятизначных чисел, делящихся на 5, в записи которых нет одинаковых цифр? Разработать программу с использованием комбинаторных методов. Взято отсюда: https://www.cyberforum.ru/turbo-pascal/thread980489.html var k, e, a, b, c, d: integer; begin k := 0; for a := 1 to 9 do for b := 0 to 9 do for c := 0 to 9 do ... |
|
Инвертировать часть массива с первого элемента до элемента с заданным номером PascalABC.NET Инвертировать часть массива с первого элемента до элемента с заданным номером, после чего определить номер и значение самого последнего минимального элемента. https://www.cyberforum.ru/pascalabc-net/thread1322140.html |
Заменить значения элементов матрицы PascalABC.NET Дана матрица A из N строк и N столбцов. Кроме матрицы А, дана матрица В такого же размера. Если для всех i,j выполняется неравенство А+В>0, заменить значение каждого элемента матрицы А, который... unit unitt12; interface const nmax= 20; type matr = array of integer; procedure vvod(var f1x: text; var nx: integer; var ax, bx: matr); |
 6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
|
|
| 09.12.2019, 11:45 | 0 |
Вставить в массив заданное число x после всех отрицательных элементов - PascalABC.NET - Ответ 1407659409.12.2019, 11:45. Показов 924. Ответов 1
Метки (Все метки)
Ответ
Вставить в массив заданное число x после всех отрицательных элементов
Вернуться к обсуждению: Вставить в массив заданное число x после всех отрицательных элементов PascalABC.NET
0
|
|
| 09.12.2019, 11:45 | |
|
Готовые ответы и решения:
1
|
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 09.12.2019, 11:45 | |
|
Помогаю со студенческими работами здесь
0
Вставить заданное число после всех элементов одномерного массива кратных заданному числу. Вставить в массив заданное число после любого из максимальных элементов
Вставить в массив число К после всех элементов, кратных своему номеру Вставить число А в массив целых чисел после всех элементов, в которых есть цифра 5 |
Новые блоги и статьи
|
||||
|
Циклы for в Python
py-thonny 17.03.2025
Существует множество ситуаций, когда нам нужно выполнить одно и то же действие несколько раз. Цикл for в Python — настоящий рабочий конь для большинства программистов. Если вам нужно пройтись по всем. . .
|
Предсказание ветвлений - путь к высокопроизводительному C++
NullReferenced 17.03.2025
В высокопроизводительном программировании на C++ каждый такт процессора на счету. Когда речь заходит о разработке систем с низкой задержкой — будь то высокочастотная торговля, обработка потоковых. . .
|
Паттерн CQRS в C#
UnmanagedCoder 17.03.2025
Создание сложных корпоративных приложений часто требует нестандартных подходов к архитектуре. Один из таких подходов — паттерн CQRS (Command Query Responsibility Segregation), предлагающий простую,. . .
|
Паттерн Цепочка ответственности в C#
UnmanagedCoder 17.03.2025
Цепочка ответственности — это поведенческий паттерн проектирования, который позволяет передавать запросы последовательно по цепочке потенциальных обработчиков, пока один из них не обработает запрос. . . .
|
Создаем микросервисы с NestJS, TCP и Typescript
run.dev 17.03.2025
NestJS — фреймворк, который значительно упрощает создание серверных приложений на Node. js. Его прелесть в том, что он комбинирует концепции ООП, функционального программирования и предлагает. . .
|
|
Гексагональная архитектура со Spring Boot
Javaican 17.03.2025
Если вы когда-нибудь сталкивались с ситуацией, когда внесение простых изменений в базу данных или пользовательский интерфейс заставляло вас переписывать весь код, то вы точно оцените элегантность. . .
|
Позиционирование Kafka Consumer и Seek-операции
Javaican 17.03.2025
Что же такое Consumer Seek в Kafka? По сути, это API-метод, который позволяет программно указать, с какой позиции (offset) Consumer должен начать или продолжить чтение данных из партиции. Без этого. . .
|
Python NumPy: Лучшие практики и примеры
py-thonny 17.03.2025
NumPy (Numerical Python) — одна из ключевых библиотек для научных вычислений в Python. Она превращает Python из просто удобного языка общего назначения в среду для проведения сложных математических. . .
|
Java Micronaut в Docker: контейнеризация с Maven и Jib
Javaican 16.03.2025
Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .
|
Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2
Javaican 16.03.2025
Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .
|
Наверх