Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
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
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
17.03.2012, 10:07 0

Отсортировать по убыванию элементы массива с нечетными номерами - Turbo Pascal - Ответ 2803721

17.03.2012, 10:07. Показов 1200. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено holt как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
i:=1;
while i<n do
 begin
  k:=i;{будем выбирать элементы с нечетными номерами больше данного}
  j:=i+2;
  while j<=n do
   begin
    if(a[j]>a[k]) then k:=j;{нашли}
    j:=j+2;
   end;
  x:=a[i];
  a[i]:=a[k];{и обменивать их}
  a[k]:=x;
  i:=i+2;
 end;
writeln('Сортировка элементов с нечетными номерами:');
for i:=1 to n do
write(a[i]:4);
readln
end.


Вернуться к обсуждению:
Отсортировать по убыванию элементы массива с нечетными номерами Turbo Pascal
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.03.2012, 10:07
Готовые ответы и решения:

Отсортировать по убыванию элементы массива с нечетными номерами методом обмена
РЕБЯТ ПОМОГИТЕ!!!!!! Дан целочисленный массив A(n) с элементами, сгенерированными случайными...

Выбросить из массива А все элементы с четными номерами, а из массива В - с нечетными номерами
Выбросить из массива А все элементы с четными номерами, а из массива В - с нечетными номерами....

В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1.
В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а...

Удалить из массива все элементы с нечетными номерами
а можно решить еще такую задачу на одномерный массив? дан целочисленный массив размера N (&gt;2)...

1
17.03.2012, 10:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.03.2012, 10:07
Помогаю со студенческими работами здесь

Все элементы массива с нечетными номерами заменить на их квадратный корень
Помогите с решением! Задача на одномерный массив. Массивы не проходили, изучали сами, тоесть...

Все элементы массива с нечетными номерами удвоить, с четными - уменьшить на 1
Дан массив из 15 элементов. Все элементы с нечетными номерами удвоить, с четными - уменьшить на 1.

Заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1
1. В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а...

Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными
Где ошибка program ffwrewre4; uses crt; const n=20; var a:array of integer; i,m:integer;...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru