PascalABC.NET

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

Войти

Другие темы раздела
PascalABC.NET Проблема Джозефа Проблема Джозефа. При запуске вылетает с ошибкой! Помогите пожалуйста. program dynamic(input,output); type PE = ^TE; TE = record info: char; next: PE; ...	Создать типизированный файл, который содержит сведения об автомобилях PascalABC.NET program n1; type rec = record marka: string; firma: string; cost: integer; end; var вы используете для записи тип rec, а записывать пытаетесь в cars with cars do то есть рассматриваете файл как запись, а не файл записей...
PascalABC.NET Проверить, есть ли в массиве числа с суммой N Пожалуйста, помогите с задачей. Есть массив целых чисел, и нужно проверить, есть ли среди них такие, что их сумма равна n. Чисел в массиве может быть от одного до 500, каждое из - от 1 до 1000, и...	Хранение настроек в текстовом файле PascalABC.NET Есть файл Config.txt с содержимым: Left = 100 Top = 30 Caption = MyProgram ... Нужна функция Function XXX(n: string; s: string):string; где n-путь к файлу, s-слово, и возвращает строковое... Я так понимаю, этот файл должен быть строго структурирован. Сейчас посмотрим, это будет интересно. Добавлено через 10 секунд function cnf(n: string; s: string): string; begin var f:...
Нарисовать треугольник, который движется по кругу и крутится вокруг одной из своих вершин PascalABC.NET Здравствуйте. Собственно, сабж. Сделал так, что движется по кругу, но чтобы еще вокруг одной из вершин вращался — беда. uses crt,graphABC; var x,y,x1,y1,x2,y2,x4,y4,i:integer; h1,h2,h3:real;... не знаю как именно это сделать, но нарисуй сначала треугольник вращающийся вокруг вершины, а потом пусти эту вершину по кругу. Добавлено через 3 часа 14 минут program treug; uses crt, graphABC;...	PascalABC.NET ABCButtons https://www.cyberforum.ru/ pascalabc-net/ thread752899.html Помогите разобраться с модулем ABCButtons. Пытался сделать так, чтобы линия двигалась вверх или вниз, и направление изменялось кнопкой: uses GraphABC, timers, ABCButtons; var x,napr,y: integer;... uses GraphABC, ABCButtons, System.Threading; var x,napr,y: integer; procedure BtWordClick(); begin if napr=1 then begin napr:=2; y-=40; end else
PascalABC.NET Сохранение https://www.cyberforum.ru/ pascalabc-net/ thread750066.html Люди, помогите! Не могу догнать как можно сделать систему сохранений в игрульке на Паскале. Dimasta, Izobara правильно говорит: все зависит от того, какую игру вы создаете, на каких этапах будет осуществляться сохранение... например, если я делаю диггер или пэкмен без возможности...	Вычислить a^n (if then else) PascalABC.NET Решить с помощью if then else. :senor: Это будет рекурсия. Натуральное число берется от 0. function Step(x:real;n:word):real; begin if x=0 then Step:=0 else if n=0 then Step:=1 else if n=1 then Step:=x else Step:=Step(x,n-1)*x;...
Вычислить a^n (repeat until) PascalABC.NET решить с помощью цикла repeat until Заранее спасибо :senor: var a,s:real; n,i:integer; begin write('a=');read(a); repeat write('Введите натуральное число n='); read(n); until n>=0; if a=0 then s:=0 else if n=0 then s:=1	PascalABC.NET Вычислить a^n https://www.cyberforum.ru/ pascalabc-net/ thread753846.html решить с помощью цикла while-do Заранее спасибо товарищи)) var a,n: integer; x: real; i: byte; begin write('Введите число: '); readln(a); write('Введите степень: '); readln(n); x:=1; i:=0;
PascalABC.NET Дан символьный файл f, содержащий произвольный текст. Получить 10 наиболее часто встречающихся букв и число их появления помогите, пожалуйста :'( Uses Crt; Const mn=; Var f:file of char; A:array of byte; m:set of char; imax,n:byte; ch:char; Begin ClrScr; writeln('Окончание ввода ввод " "'); https://www.cyberforum.ru/ pascalabc-net/ thread749967.html	PascalABC.NET Проблемка в FormsABC Написал код: uses FormsABC; Begin MainForm.Title:= 'XXX'; MainForm.SetSize (200,200); MainForm.Left:=100; end. Только вот окно также остаётся посреди экрана. Почему? Как это исправить? serёга, потому что если у вас уже запущено приложение, то ещё раз вызывать Application.Run не нужно, у формы есть метод Show и его как раз-таки и надо использовать в вашем случае. То есть нужно было... https://www.cyberforum.ru/ pascalabc-net/ thread751089.html

КонецСвета

Почетный модератор

7966 / 3937 / 2464

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

Сообщений: 5,377

