Pascal (Паскаль)

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

Войти

Другие темы раздела
Pascal Описать ммасив записей,который содержит информацию о нескольких деталях Описать ммасив записей,который содержит информацию о нескольких деталях(наименование,масса,габаритные размеры:длина,ширина,высота;материал).Определить массу всех деталей. оч прошу помоч с... За прогу канеш спс большое....по результат нада в виде таблички....если б без нее мошт бы и написал)) Добавлено через 9 минут и..чтобы так сказать чтобы избежать того что я как бэ не... https://www.cyberforum.ru/ pascal/ thread124845.html	Записи. Найти среднюю стоимость автомобилей, возраст которых не привышает 6 лет. Pascal известны стоимость и возраст каждой из пяти моделей легковых автомобилей. найти среднюю стоимость автомобилей, возраст которых не привышает 6 лет.. ПлиииииЗ решите! program test; uses crt; type str=record st:real; g:integer; end; const n=5; var s:array of str;i,k:integer;sr:real; begin clrscr;
Pascal Выполнить над квадратной матрицей А порядка n последовательность заданных действий. в общем, дело нехитрое, но у меня, как у обезьяны с гранатой, дела с Паскалем из рук вон плохо идут. хотелось бы попросить Вашей помощи для выполнения следующего задания. "Выполнить над... https://www.cyberforum.ru/ pascal/ thread124795.html	Pascal Решение судоку методом backtracking(метод перебора с возвратом) https://www.cyberforum.ru/ pascal/ thread124809.html Значится вот как получается. Написал программу для решения судоку методом перебора с возвратом. Согласен, что лучше всего использовать этот метод с помощью рекурсивных функций, но меня на это не...
Pascal Дан массив из n целых чисел.Определить количество соседств двух чисел одного знака. +2 задачи. Возможно кто-то сможет помочь на Pascalе. 1)Дан массив из n целых чисел.Определить количество соседств двух чисел одного знака. 2)Дан файл элементы которого целые числа.Найти среднее... осталось только под номером 2 может кто знает? https://www.cyberforum.ru/ pascal/ thread124828.html	Pascal С помошью модуля graph https://www.cyberforum.ru/ pascal/ thread124834.html Составить программу для вывода на экран бегущей надписи,используя модуль Graph, например:"Нажмите Esc для выхода" Надпись должна появляться в любом месте экрана случайно ОЧЕНЬ ПРОШУ ПОМОЧ, ЭТО...
Pascal Нужно переделать программу, реализующую трехмерные преобразования с фигурой https://www.cyberforum.ru/ pascal/ thread124842.html Составить программу, реализующую трехмерные преобразования с фигурой. Для всех вариантов фигура должна отображаться в контурном виде без удаления невидимых линий и уметь вращаться вокруг произвольной...	Создать типизированный файл и записать в него 15 заданных условием чисел. Pascal вот моя задачка прошу кто сможет! Создать типизированный файл и запись в него: 1)5 одинаковых целых чисел 2)5 одинаковых вещественых чисел 3)5 одинаковых слов Записываемые чмсла и слова... uses crt; var f:file of string; a,i:integer; b:real; s:string; begin clrscr; assign(f,'file'); rewrite(f); write('Введите целое число a=');
Pascal Выполнить инверсию отдельно для 1-ой и 2-ой половин массива https://www.cyberforum.ru/ pascal/ thread124851.html Заполнить массив из 10 элементов случайными числами в интервале и выполнить инверсию отдельно для 1-ой и 2-ой половин массива program inversiya; uses crt; var a:array of integer; k,i,j,n:integer; begin clrscr; randomize; writeln('исходный массив:'); for i:=1 to 10 do	Pascal Ввести двумерный массив А и определить в нём произведение тех элементов, чей модуль лежит вне заданного диапазона. Здравствуйте, уважаемые программисты) помогите мне, пожалуйста. напишите программу к этой задаче. буду очень благодарна!)) Ввести двумерный массив А 4×3 . Определить в нём произведение тех... ДВУМЕРНЫЕ МАССИВЫ то есть. простите, ошиблась в заголовке(( https://www.cyberforum.ru/ pascal/ thread124838.html
Pascal RETURN https://www.cyberforum.ru/ pascal/ thread124822.html Каким образом вернуться к какому либо месту в программе. Нигде не могу найти синтаксиса процедуры RETURN. найти синтаксиса процедуры RETURN. Да вроде и нет такой в Паскале. Добавлено через 1 минуту Каким образом вернуться к какому либо месту в программе А в каком смысле вернуться и куда?	Pascal Функции. Найти среднее арифметическое всех элементов с четными номерами и количество нулевых элементов в трех массивах. Заданы три одномерных массива R, U, W. Количество элементов каждого массива не превышает 25. Для каждого массива вычислить: - среднее арифметическое всех элементов с четными номерами; - количество... Ну помогите пожалуйста!!!! https://www.cyberforum.ru/ pascal/ thread124839.html

AI\EKCAH^P

$Аватар для AI\EKCAH^P$

105 / 102 / 89

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

Сообщений: 201

03.05.2010, 17:25

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

03.05.2010, 17:25. Показов 3537. Ответов 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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. получить сумму положительных и число отрицательных членов последовательности a1,...,an

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

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

03.05.2010, 17:25

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

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

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Исследование байт-кода Python: подключаем дизассемблер stackOverflow 19.02.2025 Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .	Исследование байт-кода Python: компиляторы против интерпретаторов stackOverflow 19.02.2025 Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .	Comprehensions в Python - что это такое? stackOverflow 19.02.2025 Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .	Python правда такой медленный? Развенчиваем миф о медлительности stackOverflow 19.02.2025 Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .	Динамические формы в Flask stackOverflow 19.02.2025 Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS stackOverflow 19.02.2025 Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .	где chromium хранит пароли и как их обнулить в пожарном варианте jigi33 19.02.2025 Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)	howto get access to external internet resources with kinit jigi33 19.02.2025 Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)	Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi stackOverflow 19.02.2025 В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .	ENV (environments) valid paths in linux jigi33 19.02.2025 Environments paths (see screenshot)

Наверх