Free Pascal

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

Войти

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

Другие темы раздела

Free Pascal Вычислить функцию с заданной точностью, используя рекурсивный алгоритм Помогите пожалуйста решить задачу в процедурах. Вычислить функцию с заданной точностью, используя рекурсивный алгоритм:e^x^2=cумма от n=0 до бесконечности (-1)^n*(x^2n/n!) . Для X < 1. https://www.cyberforum.ru/ free-pascal/ thread718686.html

Free Pascal Поразрядная сортировка
Здравствуйте! :) помогите, пожалуйста, разобраться (добавить комментарии) в функции function numberpos и процедуре procedure sortmas. Ооооочень нужно. Заранее спасибо! :) Program xa; uses crt; type itype=longint; {Тип сортируемых данных} TTImas=array of itype; TImas=^TTImas;

Free Pascal Можете исправить эту задачу так чтобу вместо 3 сравнивались 2 очереди. Можете исправить эту задачу так чтобу вместо 3 сравнивались 2 очереди. Program Ochered; uses crt; type Alfa=String; PComp=^Comp; Comp=record sD:Alfa; pNext:PComp; end; https://www.cyberforum.ru/ free-pascal/ thread718306.html

Free Pascal Вывести фамилии студентов, которым необходимо повысить успеваемость в порядке убывания https://www.cyberforum.ru/ free-pascal/ thread718205.html
Составить программу, которая выводит список фамилий студентов, которым по итогам сессии необходимо повысить успеваемость до фактического среднего уровня, если для каждого студента известны 5 полученных в сессию оценок. Всего 10 студентов, список фамилий требуется составить в порядке убывания среднего балла, полученного за сессию. Оценки храните в двумерном массиве, фамилии - в одномерном.

Random. Задать диапазон. Free Pascal
Как задать диапазон от -200 до 0?

Free Pascal Составить программу создания средствами ООП набора управляемых с клавиатуры графических объектов https://www.cyberforum.ru/ free-pascal/ thread717749.html
Составить программу создания средствами ООП набора управляемых с клавиатуры графических объектов. Организовать управление движением объектов курсорными клавишами по вертикали, по горизонтали и по диагоналям. Ввести возможность менять цвет объектов и др. Набор из 10 пикселей трех цветов, квадрата и параллелограмма и двух эллипсов. Предусмотреть возможность изменения высоты параллелограмма, угла...

Free Pascal Найти координаты параметрической кривой https://www.cyberforum.ru/ free-pascal/ thread717443.html
рассчитать координаты точек кривых (заданных в полярных координатах) для полярного угла F,изменяющегося на отрезке с шагом дельтаF, при каждом из указанных значений А. Сделал так: шаг у меня пи на 36, начало каждого отрезка это шаг+ предыдущий шаг. Далее по заданной формуле R:=A*sin((2*F)/180) нахожу радиус( расстояние между (0,0) и нашей новоиспеченной точкой) беру его как 1 сторону...

Создать целочисленный файл с помощью гениратора целых чисел через процедуру Free Pascal
Нужно создать целочисленный файл, с помощью гениратора целых чисел , сделать это нужно через процедуру. В чем он выдает ошибку я не понимаю. program sortirovka2; var f:file of integer; a,b,i,r,k:integer; t:boolean; Procedure SozdF(var f:file); var i,n,k:integer; Begin n:=10;

Free Pascal Работа с двумерными массивами: Проверить входит ли меньший массив полностью в больший Необходимо обработать несколько одномерных массивов объединенных в двумерный массив. Два массива размером 200 и 5 элементов, соответственно, заполните в случайном порядке символами, коды которых расположены в диапазоне от 40 до 200. Проверить входит ли меньший массив полностью в больший и, если это так, то в большем массиве все элементы, принадлежащие меньшему ... https://www.cyberforum.ru/ free-pascal/ thread717424.html

Free Pascal Определить количество положительных, отрицательных и нулевых элементов, расположенных между минимальным и максимальным его элементами https://www.cyberforum.ru/ free-pascal/ thread717399.html
В целочисленном векторе vectorn определить количество положительных, отрицательных и нулевых элементов, расположенных между минимальным и максимальным его элементами. Предусмотреть случай, когда таких элементов нет (все элементы вектора равны между собой). Входные данные: n=10 v_min=-5 v_max=10 Исходный вектор: 7 0 1 -5 -2 5 2 0 -1 9 Выходные данные:

Функция SeekEoLn SeekEoF Free Pascal
Дана последовательность вещественных чисел {Aj} (длина последовательности заранее не известна, использовать функцию SeekEoLn или SeekEoF). Hайти сумму чисел, целая часть котоpых делится на 3, наименьшее из таких чисел и номеp этого числа в последовательности

Free Pascal Файлы и множества: Сформировать новое множество Y=(X3+X2)*(X2-X1), из которого выделить подмножество нечетных чисел https://www.cyberforum.ru/ free-pascal/ thread716985.html
Даны три множества Х1,Х2,Х3, содержащие целые числа из диапазонов 1..100. Известно, что мощность каждого из этих множеств равна10. Сформировать новое множество Y=(X3+X2)*(X2-X1), из которого выделить подмножество нечетных чисел. На экран вывести исходные и полученные множества. Значения элементов исходных множеств, ввести с клавиатуры. Застрял) Prog

orange_rush

142 / 148 / 116

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

Сообщений: 537

Записей в блоге: 2

