|
|
Другие темы раздела | |
PascalABC.NET Определите, какое количество элементов последовательности равны её наибольшему элементу Задача на рекурсию. Количество элементов, равных максимуму. Дана последовательность натуральных чисел (одно число в строке), завершающаяся числом 0. Определите, какое количество элементов этой последовательности, равны ее наибольшему элементу. В этой задаче нельзя использовать глобальные переменные. Функция получает данные, считывая их с клавиатуры, а не получая их в виде параметра. В... https://www.cyberforum.ru/ pascalabc-net/ thread1941634.html |
Подсчитать количество четных чисел в массиве PascalABC.NET Дан массив натуральных чисел,заполненный с помощью датчика случайных чисел.Подсчитать количество четных чисел. |
PascalABC.NET Найти наименьшее натуральное число , сумма цифр которого равна N
https://www.cyberforum.ru/ pascalabc-net/ thread1941351.html Дано натуральное число 1<N<1000. Написать программу , определяющую наименьшее натуральное число , произведение цифр которого равно N. Если такого числа нет , результат равен 0. Через операторы For, If, Repeat, желательно самую простую, только начали проходить паскаль. |
PascalABC.NET Скорость при одномерном движении на Pascal
https://www.cyberforum.ru/ pascalabc-net/ thread1941237.html Материальная точка движется прямолинейно вдоль оси OX со скоростью Vx(t). Построить график зависимости x=x(t) для промежутка времени , если в момент времени t1 точка имела координату х1. Vx(t)=2+20/(t^2+4); t1=2; x1=2. |
Поиск собственных значений на основе LU разложения матриц на Pascal PascalABC.NET Поиск собственных значений на основе LU разложения матриц на Pascal. Само разложение матриц LU написал, все прекрасно работает, а вот как поиск собственных значений не знаю как осуществить. |
PascalABC.NET Встречено '.', а ожидалось ';' Привет, форум. Не могу найти ошибку, поможете? function Chr(arg : integer) : char; function Ord(arg : char) : integer; function Encrypt(arg : char; key : integer) : char; begin arg:=Chr(Ord(arg)+key); end; https://www.cyberforum.ru/ pascalabc-net/ thread1941220.html |
PascalABC.NET Записать выражение Народ объясните как это записать https://www.cyberforum.ru/ pascalabc-net/ thread1941202.html |
PascalABC.NET Определить время обслуживания посетителя парикмахерской Время обслуживания. Для каждого посетителя парикмахерской (с одним мастером) известны следующие величины: t — момент его прихода и ω — продолжительность его обслуживания. Сколько клиентов обслужит мастер за смену продолжительностью Т? Сколько рабочего времени он потратит на обслуживание? |
PascalABC.NET Проверить, лежит ли заданный на плоскости треугольник в области пересечения заданных кругов
https://www.cyberforum.ru/ pascalabc-net/ thread1941183.html Лежит ли заданный на плоскости треугольник ABC в области пересечения заданных кругов: (x-a1)²+(y-b1)²<= r1² ; (x-a2)²+(y-b2)²<= r2² ; |
PascalABC.NET Задача по комбинаторике
https://www.cyberforum.ru/ pascalabc-net/ thread1941069.html Добрый день, уважаемые форумчане! Решал такую задачу: На день рождения Пете подарили набор карточек с буквами. Теперь Петя с большим интересом составляет из них разные слова. И вот, однажды, составив очередное слово, Петя заинтересовался вопросом: "А сколько различных слов можно составить из тех же карточек, что и данное?". Помогите ему ответить на этот вопрос. У меня получился следующий... |
PascalABC.NET Напечатать наиболее встречающуюся цифру в тексте по коду Пусть дан непустой текст из цифр, за которым следует точка. Напечатайте цифру, наиболее часто встречающуюся в этом тексте (если таких цифр несколько, напечатайте любую из них) Вот код program Tekst_1; const Pusto = ' '; Dlina = 10; Predel = 100; |
PascalABC.NET Небольшое изменение программы Надо немного программу поменять чтобы в окне вывода над результатом была строчка "Наиболее встречающаяся цифра в тексте" begin writeln(ReadlnString('Введите строку:').Where(v -> char.IsDigit(v)). Select(v -> '' + v).DefaultIfEmpty('В строке нет цифр').GroupBy(v -> v). OrderByDescending(g -> g.Count).FirstOrDefault().Key); end. https://www.cyberforum.ru/ pascalabc-net/ thread1940954.html |
0 / 0 / 0
Регистрация: 19.03.2017
Сообщений: 9
|
|
27.03.2017, 15:35 [ТС] | 0 |
Найти багаж, средний вес одной вещи в котором отличается не более чем на 0.3 кг от общего среднего веса вещи - PascalABC.NET - Ответ 1026328327.03.2017, 15:35. Показов 1786. Ответов 4
Метки (Все метки)
Ответ
Нужно написать программу используя файл!
Вернуться к обсуждению: Найти багаж, средний вес одной вещи в котором отличается не более чем на 0.3 кг от общего среднего веса вещи PascalABC.NET
0
|
27.03.2017, 15:35 | |
Готовые ответы и решения:
4
Найдите багаж, средний вес каждой вещи которого, отличается не более чем 0.3 кг от среднего веса вещей всех пассажиров. Структура: Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг от общего среднего веса одной вещи Тип данных запись: Найти багаж, средний вес одной вещи в котором отличается не более, чем на 0,3 кг от общего среднего веса одной вещи Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0,3 кг от общего среднего веса |
27.03.2017, 15:35 | |
27.03.2017, 15:35 | |
Помогаю со студенческими работами здесь
0
Найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего среднего веса одной Найти багаж, вес одной вещи в котором отличается не более, чем на 0.3 кг от общего среднего веса Найти багаж, вес одной вещи в котором отличается не более, чем на 0.3 кг от общего среднего веса Записи: Найти багаж, вес одной вещи в котором отличается не более, чем на 0.3 кг от общего среднего веса Найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг |