Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Выполнить инверсию отдельно для 1-ой и 2-ой половин массива https://www.cyberforum.ru/ pascal/ thread124851.html Заполнить массив из 10 элементов случайными числами в интервале и выполнить инверсию отдельно для 1-ой и 2-ой половин массива	Описать ммасив записей,который содержит информацию о нескольких деталях Pascal Описать ммасив записей,который содержит информацию о нескольких деталях(наименование,масса,габаритные размеры:длина,ширина,высота;материал).Определить массу всех деталей. оч прошу помоч с заданием!!!Через день сдавать а написать за 2 недели не смог..помогите!!!!
Pascal Нужно переделать программу, реализующую трехмерные преобразования с фигурой Составить программу, реализующую трехмерные преобразования с фигурой. Для всех вариантов фигура должна отображаться в контурном виде без удаления невидимых линий и уметь вращаться вокруг произвольной оси. Управление преобразованием по осям осуществлять с помощью девяти клавиш (“1”…”9”) на цифровой клавиатуре. Мой вариант: фигура - параллелепипед, преобразование - перенос по осям XYZ. Есть... https://www.cyberforum.ru/ pascal/ thread124842.html	Pascal Функции. Найти среднее арифметическое всех элементов с четными номерами и количество нулевых элементов в трех массивах. https://www.cyberforum.ru/ pascal/ thread124839.html Заданы три одномерных массива R, U, W. Количество элементов каждого массива не превышает 25. Для каждого массива вычислить: - среднее арифметическое всех элементов с четными номерами; - количество нулевых элементов. Помогите пожалуйста составить программу.
Pascal Ввести двумерный массив А и определить в нём произведение тех элементов, чей модуль лежит вне заданного диапазона. Здравствуйте, уважаемые программисты) помогите мне, пожалуйста. напишите программу к этой задаче. буду очень благодарна!)) Ввести двумерный массив А 4×3 . Определить в нём произведение тех элементов, чей модуль лежит вне диапазона . Блок-схема прилагается!) вот, может здесь лучше будет видно... http://pikucha.ru/411960	Pascal С помошью модуля graph Составить программу для вывода на экран бегущей надписи,используя модуль Graph, например:"Нажмите Esc для выхода" Надпись должна появляться в любом месте экрана случайно ОЧЕНЬ ПРОШУ ПОМОЧ, ЭТО ЗАДАНИЕ УЖЕ 3 НЕДЕЛИ ДЕЛАЮ(( https://www.cyberforum.ru/ pascal/ thread124834.html
Pascal Дан массив из n целых чисел.Определить количество соседств двух чисел одного знака. +2 задачи. Возможно кто-то сможет помочь на Pascalе. 1)Дан массив из n целых чисел.Определить количество соседств двух чисел одного знака. 2)Дан файл элементы которого целые числа.Найти среднее орефметическое. 3)Дан текст.файл,содержащий строки,найти число строк начинающихся на "o". Добавлено через 16 часов 28 минут ребят поглядите пожалуйсто очень нужно https://www.cyberforum.ru/ pascal/ thread124828.html	Pascal RETURN Каким образом вернуться к какому либо месту в программе. Нигде не могу найти синтаксиса процедуры RETURN.
Pascal Решение судоку методом backtracking(метод перебора с возвратом) https://www.cyberforum.ru/ pascal/ thread124809.html Значится вот как получается. Написал программу для решения судоку методом перебора с возвратом. Согласен, что лучше всего использовать этот метод с помощью рекурсивных функций, но меня на это не хватило. Написал функции проверяющие на доступность вставки выбранного числа и отход назад до предыдущей координаты. Не могу разобраться почему программа виснет намертво. Помогите пожалуйста. program...	Pascal Записи. Найти среднюю стоимость автомобилей, возраст которых не привышает 6 лет. https://www.cyberforum.ru/ pascal/ thread124807.html известны стоимость и возраст каждой из пяти моделей легковых автомобилей. найти среднюю стоимость автомобилей, возраст которых не привышает 6 лет.. ПлиииииЗ решите!
Создать типизированный файл и записать в него 15 заданных условием чисел. Pascal вот моя задачка прошу кто сможет! Создать типизированный файл и запись в него: 1)5 одинаковых целых чисел 2)5 одинаковых вещественых чисел 3)5 одинаковых слов Записываемые чмсла и слова вводятся с клавиатуры!	Pascal Выполнить над квадратной матрицей А порядка n последовательность заданных действий. https://www.cyberforum.ru/ pascal/ thread124795.html в общем, дело нехитрое, но у меня, как у обезьяны с гранатой, дела с Паскалем из рук вон плохо идут. хотелось бы попросить Вашей помощи для выполнения следующего задания. "Выполнить над квадратной матрицей А порядка n последовательность следующих действий: а). вычесть из матрицы А единичную матрицу. б). сформировать диагональную матрицу С из элементов, которые определяются как суммы...

AI\EKCAH^P

105 / 102 / 89

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

Сообщений: 201

03.05.2010, 17:25

Получить число отрицательных членов подпоследовательности и число нулевых членов всей последовательности - Pascal - Ответ 702104

03.05.2010, 17:25. Показов 3532. Ответов 5

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

Ответ

строки

Pascal

1 2	if (a<0) and (i<=35) then ko:=ko+1; if a=0 then kn:=kn+1;

замени на

Pascal

1 2	if (a[i]<0) and (i<=35) then ko:=ko+1; if a[i]=0 then kn:=kn+1;

Добавлено через 1 минуту
все работает->

Pascal

Program ms1;
uses crt;
const n=45;
var a:array[1..n] of integer;
i,ko,kn:integer;
begin
clrscr;
randomize;
ko:=0;
kn:=0;
for i:=1 to n do
begin
a[i]:=Trunc ((50-(-20))*random+(-20));
write(a[i]:3);
if (a[i]<0) and (i<=35) then ko:=ko+1;
if a[i]=0 then kn:=kn+1;
end;
writeln;
writeln('Количество отрицательных в первых 35=',ko);
writeln('Колич. нулевых членов всей последовательности=',kn);
readln;
end.

Вернуться к обсуждению:
Получить число отрицательных членов подпоследовательности и число нулевых членов всей последовательности Pascal

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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

03.05.2010, 17:25

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

Даны натуральное число n, целые числа a1,...,an. Получить сумму положительных и число отрицательных членов последовательности a1,...,an.
Помогите пожалуйста решить задачу... Даны натуральное число n, целые числа a1,...,an....

Даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an
даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных...

Получить число отрицательных членов и число членов, принадлижащих отрезку {1,2}
Даны натуральное число n, действительные числа a1,..,an. В последовательности a1,..,an, все не...

Получить число отрицательных членов и число членов, принадлежащих отрезку [1, 2]
Доброго времени суток,помогите решить задание Общая постановка. Дана последовательность чисел...

	03.05.2010, 17:25

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

03.05.2010, 17:25

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

Получить число отрицательных членов последовательности
Помогите, пожалуйста решить задачу в Паскале.. Даны целые числа a1, a2, … ,a45. Получить число...

Получить сумму положительных и число отрицательных членов указанной последовательности
Дано натуральное число n, целые числа a1, a2, ..., an. Получить сумму положительных и число...

Получить число отрицательных и число нулевых членов данной последовательности
Помогите, пожалуйста, сделать задачку и блок-схему к ней:) Даны целые числа A 1, A 2, …, A N ....

Получить количество отрицательных членов последовательности и число членов, принадлежащих отрезку
Дано натуральное n и целые a1...an. Получить количество отрицательных членов последовательности и...

Новые блоги и статьи
В чем отличие между 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 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .

Наверх