04.12.2012, 16:09

Одномерный массив. Посчитать Сумму отрицательных элементов кратных заданному числу - Free Pascal - Ответ 3800769

04.12.2012, 16:09. Показов 1592. Ответов 2

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

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

Решение

смотри, можно через процедуру:

Pascal

const n=20;
type mas=array [1..n] of integer;
var a: mas; i,k: integer;
{подпрограмма}
procedure Uslovie1 (b: mas; j: integer);
{эти переменные внутри подпрограммы и не влияют на внешние}
var i: integer;
begin
    for i:=1 to n do
                        if b[i]<0 then
                if b[i]mod j=0 then write(b[i]:4);
 
end;
BEGIN {главная программа}
        writeln('vvedite chislo k');
        readln(k);
        writeln('ishodny massiv: ');
        for i:=1 to n do begin
                a[i]:=random(101)-50;
                write (a[i]:4);
        end;
        writeln;
        write('4isla kratnie k: ');
        Uslovie1(a,k);
        readln;
END.

Вернуться к обсуждению:
Одномерный массив. Посчитать Сумму отрицательных элементов кратных заданному числу Free Pascal

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

04.12.2012, 16:09

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

Требуется посчитать сумму всех элементов, кратных заданному числу x
Дан массив a из n целых чисел. Требуется посчитать сумму всех элементов, кратных заданному числу x....

Массив: Посчитать сумму всех элементов, кратных заданному числу x
Дан массив a из n целых чисел. Требуется посчитать сумму всех элементов, кратных заданному числу...

Дан одномерный массив и число k. Найти сумму квадратов элементов массива, кратных заданному числу k
Вывести все в stringgrid1. Можно пожалуйста с объяснениями.

Посчитать сумму всех элементов, кратных заданному числу
Дан массив a из n целых чисел. Требуется посчитать сумму всех элементов, кратных заданному числу x.

	04.12.2012, 16:09

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

04.12.2012, 16:09

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

Посчитать сумму элементов массива кратных заданному числу
Дан массив aa из n целых чисел. Требуется посчитать сумму всех элементов, кратных заданному числу...

Посчитать и вывести на экран сумму элементов массива, кратных заданному числу
Добрый день! Помогите пожалуйста с программой. Написала программу с массивом, в которой...

Одномерный массив C#. Удаление из массива кратных заданному числу элементов
По условию числа, кратные k, должны удаляться из массива. Пока что они просто заменяются 0. К...

В матрице найти сумму нечетных элементов столбца и произведение отрицательных кратных заданному числу элементов строки
2 задача: Найти сумму нечетных элементов 2-го столбца и произведение отрицательных кратных 3...

В заданном массиве найти сумму всех четных элементов, или сумму элементов, кратных заданному числу
В заданном массиве S найти сумму всех четных элементов массива или сумму элементов, кратных...

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

Новые блоги и статьи
В чем отличие между INNER JOIN и OUTER JOIN bytestream 22.01.2025 В современных базах данных информация часто распределена между множеством взаимосвязанных таблиц, что делает операции объединения JOIN неотъемлемой частью работы с SQL. Эти операции позволяют. . .	Как сделать первую букву заглавной в JavaScript bytestream 22.01.2025 JavaScript предоставляет разработчикам множество инструментов для эффективной работы с текстовыми данными. Одной из часто встречающихся задач при обработке строк является преобразование первой буквы. . .	Что такое Big O нотация и алгоритмическая сложность bytestream 22.01.2025 Введение в алгоритмическую сложность В мире разработки программного обеспечения эффективность алгоритмов играет crucial роль в создании качественных приложений. Алгоритмическая сложность. . .	Как решать конфликты слияния (merge) в Git bytestream 22.01.2025 Конфликты слияния в системе контроля версий Git возникают в ситуациях, когда две или более ветки разработки содержат несовместимые изменения в одних и тех же участках кода. Эти конфликты представляют. . .	Как использовать регулярные выражения bytestream 22.01.2025 Регулярные выражения представляют собой мощный инструмент для работы с текстовыми данными, который позволяет осуществлять поиск, проверку и манипуляцию строками на основе определенных шаблонов. Этот. . .	Как выйти из Vim bytestream 22.01.2025 Vim (Vi IMproved) представляет собой один из самых влиятельных текстовых редакторов в истории компьютерной индустрии, эволюционировавший из своего предшественника Vi, созданного Биллом Джоем в 1976. . .
NoSQL базы данных: что это такое и какие существуют bytestream 22.01.2025 В современную эпоху цифровой трансформации объемы данных растут экспоненциально, создавая новые вызовы для традиционных систем управления базами данных. NoSQL (Not Only SQL) представляет собой. . .	Обновление исследования от команды MCM (январь 2025 г.) Programma_Boinc 22.01.2025 Обновление исследования от команды MCM (январь 2025 г. ) Мы продолжаем изучать молекулярные сигнатуры, связанные с раком легких, с текущим фокусом на GCM1, факторе транскрипции, участвующем в. . .	Как работать с Kafka в Go (Golang) bytestream 22.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки событий и интеграции микросервисов. Эта система, изначально. . .	Как использовать RabbitMQ в Go (Golang) bytestream 22.01.2025 RabbitMQ представляет собой надежный и широко используемый брокер сообщений, который играет ключевую роль в построении современных распределенных систем и микросервисной архитектуры. В основе работы. . .	Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .

Наверх