Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Дано натуральное число. Переставить третью и четвертую цифры числа Дано натуральное число n. Переставить третью и четвертую цифры числа n. https://www.cyberforum.ru/ turbo-pascal/ thread570066.html	Turbo Pascal Массивы, найти произведение элементов между максимальным и минимальным Нужно посчитать правильно произведение элементов расположенных между максимальным и минимальным элементами!!! Оно там как то считает но не правильно!!! Там в скобке помечено где надо доработать! program pr3; uses crt; const n=5; var m:arrayof integer; i,j,k,min,max:integer; begin clrscr;
Turbo Pascal Кодировка сообщения по ключу https://www.cyberforum.ru/ turbo-pascal/ thread570063.html Нужна помощь в решении задачи Задача: Произвести кодировку и раскодировку сообщения по ключу, ключ (это слово примерно букв 5-6). Кодировка осуществляется таким образом: Данное сообщения записывается в матрицу количество столбцов в которой равно количеству букв в ключе. После этого каждому столбцу присваивается цифра в алфавитном порядке, зависит от ключа т.е. например слово "КНИГА"...	Turbo Pascal Найти сумму элементов массива между первым и вторым отрицательным элементом Найти сумму элементов массива между первым и вторым отрицательным элементом массива. https://www.cyberforum.ru/ turbo-pascal/ thread570036.html
Найти индекс минимального элемента массива Turbo Pascal Помогите найти индекс минимального элемента массива.program massiv1; uses crt; const n=10; var a:array of real; min:real; i:integer; begin clrscr; randomize; for i:=1 to n do begin	Turbo Pascal Множества. Вывести буквы, которые встречаются только один раз Вывести из трех предложений русские буквы, которые встречают только один раз (то есть такие, которые есть только в одном из них). https://www.cyberforum.ru/ turbo-pascal/ thread569980.html
Turbo Pascal Вычислить среднее арифметическое нулевых элементов массива целых чисел В одномерном массиве, состоящим из n вещественных элементов, вычислить: 1) Номер максимального по модулю элемента массива; 2)Сумму элементов массива, расположенных после первого положительного элемента. Преобразовать массив таким образом, чтобы сначала располагались все элементы, целая часть которых лежит в интервале , а потом - все остальные. 3. Вычислить среднее арифметическое нулевых... https://www.cyberforum.ru/ turbo-pascal/ thread569976.html	Turbo Pascal Работа с типизированными и нетипизированными файлами Создать и заполнить файл f1 числами. Переписать числа файла f1 в f2 возведенными в квадрат
Turbo Pascal Текстовые файлы. Переписать строки файла f1 в файл f2, а строки файла f2 в файл f1 в обратном порядке https://www.cyberforum.ru/ turbo-pascal/ thread569957.html Создать и заполнить текстовые файлы f1 и f2. Переписать с сохранением порядка следования строк файла f1 в файл f2, а строки файла f2 в файл f1 в обратном порядке. Использовать вспомогательный файл temp. По окончанию работы программы, файл temp удалить.	Turbo Pascal Написать подпрограмму-функцию степени Написать подпрограмму-функцию степени а(x), где a, х – любые числа. Воспользовавшись формулой: а(x) = e(x) ln a (x)- это степень https://www.cyberforum.ru/ turbo-pascal/ thread569952.html
Turbo Pascal Матрица. Переставить местами элементы главной и побочной диагоналей В квадратной матрице переставить местами элементы главной и побочной диагоналей.	Turbo Pascal Минииальный элемент одномерного массива Х длины N заменить нулем Минииальный элемент одномерного массива Х длины N заменить нулем. Если несколько элементов имеют значение, равное минимальному, то на ноль заменить. https://www.cyberforum.ru/ turbo-pascal/ thread569904.html

3a9Ic

141 / 129 / 113

Регистрация: 08.04.2012

Сообщений: 245

10.05.2012, 15:25

Массив. Преобразовать так, чтобы в первой половине оказались элементы, стоявшие в четных позициях - Turbo Pascal - Ответ 3012421

10.05.2012, 15:25. Показов 2050. Ответов 1

Метки (Все метки)

Ответ

Получилось, лишь использовав 2 массива. Даже в одном цикле, почему-то, какие-то элементы перезатираются. Скопируешь, что нужно.

Pascal

Uses CRT;
Const n=10;
var a,b:array[1..n] of integer;
    i,m,k,j,l:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
          a[i]:=Random(21);
          write(' a[',i,']=',a[i]);
     end;
j:=0;
l:=Trunc(n/2);
writeln('');
for i:=1 to n do
    begin
     if (i mod 2=0) then
        begin
             inc(k);
             b[i-k]:=a[i];
        end;
 
     if odd(i) then
        begin
             inc(j);
             b[l+j]:=a[i];
        end;
     end;
for i:=1 to n do
    write(' b[',i,']=',b[i]);
end.

Вернуться к обсуждению:
Массив. Преобразовать так, чтобы в первой половине оказались элементы, стоявшие в четных позициях Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.05.2012, 15:25

Готовые ответы и решения:

Преобразовать массив, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях
Преобразовать массив K размером n таким образом ,чтобы в первой его половине располагались...

Преобразовать массив, чтобы в первой его половине располагались все элементы, стоявшие в нечётных позициях
Дан одномерный массив А, состоящий из N целых чисел. Преобразовать массив таким образом, чтобы в...

Преобразовать массив К размером n таким образом, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях
Помогите с заданием. Преобразовать массив К размером n таким образом, чтобы в первой его половине...

Превратить массив так, чтобы в первой половине располагались все элементы, стоявшие в нечетных позициях
Очень нужна помощь с лабораторной по массивам, как только не пробовал все или не работало или...

	10.05.2012, 15:25

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.05.2012, 15:25

Помогаю со студенческими работами здесь

Преобразовать массив, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй элементы, стоявшие в нечетных
В одномерном массиве , состоящем из N целых элементов , вычислить : 1. минимальный по модулю...

Преобразовать массив, чтобы в первой его половине располагались элементы, стоявшие в четных позициях
Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в...

Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях
Помогите доделать лабораторную, нужно преобразовать массив таким образом, чтобы в первой его...

Наверх