|
|
| Другие темы раздела | ||||||||||||||||||
| Turbo Pascal Помощь с задачей "Нули" Прошу помочь с задачей Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц. Входные данные В единственной строке входного файла INPUT.TXT записана последовательность нулей и единиц (без пробелов). Суммарное количество цифр не превышает 100. Выходные данные В единственную строку выходного файла OUTPUT.TXT нужно вывести искомую длину цепочки нулей. ... https://www.cyberforum.ru/ turbo-pascal/ thread787200.html |
Turbo Pasсal. Процедуры-функции. Turbo Pascal Помогите,пожалуйста,начинающему программисту! Даны две матрицы А(3,9) и В(6,6). Вычислить z=c(в квадрате)умножить на(d+e)/(f+1), где с и f – количество положительных элементов матриц А и В, d и е – количество отрицательных элементов в матрицах А и В соответственно. Вычисление количества положительных и отрицательных элементов оформить в виде процедур-функций. | |||||||||||||||||
| Turbo Pascal Определить, является ли введенное число А простым простым называют натуральное число, делящееся только на себя самого и единицу. Нужно определить, является ли введенное число А простым (-10000<а<10000) Если простое, вывести "Yes" иначе "No". помогите пожалуйста, запутался вот что получилось. uses crt; var k,i,a:longint; begin clrscr; repeat https://www.cyberforum.ru/ turbo-pascal/ thread787186.html | Turbo Pascal Процедуры и функции: составить алгоритм вычисления значения функции z = V*a*IbI процедуры и функции (паскаль) ребята помогите плиз составить алгоритм вычисления значения функции z = V * a * IbI (b-по модулю), где а-среднее арифметическое положительных элементов, b-среднее арифметическое отрицательное элементов данной линейнои таблицы Х, содержащий К действительных чисел. Для вычисления среднего арифметического воспользоваться вспомогательным алгоритмом, что в перечне... https://www.cyberforum.ru/ turbo-pascal/ thread787174.html | |||||||||||||||||
|
Шифр Гронсфельд шифрование на Паскале Turbo Pascal Что не правильно? Подскажите пожалуйста? Выводить Error 26: Type Mismatch; program Kriptograf; function Shifr ( Kod, K : string ): string; var i,t,d : integer; begin for i :=1 to length (Kod) do begin d :=ord (Kod); t := (ord(Kod) + (ord (K ) - ord('0'))); if t >= 256 then |
Turbo Pascal Работа с динамической памятью
https://www.cyberforum.ru/ turbo-pascal/ thread787125.html Ввести массив А. В массив В перенести все элементы массива А, имеющие значение больше, чем (min+max)/2, где min- значение минимального элемента массива, а max - значение максимального элемента массива. Массив В отсортировать по убыванию, используя метод сортировки подсчетом. Решение нужно привести СТАТИЧЕСКИ и ДИНАМИЧЕСКИ. Хорошая знакомая просит помощи, время поджимает! Прошу решение... | |||||||||||||||||
|
Turbo Pascal Подсчетать кол-во числа равным к двум, трем, и которые деляться на 2 и 3
https://www.cyberforum.ru/ turbo-pascal/ thread787117.html Пользователь вводит n-раз число, при этом n-раз неизвестно. Выход из цыкла при нуле. Подсчетать кол-во числа равным к двум, трем, и которые деляться на 2 и 3. Можете написать только подсчет кол-ва чисел равно к двум и трем, и те которые делятся на 2 и 3. Остальное знаю как. и через какой цыкл писать лучше прогу? while или repeat? Добавлено через 36 минут Пользователь вводит n-раз число,... |
Удаление записи из файла по номеру Turbo Pascal нужно осуществить процедуру удаление с файла ========================================= program baza; uses crt; const kolzap=2;{kol-vo zapicey dlu vvoda} type FIO=string; Link=^spisok; spisok=record | |||||||||||||||||
| Turbo Pascal Вычислить значение функции (Функция) на интервале [0; 1] с шагом 0.2 Вычислить значение функции (Функция) на интервале с шагом 0.2. Значение e^2x вычислить как сумму ряда(сумма ряда) , оформленную pi/n и вычисленную для n*=*10. Проверить вычисление функции y, используя e^2x как стандартную. https://www.cyberforum.ru/ turbo-pascal/ thread787096.html |
Turbo Pascal Получить все числа Армстронга, состоящие из двух, трех и четырех цифр
https://www.cyberforum.ru/ turbo-pascal/ thread787067.html Натуральное число из n цифр является числом Армстронга, • если сумма его цифр, возведенных в n-ю степень, равна самому числу (как, например, 153= 13+53+33). Получить все числа Армстронга, состоящие из двух, трех и четырех цифр.Правила форума п. 5.5: Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а также дублировать тему в одном разделе. | |||||||||||||||||
|
Turbo Pascal Подсчитать число точек самопересечения ломаной На плоскости дана ломаная, каждое из звеньев которой перпендикулярно биссектрисе одного из углов, образованных координатными осями. Никакая вершина ломаной не лежит на звене(Кроме, возможно, того звена, концом которого она является) ломаной. В частности, никакие две вершины ломаной не совпадают. Ваша задача — подсчитать число точек самопересечения ломаной. Формат входных данных В первой... |
Turbo Pascal Талоны на прием к врачу. Цикл с параметром
В поликлинике ведут прием хирург, невропатолог и терапевт. В регистратуре в этот день брали талоны 12 человек. Опр
Наверх
| |||||||||||||||||
