Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Создать меню, с помощью которого можно выбрать цвет заливки текстового окна В построенном окне создать меню, с помощью которого можно выбрать цвет заливки текстового окна. Пункты меню 1 красный цвет 2 зеленый цвет 3 синий цвет 4 выход Не могу сделать, так что б заливал, после заливки к примеру красным, программа закрывается. https://www.cyberforum.ru/ turbo-pascal/ thread1634684.html	Найти заданные суммы Turbo Pascal Дано натуральное число N и вещественное x. Вычислить S_1=\sum_{i=1}^N (\sin x)^i S_2=\sum_{i=1}^N \sin x^i
Turbo Pascal Найти сумму https://www.cyberforum.ru/ turbo-pascal/ thread1634673.html Ещё одна сумма. \sum_{i=1}^N=\frac{x_1}{1+y_1} при х1 = y1 = 1; xi+1 = 0.5 ∙ x1;	Turbo Pascal Решение сигмы https://www.cyberforum.ru/ turbo-pascal/ thread1634653.html Помогите сделать в паскале
Turbo Pascal Определить наибольшую последовательность символов, входящую в обе фразы в одном и том же порядке Заданы две фразы. Определить наибольшую последовательность отличных от пробелов символов, входящую в обе фразы в одном и том же порядке. Например, в предложениях: ПРИШЛА ВЕСНА и РАСТАЯЛ СНЕГ такая последовательность - Р,А,С,Н. Только если можно ,с пояснениями	Turbo Pascal Если матрица симметрична относительно главной диагонали, то переписать в вектор заданные строки Дана матрица целых чисел А, состоящая из М строк и N столбцов. Если матрица является симметричной относительно главной диагонали, то переписать в вектор В те строки матрицы А, в которых отрицательных элеметнов больше, чем неотрицательных. Помогите пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread1634618.html
Turbo Pascal Сформировать одномерный массив, каждый элемент которого равен латинской букве Дана неквадратная матрица строк. Сформировать одномерный массив, каждый элемент которого равен латинской букве, которая наиболее часто используется при записи элементов соответствующей строки. (помогите написать прогу, где описывается последнее условие) https://www.cyberforum.ru/ turbo-pascal/ thread1634452.html	Заменить нулями элементы, расположенные на главной диагонали и выше её Turbo Pascal Матрица N*N. Создать текстовое меню для возможности выбора решения любого из 2 пунктов. Создать максимально возможные по количеству элементов, матрицы. Использовать пользов. модули и динамически распределить матрицы в памяти. 1)заменить нулями элементы, расположенные на главной диагонали и выше её. Элементы, находящиеся ниже главной диагонали скопировать в другую матрицу;...
Turbo Pascal Определить число соседств двух положительных чисел в последовательности . С клавиатуры вводится натуральное число n, действительные числа а1, … ,an. В последовательности а1, … ,an определить число соседств двух положительных чисел https://www.cyberforum.ru/ turbo-pascal/ thread1634246.html	Turbo Pascal Рассчитать приблизительную площадь фигуры Рассчитать приблизительную площадь фигуры, ограниченной y=x2 и прямой y=25, разделив отрезок изменений x на 10 частей и суммируя площадь прямоугольников. Высоту прямоугольников h рассчитать по центру отрезков деления. https://www.cyberforum.ru/ turbo-pascal/ thread1634180.html
Turbo Pascal Написать программу для сверки пароля хочу написать программу для сверки пароля, но при выполнении пишет такую ошибку "Program1.pas(7,7): Встречено ':=', а ожидался оператор". Как решать данную задачу? program kost; var a :string; begin writeln('Ваш пароль'); readln(a); if a := 'паскаль' then writeln ('Пароль верный')	Turbo Pascal Определить, содержит ли заданная целочисленная квадратная матрица порядка n все числа от 1 до n^2 https://www.cyberforum.ru/ turbo-pascal/ thread1633867.html Определить, является ли заданная квадратная матрица размера n*n состоящей из целых чисел от 1 до n^2 , встречающихся по одному разу. Определить позиции минимального и максимального элементов этой матрицы. Примечание. Позицией элемента матрицы называется упорядоченная пара (i, j) , где i - номер строки элемента, j - номер столбца. Кто может помогите. Заранее спасибо.

bormant

Модератор

7794 / 4617 / 2830

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

Сообщений: 13,112

Записей в блоге: 1

09.01.2016, 18:55

Сформировать другой массив, в который нечетные элементы из первого массива переписать без изменений - Turbo Pascal - Ответ 8598832

09.01.2016, 18:55. Показов 741. Ответов 1

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

Ответ

Бред какой-то...

Pascal

var
  a, b: array [1..6] of Word;
  i: Integer;
begin
  Randomize;
  for i:=1 to 6 do begin
    a[i]:=10+Random(90); Write(' ',a[i]);
  end; WriteLn;
  asm
    mov ax,ds
    mov es,ax
    lea si,a
    lea di,b
    cld
    mov cx,6
  @1:
    lodsw
    or  ax,1
    stosw
    loop @1
  end;
  for i:=1 to 6 do Write(' ',b[i]); WriteLn;
end.

Добавлено через 5 минут
Или без строковых операций:

Pascal

var
  a, b: array [1..6] of Word;
  i: Integer;
begin
  Randomize;
  for i:=1 to 6 do begin
    a[i]:=10+Random(90); Write(' ',a[i]);
  end; WriteLn;
  asm
    lea si,a
    lea di,b
    mov cx,6
  @1:
    mov ax,[si]
    or  ax,1
    mov [di],ax
    add si,2
    add di,2
    loop @1
  end;
  for i:=1 to 6 do Write(' ',b[i]); WriteLn;
end.

Вернуться к обсуждению:
Сформировать другой массив, в который нечетные элементы из первого массива переписать без изменений Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

09.01.2016, 18:55

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

Дан массив целых чисел а(12). Переписать в массив х четные, а в массив у нечетные элементы массива а
Помогите пожалуйста решить эту задачу. Массив a выводит на печать. Я пишу a mod 2 = 0 , а он мне 41...

Сформировать два одномерных массива. В один записать четные, а в другой нечетные элементы матрицы.
Здравствуйте! хочу написать задачу с массивами, но не получается. Вот собственно сама задача:...

Сформировать два одномерных массива. В один перешлите все четные, а в другой – нечетные элементы матрицы.
Дана матрица А, имеющая N строк и N столбцов. Сформировать два одномерных массива. В один перешлите...

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z
Задача на Pascal. Не решу - зачёт не поставят.

	09.01.2016, 18:55

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

09.01.2016, 18:55

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

Дан массив A из 10 элементов (целые числа). Сформировать массив B, включив в него нечетные по номеру элементы из массива A.
Дан массив A из 10 элементов (целые числа). Сформировать массив B, включив в него нечетные по...

Массивы. Четные элементы массива поместить в один массив, а нечетные – в другой
Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив...

Получить третий массив, в который входят все элементы первого массива и те элементы второго, которые не встречались в первом
Задача по теме "массив". "Объединение массивов". Напишите программу, которая запрашивает и вводит...

Переписать в новый массив элементы первого массива, оканчивающиеся на цифру k
Дан массив состоящий из n натуральных чисел. Образовать новый массив элементами которого будут...

Наверх