Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC текстовый файл Дано файл, нужно узнать количество слов в каждом рядку Помогите пожалуйста https://www.cyberforum.ru/ pascalabc/ thread394386.html	Pascal ABC Вычислить минимальный по модулю элемент массива В одномерном массиве, состоящим из n целочисленных элементов , вычислить: 1) Минимальный по модулю элемент массива 2)Сумму модулей элементов массива, расположенных после первого элемента, равного нулю. Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях.
Pascal ABC Двумерные массивы и подпрограммы https://www.cyberforum.ru/ pascalabc/ thread394357.html 1. Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы, заданной матрицы, расположить их в соответствии с ростом характеристик(Оформить в виде процедуры). 2. Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент(Оформить в виде функции).	Pascal ABC Сформировать второй массив, разместив в нем элементы первого со сдвигом на 2 позиции вправо https://www.cyberforum.ru/ pascalabc/ thread394351.html Задача: Сформировать второй массив, разместив в нем элементы первого массива со сдвигом на 2 позиции вправо.
Рамка из спецсимволов Pascal ABC Нужно с помощью спецсимволов нарисовать рамку и сделать так, чтобы ее края расширялись или сужались.	Pascal ABC Найти произведение элементов массива с нечетными номерами Составить* программу для вычисления Y=(U+T)*(S+2) S - произведение элементов массива с нечетными номерами; T - наибольший элемент массива; U - сумма отрицательных элементов массива. https://www.cyberforum.ru/ pascalabc/ thread394306.html
Pascal ABC строки Перед каждой цифрой вставить символ «№» https://www.cyberforum.ru/ pascalabc/ thread394300.html	Найти произведение элементов массива, расположенных между первым и вторым нулевыми элементами Pascal ABC в одномерном массиве , состоящем из n целочисленных элементов , вычислить : произведение элементов массива , расположенных между первым и вторым нулевыми элементами. help plz.
Pascal ABC Определить, через сколько минут напряжение упадет до уровня 5в При включении реостата в электрическую цепь напряжение плавно понижается на 15% от текущего каждую минуту. Через сколько минут напряжение упадет до уровня 5в?. Распечатать таблицу в следующем виде: 0 мин – 220 В 1 мин - … В ………………. … мин - …В. Значения напряжений выводить с точностью 2 знака после запятой. https://www.cyberforum.ru/ pascalabc/ thread394278.html	Pascal ABC Комбинированный тип данных (записи), записи с вариантами Опишите, используя структуру данных запись, таблицу некоторых дат и событий русской истории. Составьте программу, выдающую список событий, относящихся только к XIX в. https://www.cyberforum.ru/ pascalabc/ thread394264.html
Вычислите значение отношения Pascal ABC Вычислите значение отношения =.	Pascal ABC Найти количество символов в самой длинной строке https://www.cyberforum.ru/ pascalabc/ thread394255.html Заданы М строк символов, которые вводятся с клавиатуры. Найти количество символов в самой длинной строке. Выровнять строки по самой длинной строке, поставив перед каждой строкой соответствующее количество звёздочек. Добавлено через 40 секунд Помогите кто-нибудь! Не могу решить!

Nikoys

26 / 26 / 17

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

Сообщений: 90

28.11.2011, 23:52

Определить количество чисел, которые меньше заданного числа N - Pascal ABC - Ответ 2224783

28.11.2011, 23:52. Показов 1812. Ответов 1

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

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

Решение

Нуу, вообще, топик для PascalABC, но ладно. №1 я не понял, что имелось в виду. Так как я лично понял, что A_1=2, A_n=A_1+n-1? Тогда получится, что:

Pascal

program Shag;
var A,i:integer;
y:real;
begin
A:=2;
for i:=1 to 15 do
 begin
y:=A/i;
write(y:3:3,' ');
A:=A+1;
 end;
end.

№2. Вы вручную собираетесь вводить все эти числа или вывод в файл?) Так как первое для меня выглядит довольно стремно) Но что ж.

Pascal

program Chis;
var N:real;
i,k:integer;
A:array[0..16] of real;
begin
writeln('Vvedite granichnoye chislo-->');
readln(N);
k:=0;
for i:=1 to 15 do
 begin
writeln('Vvedite chislo-->');
readln(A[i]);
if A[i]<N then k:=k+1;
 end;
writeln('Kolichestvo-->',k);
end.

Добавлено через 1 минуту
И да, я так понимаю, у вас это в школе или где ещё базы Паскаля пока что? Тогда массивы будут подозрительны. Замените на любую переменную l, присваивайте ей каждый раз число и смотрите, больше ли оно. Т.е.:

Pascal

for i:=1 to 15 do
 begin
writeln('Vvedite chislo-->');
readln(l);
if l<N then k:=k+1;
 end;

Вернуться к обсуждению:
Определить количество чисел, которые меньше заданного числа N Pascal ABC

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

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

Блог

28.11.2011, 23:52

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

Определить количество чисел, которые меньше заданного числа N
Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N.

Определить количество чисел, которые меньше заданного числа N
№1. Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N. program...

Определить количество чисел, которые меньше заданного числа N
1 Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N. 2 Вычислить ...

Определить количество элементов, которые меньше заданного значения
2.10. В заданном массиве A(N) определите количество элементов, которые меньше заданного значения.

	28.11.2011, 23:52

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

28.11.2011, 23:52

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

В массиве чисел найти сумму элементов,которые меньше заданного числа D.
приветик всем=))) я здесь новенькая=)))немного слышала что здесь обитают умные людии!!!! ПОМОГИТЕ...

Найти количество чисел в массиве, меньше заданного числа y.
Найти количество чисел в массиве, меньше заданного числа y. Если таких чисел нет, то вывести...

Последовательно вводятся 10 чисел. Найти количество чисел, которые меньше числа 2
Нужна помощь последовательно вводятся 10 чисел. Найти количество чисел, которые меньше числа 2

Найти количество чисел последовательности, которые меньше последнего введенного числа
С клавиатуры вводится натуральное число N. Затем вводится последовательность из N двухзначных...

Новые блоги и статьи
Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .	Объекты и их имена hw_wired 28.01.2025 Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .	Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .
Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .	[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .

Наверх