|
|
Другие темы раздела | |
Turbo Pascal Обрезать матрицу
https://www.cyberforum.ru/ turbo-pascal/ thread520677.html Программа формулируется так: По матрице A=aij размером 10Х10 поставить матрицу B= bij того же размера, где bij определяется следующим образом. Через aij проведем в А диагонали, параллельные главной и побочной диагоналям; bij есть уже обрезанная матрица а этими прямыми которые параллельны диагоналям. НАчало я составил: uses crt; const n=100; var a:array of integer;ll,s,p,i,j,x,y,b:integer;... |
Нарисовать божью коровку Turbo Pascal Нарисовать букашку) |
Turbo Pascal Неправильно выводит четность слов uses crt; var s,sl,ss: string; i,j,k: integer; Begin write('s='); readln(s); s:=s+' '; sl:=''; for i:=1 to length(s) do if s<>' ' then sl:=sl+s else if length(sl)<>0 then begin https://www.cyberforum.ru/ turbo-pascal/ thread520674.html | Turbo Pascal Перечислить все натуральные числа, не превосходящие заданного N Перечислить все натуральные числа, не превосходящие заданного N, в двоичном представлении которых номера ненулевых разрядов образуют арифметическую прогрессию Оч надо.. Добавлено через 24 минуты и можно по решение без заморочек, простое, чтоб понятно было)) https://www.cyberforum.ru/ turbo-pascal/ thread520664.html |
обменная сортровка Turbo Pascal Задан массив AX (N). Добавить массив С(К). Выполнить обменную сортировку. В полученном массиве положительные элементы уменьшите вдвое, а отрицательные замените на значения их индексов. |
Turbo Pascal Ввести последовательность слов в список однонаправленный и вывести в алфавитном порядке все слова последовательности Дана непустая последовательность слов в каждом содержится от 1 до 6 латинских букв, соседние слова разделены запятой за последним точка. Требуется ввести эту последовательность слов в список однонаправленный и вывести в алфавитном порядке все слова последовательности Добавлено через 18 часов 10 минут помогииите пожалуйста) https://www.cyberforum.ru/ turbo-pascal/ thread520562.html |
Turbo Pascal написать программу для замены в матрице отрицательных элементов на главной диагонали нулями.
https://www.cyberforum.ru/ turbo-pascal/ thread520555.html Используя Procedure, написать программу для замены в матрице отрицательных элементов на главной диагонали нулями. |
Turbo Pascal Типизированные файлы и текстовые документы! Исключить из файла,состоящего из данных по сдаче экзаменов абитуриентами, у каждого абитуриента есть свой код и оценки по трем вступительным экзаменам, элементы, относящиеся к абитуриентам, которые набрали меньше 12 баллов, использовать прямой доступ к элементам файла. Вывести на экран измененный файл и новый с именем ICKL, с данными абитуриентов, набравших меньше 12 баллов. |
Turbo Pascal Сформировать файл из вещественных чисел, которые должны быть введены с клавиатуры Составить программы, с помощью которых: - сформировать файл из вещественных чисел, которые должны быть введены с клавиатуры; - исключить из файла компоненты, которые меньше предшествующей компоненты. https://www.cyberforum.ru/ turbo-pascal/ thread520550.html |
Turbo Pascal Найти периметр фигуры, заданной при помощи N точек из файла
https://www.cyberforum.ru/ turbo-pascal/ thread520537.html Составить программу, которая находит периметр фигуры, заданной при помощи N точек (координатами на плоскости). Координаты вершин многоугольника прочесть из текстового файла. |
Ввести 2 дроби, перемножить их, вывести несократимую дробь Turbo Pascal надо ввести 2 дроби, перемножить их, вывести несократимую дробь. проблема такая, получается рез-т 0/0.. заранее спасибо.. program proc; uses crt; var m1, n1, m2, n2, a, a1, b, b1, c, c1, d1, d, f, k, k1: integer; procedure NOD (x, y:integer; var z: integer); |
Turbo Pascal Определить k-количество различных элементов массива определить k-количество различных элементов массива А(повторяющиеся элементы считать 1 раз) https://www.cyberforum.ru/ turbo-pascal/ thread520516.html |
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
||||||
17.03.2012, 10:07 | 0 | |||||
Отсортировать по убыванию элементы массива с нечетными номерами - Turbo Pascal - Ответ 280372117.03.2012, 10:07. Показов 1192. Ответов 1
Метки (Все метки)
Сообщение было отмечено holt как решение
Решение
Вернуться к обсуждению: Отсортировать по убыванию элементы массива с нечетными номерами Turbo Pascal
2
|
17.03.2012, 10:07 | |
Готовые ответы и решения:
1
Отсортировать по убыванию элементы массива с нечетными номерами методом обмена Выбросить из массива А все элементы с четными номерами, а из массива В - с нечетными номерами В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1. Удалить из массива все элементы с нечетными номерами |
17.03.2012, 10:07 | |
17.03.2012, 10:07 | |
Помогаю со студенческими работами здесь
0
Все элементы массива с нечетными номерами заменить на их квадратный корень Все элементы массива с нечетными номерами удвоить, с четными - уменьшить на 1 Заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1 Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными |