|
|
Другие темы раздела | |||||||||||||||||
Pascal Определить среднее арифметическое положительных чисел вне минимального и максимального значений массива
https://www.cyberforum.ru/ pascal/ thread445727.html {Определить среднее арифметическое положительных чисел вне минимального и максимального значений массива т.е числа между ними не учитывать} uses crt; const n=10; var a:array of integer; smax,smin,min,max,i:integer; rez,sum,sum1,sred:real; begin writeln('Ïîèñê ìèíèìàëüíîãî è ìàêñèìàëüíîãî ýëåìåíòà ìàññèâà'); writeln('Ââåäèòå â îäíîé ñòðîêå ýëåìåíòû ìàññèâà ',n,' öåëûõ ÷èñåë:'); |
Pascal Составить программу изменения местами строк и колонок Задан двумерный целочисленный массив А из N строк и N столбцов (1<=N<=50). Составить программу изменения местами строк и колонок для получения массива с элементамимглавной диагонали, расположенных в порядке возрастания. Например для n=3 и массива 123 __________________________789 __________________________456 выводится 123 ________________________________________456... | ||||||||||||||||
Pascal Составить программу вывода всех перемещений элементов множества. Задано множество {1,2,...,n}. Составить программу вывода всех перемещений элементов множества. Например: для N =3 получаем {3,1,2},{2,3,1},{2,1,3},{3,2,1},{1,3,2},{1,2,3} https://www.cyberforum.ru/ pascal/ thread444942.html | Pascal Тема: МАССИВЫ (ДВУМЕРНЫЕ) Каждое из N предприятий города выпускает 5 наименований продукции. Известен объем выпуска продукции каждого наименования каждым предприятием и стоимость единицы продукции. Для каждого предприятия определить его долю стоимости производимой продукции каждого типа в процентах. Буду признательна за какую либо помощь. https://www.cyberforum.ru/ pascal/ thread444824.html | ||||||||||||||||
Проверка на транзитивность бинарного отношения. Правильно ли условие? Pascal Проверка на транзитивность бинарного отношения. Получена матрица А*А. Далее выполняется условие проверки матрицы на транзитивность. Правильно ли оно? status := True; for i := 1 to size do for j := 1 to size do for k := 1 to size do if (tr <> 1) and (tr <> 1) and (tr <> 1) then status := False; |
Pascal Расшифровка "Афинная система подстановок". Есть вот почти готовая программа , которая умеет шифровать и почти расшифровывать. Всё вроде как нужно написано , формулы брал с википедии. Но почему-то не правильно расшифровует.. const N=31; A=9; B=13; var i,j,s: integer; alf,alf1,otext,shifr: string; mas: array of integer; begin alf:='абвгдежзиклмнопрстуфхцчшщъыьэюя'; alf1:='АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; https://www.cyberforum.ru/ pascal/ thread444510.html | ||||||||||||||||
Pascal Деревянный алгоритм решения задачи коммивояжёра
https://www.cyberforum.ru/ pascal/ thread444407.html Нужно составить программу в паскале, где следует заполнить двумерный(зеркальный по диагонали) массив рандомом или вводом с клавиатуры, а в подпрограмме найти эйлеров цикл и вывести его последовательность пунктов обхода. В общем пройти каждый пункт 1 раз и вернуться в начало Написал код основной программы для заполнения матрицы: Program D; var n,i,j: integer; a: array of integer; begin... |
Pascal Пусть задан список студентов. Элемент списка содержит: фамилия, имя, № курса, № группы, оценки по пяти экзаменах последней сессии. Пусть, фамилии студ Пусть задан список студентов. Элемент списка содержит: фамилия, имя, № курса, № группы, оценки по пяти экзаменах последней сессии. Пусть, фамилии студентов в списке упорядочены по алфавиту, удалите подсписок студентов, начиная с фамилии F1 и заканчивая фамилией F2 включительно ето задача на односторонние списки | ||||||||||||||||
Pascal Работа с записями. Образовать список групп и студентов-одногруппников. Добрый день! Требуется помощь с доработкой программы. Было задание: Описать переменную "студент", содержащую: имя, фамилию, отчество студента, название учебного заведения, номер группы. Создать список студентов (N>10). Определить фамилии студентов, учащихся в одной и той же группе, в одном и том же заведении. Моя программа: По согласованию с автором, код временно спрятан - до момента,... https://www.cyberforum.ru/ pascal/ thread444362.html | Pascal Определить все четные элементы массива и вывести их на экран массив задан 5 элементами с клавиатуры. определить все четные элементы и вывести их на экран.если таких нет то вывести "таких элементов нет" https://www.cyberforum.ru/ pascal/ thread444116.html | ||||||||||||||||
Pascal Разработать программу с реализацией динамических структур Помогите разработать программу с реализацией динамических структур с блок-схемой. 5. Создать файл, содержащий сведения о телефонах абонентов. Каждая запись содержит поля: фамилия, имя, отчество абонента, год установки телефона, номер телефона. На печать и в отдельный файл вывести: по фамилии абонента выводится номер телефона; определяется количество установленных телефонов с ХХХХ года. Номер..
Лучшие ответы (1)
Наверх
|