Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Сформировать файл массивов вещественных чисел. Во всех компонентах исключить максимальные элементы https://www.cyberforum.ru/ turbo-pascal/ thread525849.html Составить программы, с помощью которых: - сформировать файл, элементами которого являются массивы вещественных чисел, введенных с клавиатуры; - во всех компонентах файла исключить максимальные элементы. (требуется две отдельные программы)	Получить новый вектор Turbo Pascal Помогите пожалуйста решить задание: Дан вектор С вещественных чисел. Получить новый вектор, записав в него сначала все элементы, не превышающие среднее арифметическое его компонент, а затем все остальные элементы в порядке следования.
Turbo Pascal Вывести на экран фамилии учеников, начинающиеся на букву "П", и год рождения этих учеников Составьте программу, выводящую на экран фамилии учеников начинающихся на букву "П", и год рождения этих учеников. https://www.cyberforum.ru/ turbo-pascal/ thread525846.html	Turbo Pascal вывести элементы с четными числами Дан масив А размера N(N-четное число). Вывести его элементы с четными номерами в порядке возрастания номеров А2, А4,А6,…А N.Условный оператор не использоватью.\ если можно ,то с объяснением https://www.cyberforum.ru/ turbo-pascal/ thread525842.html
Вложенные циклы. Определить количество счастливых билетов Turbo Pascal Родные мои, помогите!!! пожалуйста! нужна программа 1)определите количество счастливых билетов в серии с номерами от 000000 до 999999, билет считается счастливым если сумма трех первых цифр и трех последних цифр равны. 2) составить программу перевода произвольного числа с десятичной системе в любую К-тую систему счисления. заранее спасибо)	Turbo Pascal Удаление массива / уничтожение базы данных https://www.cyberforum.ru/ turbo-pascal/ thread525813.html Я конечно понимаю, что как таковой команды на удаление массива нету. Но все же посмотрите програму для решения вот такой задачи: Создать систему, которая организует базу данных с заданной структурой и предоставляет следующий сервис: а) ввод данных в базу; б) изменения данных; в) уничтожения данных; г) пересмотр всей базы; д) уничтожение базы; е) дополнительные услуги (согласно заданию). ...
Turbo Pascal Подсчитать количество слов, которые начинаются на букву “А”. https://www.cyberforum.ru/ turbo-pascal/ thread525805.html Дан текст, слова в котором разделены хотя бы одним пробелом. Подсчитать количество слов, которые начинаются на букву “А”.	Turbo Pascal Найти сумму чисел кратных двум найти сумму чисел кратных двум,выбирать из 10 чисел введенных с клавиатуры.через mod
Turbo Pascal Определить, что в строках матрицы с одинаковыми номерами совпадают хотя бы два элемента на одинаковых позициях https://www.cyberforum.ru/ turbo-pascal/ thread525779.html Сформировать из случайных чисел две матрицы 7х7. если в строках с одинаковыми номерами совпадают хотя бы два элемента на одинаковых позициях, занести в элемент вектора true, иначе - False	Turbo Pascal В матрице целых чисел 7х7 поменять местами элементы, расположенные симметрично относительно главной диагонали. https://www.cyberforum.ru/ turbo-pascal/ thread525777.html В матрице целых чисел 7х7 поменять местами элементы, расположенные симметрично относительно главной диагонали.
Turbo Pascal Одномерные массивы. Найти номер первого локального минимума Дан массив размера N. Найти номер его первого локального минимума(локальный минимум- это элемент,который меньше любого из своих соседей). Заранее спасибо.	Turbo Pascal Типизированные файлы,списки. https://www.cyberforum.ru/ turbo-pascal/ thread525733.html 1)Типизированные файлы.Сформировать файл последовательности чисел, в котором каждая к-я компонента определяется по формуле: , где хк - к-я компонента исходного файла. 2)Составить программу, создающую список S и выводящую его после некоторой обработки: S - цепочка целых чисел. Образовать новую цепочку, включающую только положительные элементы из первой цепочки. 3)При выполнении задания...

КонецСвета

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

7966 / 3937 / 2464

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

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

23.03.2012, 01:10

Подсчитать в массиве количество чисел, входящих в заданный пользователем диапазон. - Turbo Pascal - Ответ 2825532

23.03.2012, 01:10. Показов 1870. Ответов 11

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

Ответ

Pascal

uses crt;
const n=20;
var a: array [1..20] of integer;
    i,nd,kd,k: integer;
begin
writeln('Дан массив');
for i:=1 to n do
    begin
    a[i]:=random(199)-99; write(a[i]:4);
    end;
writeln;
repeat
writeln('Задайте диапазон:'); readln(nd,kd);
until (nd<kd) and ((nd>-100) and (kd<100));
for i:=1 to n do
    if (a[i]>=nd) and (a[i]<=kd) then inc(k);
writeln('Количество элементов массива, входящих в диапазон [',nd,',',kd,']=',k);
readln;
end.

Вернуться к обсуждению:
Подсчитать в массиве количество чисел, входящих в заданный пользователем диапазон. Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.03.2012, 01:10

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

Подсчитать в массиве количество чисел, входящих в заданный пользователем диапазон
подсчитать в массиве количество чисел,входящих в заданный пользователем диапозон

Найти в массиве количество элементов, не входящих в заданный диапазон
Как найти в массиве количество элементов, не входящих в заданный диапазон?

Массивы. Найти среднее арифметическое отрицательных чисел и подсчитать количество чисел, входящих в диапазон
Всем привет! Начал изучать C++, сталкнулся вот с такой задачей Произвести следующую обработку 15...

Найти количество чисел, попадающих в заданный диапазон в массиве 16-разрядных чисел со знаком
помогите выполнить. Найти количество чисел, попадающих в заданный диапазон в массиве 16-разрядных...

	23.03.2012, 01:10

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.03.2012, 01:10

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

Посчитать произведение квадратов чисел входящих в заданный диапазон
Приветствую участников форума. Имеется задание, код набран и выполняется, но в процедуры...

[Debug] Подсчитать количество элементов массива, входящих в диапазон
Подсчитать количество чисел, больших 5(10), но меньших 15(10), в промежутке от 1 (поместить в...

Подсчитать количество различных слов, входящих в заданный текст
С клавиатуры вводится текстовая строка. Разработать программу, которая реализует указанные...

Подсчитать количество различных слов, входящих в заданный текст
Мне нужно написать программу, которая подсчитывает количество различных слов, входящих в заданного...

Наверх