|
|
| Другие темы раздела | |
|
PascalABC.NET Проверить, является ли заданное число совершенным
https://www.cyberforum.ru/ pascalabc-net/ thread1906863.html Натуральное число называется совершенным, если оно равно сумме всех своих делителей, включая единицу и исключая само себя. Вводится натуральное число. Проверьте его на совершенство и выдайте ответ «Да» или «Нет». Подсчитайте количество операций в вашем алгоритме и выпишите его в виде функции от параметра n, где n – вводимое число. |
Количество чисел в последовательности, меняющих знак PascalABC.NET Вводится последовательность целых, не равных нулю чисел. Ноль – признак конца ввода. Определите, сколько раз в этой последовательности меняется знак. Например, в последовательности «-4, 6, 5, 6, -9, -7, 5, 0» знак меняется три раза. Заранее спасибо. |
|
PascalABC.NET Поменять местами максимальный и минимальный элементы главной диагонали
https://www.cyberforum.ru/ pascalabc-net/ thread1906813.html Дана матрица А размера n*n, где n=11. Элементы матрицы вычисляются по формуле a(i,j)= i*j*sin(0.5*i*j). Значения элементов округлять до двух знаков после запятой. Поменять местами максимальный и минимальный элементы главной диагонали.Вывести на экран исходную и преобразованную матрицы. |
PascalABC.NET Требуется определить, на протяжении какого времени в течение суток работают все кассы одновременно
https://www.cyberforum.ru/ pascalabc-net/ thread1906641.html Помогите решить задачу! снизу привел свой пример, в пробниках работает, но проходит не все тесты, может кто сможет подправить? На одном из московских вокзалов билеты продают N касс. Каждая касса работает без перерыва определенный промежуток времени по фиксированному расписанию (одному и тому же каждый день). Требуется определить, на протяжении какого времени в течение суток работают все кассы... |
|
Почему паскаль не работает, после того как пишу ничего не происходит? Может программа неправильная? PascalABC.NET Program abc; Var a:Smallint; N:Integer; Begin N:=0; Read(a); While (a<>0) do Begin Inc(N); If ((N mod 5)=0) Then if a=5 |
PascalABC.NET Функции: вычисление длины отрезка по координатам и площади треугольника по трем сторонам
https://www.cyberforum.ru/ pascalabc-net/ thread1906009.html Написать функцию длины отрезка по координатам и функцию площади треугольника по з сторонам. Найти площадь треугольника по введённым координатам вершин. |
| PascalABC.NET Функции площадей Написать функцию площади круга и функцию площади кольца и найти для введенных пар радиусов: 1 кольцо (R1, R2) и 2 кольцо (R3, R4), номер кольца с большей площадью. https://www.cyberforum.ru/ pascalabc-net/ thread1906008.html |
PascalABC.NET Как подключить модуль graph program UseGraphical; Uses Graph; Var GraphDriver, GraphMode: Integer; Begin GraphDriver := 0; InitGraph(GraphDriver, GraphMode, ''); End. |
|
PascalABC.NET Возвести в степень число, если число больше нуля, то да
https://www.cyberforum.ru/ pascalabc-net/ thread1904969.html Работа в Паскаль Надо возвести в степень число, если число больше нуля, то да |
PascalABC.NET Функция обратного числа Дано натуральное N. Написать функцию обратного числа (123456 → 654321) https://www.cyberforum.ru/ pascalabc-net/ thread1904894.html |
|
Калькулятор ОПЗ PascalABC.NET Написать программу формирования Обратной Польской Записи и расчета полученного выражения Заранее спасибо! |
PascalABC.NET Паскаль, записи
https://www.cyberforum.ru/ pascalabc-net/ thread1904713.html Не пашет. Прошу подсказать, из-за чего не работает прога. задачка звучит так:создать массив записей, содержащих поля: наименование товара(name), цена(price), количество(number), стоимость(x); вывести товар с наибольшей ценой. type shop=record name:string ; price:real; number:integer; x:real; end; var |
|
0 / 0 / 0
Регистрация: 26.09.2016
Сообщений: 40
|
|
| 0 | |
Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a) - PascalABC.NET - Ответ 1004184325.01.2017, 08:53. Показов 2282. Ответов 1
Метки (Все метки)
где min(x,x1) подпрограмма Добавлено через 6 минут Решить процедурой и функцией Вернуться к обсуждению: Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a) PascalABC.NET
0
|
|
|
|
| 25.01.2017, 08:53 | |
|
Готовые ответы и решения:
1
Найти x=min (min (b, c), max (a, d)-a) Вычислить: (MIN(Ai+Bi)+MAX(Ai-Bi)/(MIN(Ai)+MAX(Bi)
|
| 25.01.2017, 08:53 | |
| 25.01.2017, 08:53 | |
|
Помогаю со студенческими работами здесь
0
Получить t=min(k+n,n/k), v=min(3kn, k+2n2), g=min (t-v, t/v)...
Найти max{min(a,b), min(c,d)} |