Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > 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 секунд Помогите кто-нибудь! Не могу решить!
26 / 26 / 17
Регистрация: 29.12.2010
Сообщений: 90
28.11.2011, 23:52 0

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

28.11.2011, 23:52. Показов 1724. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Нуу, вообще, топик для PascalABC, но ладно. №1 я не понял, что имелось в виду. Так как я лично понял, что A_1=2, A_n=A_1+n-1? Тогда получится, что:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12

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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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
1
2
3
4
5
6

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


Вернуться к обсуждению:
Определить количество чисел, которые меньше заданного числа N Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 28.11.2011, 23:52
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 28.11.2011, 23:52
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru