Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal двумерные массивы https://www.cyberforum.ru/ pascal/ thread320081.html найти произведение тех элементов массива содержащего натуральныйе числа произведение цифр которых больше заданного к	Pascal записи Требуется удалить из данной переменной Bagaje сведения о багаже, общий вес вещей в котором меньше, чем 10 кг. Использовать вспомогательную переменную F.
Pascal множества Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). В качестве символов могут использоваться только арабские цифры. Удалить из массива слово, содержащее наибольшее количество четных цифр. https://www.cyberforum.ru/ pascal/ thread320074.html	Pascal Процедуры и функции Определить, есть ли в массиве хотя бы одна пара одинаковых соседних элементов. В случае положительного ответа определить номера элементов первой из таких пар. Сделать с помощью процедур или функций. Напишите плизз программу оч прошу. https://www.cyberforum.ru/ pascal/ thread320054.html
Вывести созданный массив на экран, расположив элементы в одну строку через пробелы Pascal 1. Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Посчитать общее количество элементов, кратных 3 и нечетных элементов в получившемся массиве.	Pascal Вычисление последовательностей https://www.cyberforum.ru/ pascal/ thread319987.html . Для данного действительного числа х вычислить по схеме Горнера: Y = x10 + 2x9 + 3x8 + … + 10x + 11.
Pascal Многомермые массивы https://www.cyberforum.ru/ pascal/ thread319983.html Составить программу обнуления гл. диагонали массива А(N,N), если в массиве будет хотябы один нулевой элемент. Вывести новый и старый массив!!	Pascal Нужно напечатать числа в виде таблицы Честно признаюсь что не имею представления как делать такое задание,с задачами легче 1) 0 1 0 2 1 0 3 2 1 0 4 3 2 1 0 2) 20 21 22 23 24
Pascal нужна блок-схема срочно выручайте uses crt; const nmax=20; var a:array of integer; m,i,j,k,imax:byte; x,s:integer; begin clrscr; randomize; repeat write('Размер матрицы до ',nmax,' m='); https://www.cyberforum.ru/ pascal/ thread319830.html	Pascal Маленько намудрил, пoмогите доделать... Задание у меня такое • создания динамического линейного списка, выбирая числа из текстового файла; • вывода динамического линейного списка; • обработка динамического списка по алгоритму. Описать процедуру, которая вставляет: 2.4 в непустой список L, элементы которого упорядочены по неубыванию (т.е. по возрастанию или равные), новый элемент Е так, чтобы сохранилась упорядоченность; Описать... https://www.cyberforum.ru/ pascal/ thread319816.html
Программы на Паскале Pascal Помогите решить несколько задач: 1. Составить блок-схему алгоритма и программу для вычисления таблицы значений функции y=xx+3cos(в квадрате)2x на отрезке , если X на этом отрезке изменяется с шагом 0.2. Найти сумму, произведение, количество, среднее арифметическое и среднее геометриче¬ское значений функции. 2. Составить программу, которая вычисляет сумму целых по¬следовательных чётных и сумму...	Pascal Инструкция пользователя среды паскаль https://www.cyberforum.ru/ pascal/ thread319773.html В курсовой сказано нужно "Инструкция пользователя" где её достать? Добавлено через 3 часа 9 минут окей её нашёл а вот такая штука... Текстовый пример для отладки программы - её нигде в интернете нету( это как в делается? в Паскале ABC или скул пак. Добавлено через 6 часов 6 минут Отладка - это процесс поиска и исправления ошибок в программе, препятствующих корректной работе программы....

Ev[G]eN

Mobile Software Engineer

5381 / 1585 / 956

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

Сообщений: 3,214

15.06.2011, 16:07

Вычислить число положительных чисел, меньших числа А - Pascal - Ответ 1762117

15.06.2011, 16:07. Показов 1019. Ответов 3

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

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

Решение

все в 1 процедуре

Pascal

type
 TArr = array[1..100] of integer;
var
 arr: TArr;
 
procedure Polozh(arr: TArr);
var
 i, n, a, cnt: integer;
begin
 cnt:=0;
 readln(n, a);
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
     if (arr[i] > 0) and (arr[i] < a) then
      inc(cnt);
   end;
 writeln;
 writeln('Число положительных чисел, меньших числа А: ', cnt);
end;
 
begin
 Polozh(arr);
end.

Вернуться к обсуждению:
Вычислить число положительных чисел, меньших числа А Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.06.2011, 16:07

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

Найти среднее арифметическое число всех целых положительных чисел меньших 47
1)Найти среднее арифметическое число всех целых положительных чисел меньших 47. 2)Складіть...

Вычислить сумму квадратов всех целых чисел, меньших заданного числа
Здравствуйте. Помогите решить задачи в Паскаль. Надо ввести с клавиатуры целое число, если число...

Вычислить сумму квадратов всех натуральных чисел, меньших заданного числа А
Здравствуйте. Помогите решить задачу в Паскаль. Надо вычислить сумму квадратов всех натуральных...

В одномерном массиве из 10 чисел есть положительные и отрицательные числа. Вычислить сумму положительных чисел.
Помогите плз.

	15.06.2011, 16:07

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.06.2011, 16:07

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

Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3
Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3.

В одномерном массиве вычислить максимальное число подряд идущих положительных чисел
1). В одномерном массиве вычислить максимальное число подряд идущих положительных чисел, не...

Найти сумму целых положительных чисел, кратных 4 и меньших 50
Найти сумму целых положительных чисел, кратных 4 и меньших 50

Найти сумму целых положительных нечетных чисел меньших 50
Найти сумму целых положительных нечетных чисел меньших 50

Наверх