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. Показов 3518. Ответов 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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

03.05.2010, 17:25

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

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

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

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

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

Наверх