07.01.2013, 03:11

Найти количество четных элементов массива, вывести элементы массива, значение которых попадает в интервал - PascalABC.NET - Ответ 3962000

07.01.2013, 03:11. Показов 3688. Ответов 8

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

Ответ

Сообщение от Surb

При запуске скомпилированного файла программы, код которой выше,последнее действие(вывод элементов на экран) не задерживается на экране, как это исправить?

перед end прописать readln

Сообщение от Surb

удалить элемент с определенным индексом?

Pascal
1
2
3
4
write('Индекс элемента для удаления: '); readln(ind);
for i:=ind to n-1 do
    a[i]:=a[i+1];
dec(n); //или n:=n-1;

Сообщение от Surb

произвести замену элементов с определенными индексами

например, заменить все кратные 5

Pascal
1
2
for i:=1 to n do
    if i mod 5=0 then a[i]:=0;

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

07.01.2013, 03:11

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

Найти номер строки массива размера m на n, в которых находится наибольшее количество четных элементов
Найти номер строки массива размера m на n в которых находиться наибольшее количество четных элементов.

Найти сумму всех элементов массива, и количество элементов, значение которых превышает 6
ввести с клавитуры из N элементов.Найдите сумму всех элементов и количество элементов значение которых превышают 6.

Элементы массива заполняются по формуле x*(x-3)*(sqr(x)-81). Найти первые 20 элементов и указать значение x, при которых значения элементов - 0
1. Элементы массива заполняются по формуле x*(x-3)*(sqr(x)-81). Найти первые 20 элементов и указать значение x, при которых значения...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

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

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

Блог

07.01.2013, 03:11

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

Найти и вывести количество пар элементов массива, произведение которых положительно
Условие такое: Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно....

Найти и вывести количество пар элементов массива, произведение которых нечётно, а сумма не кратна 5
1) Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от 0 до 10000 включительно. Опишите на языке...

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

Найти количество четных элементов массива, стоящих на четных местах
дан массив c, состоящий из n элементов.Элемента массива ввести с клавиатуры.Найти количество четных элементов массива,стоящих на четных...

Вывести элементы массива, абсолютное значение которых больше 10
Дан одномерный массив размерностью 9,заполненный целыми числами, введенными с клавиатуры. Вывести на экран номер и значение элементов...

Новые блоги и статьи Все статьи Все блоги /
Лучшие практики оптимизации Docker Image Mr. Docker 13.03.2025 Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .	Вопросы на собеседовании по Docker Mr. Docker 13.03.2025 Ты сидишь напротив технического специалиста, и вдруг звучит вопрос про Docker Swarm или многоэтапные сборки. Пот на лбу? Не переживай, после этой статьи ты будешь готов ко всему! Эта статья будет. . .	Поиск текста в сносках : замена дефиса на тире или тире на дефис... РоΜа 13.03.2025 Нужно было найти текст в сносках и заменить. Почему-то метод селекшн не сработал. . . пришлось гуглить. найденный на форумвба код пришлось править. Смысл - заменяет в сносках дефисы и тире на нужные. . . .	Real PATH definitions in bash scripts jigi33 13.03.2025 Как поймать путь и путь к директории относительно запускаемого файла в BASH 1. поймать путь через вывод $(pwd) 2. более правильно - на основе realpath (см. скриншот)	Django или Flask: что выбрать для веб-разработки на Python py-thonny 13.03.2025 Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .
Непрерывное развертывание в Java с Kubernetes Javaican 13.03.2025 Чем так привлекателен Kubernetes для развертывания Java-приложений? Этот оркестратор контейнеров позволяет автоматизировать развертывание, масштабирование и управление контейнеризированными. . .	Предотвращение XSS, CSRF и SQL-инъекций в JavaScript run.dev 13.03.2025 JavaScript занимает первые позиции среди языков веб-разработки, но его распространенность делает его привлекательной целью для злоумышленников. Межсайтовый скриптинг (XSS), межсайтовая подделка. . .	PHP 8: JIT-компиляция и улучшение производительности Jason-Webb 13.03.2025 PHP никогда не славился своей скоростью. Многие сталкивались с проблемами производительности при работе со сложными вычислениями или обработкой больших объемов данных. Традиционная модель выполнения. . .	Сериализация данных с Apache Avro в Kafka Javaican 12.03.2025 Apache Kafka стала одним из ключевых решений для работы с большими потоками данных. Однако с ростом объемов передаваемых данных возникает проблема: как эффективно сериализовать и десериализовать. . .	Создание потребителей Kafka с помощью Reactor Kafka Javaican 12.03.2025 Reactor Kafka — это библиотека, объединяющая Apache Kafka с реактивным программированием на базе Project Reactor. Такое сочетание позволяет строить неблокирующие, асинхронные приложения с контролем. . .

Наверх