|
|
| Другие темы раздела | |
|
Turbo Pascal Множества. Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз
https://www.cyberforum.ru/ turbo-pascal/ thread1339837.html Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз. Текст считать из текстового файла. |
Turbo Pascal Определить множество цифр, не входящих в запись ни одного из введенных целых чисел Написать программу, которая определяет мн-во цифр, не входящих в запись ни одного из введенных целых чисел. Числа вводить до первого нуля. |
| Turbo Pascal Отсортировать в одномерном массиве целочисленных элементов только элементы, имеющие четное значение Отсортировать в одномерном массиве целочисленных элементов только элементы, имеющие четное значение, по убыванию. Для сортировки создать вспомогательный массив, в котором будут храниться индексы четных элементов первого массива. Сортируемый массив заполнять случайным образом. Сортировать массив методом вставок. Для стандартных действий с массивами использовать процедуры. https://www.cyberforum.ru/ turbo-pascal/ thread1339834.html |
Turbo Pascal Сформировать массив, состоящий из минимальных элементов строк матрицы
https://www.cyberforum.ru/ turbo-pascal/ thread1339807.html Дана матрица А(4,4) сформировать массив B(4),состоящий из минимальных элементов строк.Использовать процедуру для вычесление минимума. |
|
Turbo Pascal Если в массиве все элементы больше 10 то найти номер последнего максимального элемента Ввести массив А(n). Если в массиве все элементы больше 10 то найти номер последнего максимального элемента, иначе удвоить все элементы меньшие 10 |
Turbo Pascal Вычислить сумму
https://www.cyberforum.ru/ turbo-pascal/ thread1339755.html Вычислить сумму:1+1/2+1/3-1/4-1/5+1/6/+1/7-... Вычисления продолжать пока очередное собираемое не станет <10^-4. Возникла проблема с чередованием знаков,по условия получается что идут два +,затем два минуса и тд А как это показать я не знаю. . . Кусок который у меня получился: S:real; I,f:integer; Begin F:=1; S:=1; I:=2; |
|
Turbo Pascal Ввести на экран количество четных чисел, начиная с числа N и до числа M
https://www.cyberforum.ru/ turbo-pascal/ thread1339709.html Ввести на экран количество четных чисел, начиная с числа N и до числа M. Числа N и M вводятся с клавиатуры. Через Оператор For, функции и процедуры. |
Turbo Pascal Шифр Виженера (готовое решение) Решил выложить свои труды, может кому и пригодятся... А то нас в МАИ препод просто душил этими лабами... Шифр Виженера. Код программы. program Shifr_Vizhenera; uses crt; const n=32; |
|
Turbo Pascal Алгоритм шифрования «простой подстановкой» (готовое решение)
https://www.cyberforum.ru/ turbo-pascal/ thread1339657.html Решил выложить свои труды, может кому и пригодятся... А то нас в МАИ препод просто душил этими лабами... Простая подстановка. Код программы. program ProstayaPodstanovka ; uses crt; const n=64; |
Turbo Pascal Алгоритм шифрования Цезаря и его взлом (готовое решение) Решил выложить свои труды, может кому и пригодятся... А то нас в МАИ препод просто душил этими лабами... Шифр Цезаря. Код программы. program ShifrCesarya; uses crt; var https://www.cyberforum.ru/ turbo-pascal/ thread1339654.html |
|
Вывод слова с одинаковыми буквами Turbo Pascal Как в программе вместо удаления повторяющихся букв в слове и вывода всей строки с преобразованием, выполнить просто вывод слова с повторяющимися буквами uses crt; var s:string; i,j:byte; begin clrscr; writeln('Введите строку'); readln(s); i:=1; while i<length(s) do |
Turbo Pascal Составить схему алгоритма и паскаль - программу вычисления таблицы значений функции Помогите пожалуйста) https://www.cyberforum.ru/ turbo-pascal/ thread1339642.html |
|
0 / 0 / 0
Регистрация: 11.12.2014
Сообщений: 11
|
|
| 0 | |
Найти сумму элементов массива, упорядочить его по убыванию - Turbo Pascal - Ответ 703022124.12.2014, 11:54. Показов 2210. Ответов 1
Метки (Все метки)
Найти сумму всех элементов массива a[n]; sum Сформировать массив b[i]=a[i]/sum Отсортировать массив b[i] по убыванию Вывести на экран массив b[n] Вернуться к обсуждению: Найти сумму элементов массива, упорядочить его по убыванию Turbo Pascal
0
|
|
|
|
| 24.12.2014, 11:54 | |
|
Готовые ответы и решения:
1
Сформировать массив из элементов массива, которые удовлетворяют условию, и упорядочить его по убыванию.
|
| 24.12.2014, 11:54 | |
| 24.12.2014, 11:54 | |
|
Помогаю со студенческими работами здесь
0
Упорядочить массив по убыванию и разделить сумму всех элементов на минимальный элемент массива
Упорядочить массив по убыванию и найти сумму элементов, стоящих на нечётных местах Найти минимальный элемент массива и упорядочить все элементы левее его по убыванию, а правее – по возрастанию |