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

Модератор

7797 / 4620 / 2831

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

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

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

09.01.2016, 18:55

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

09.01.2016, 18:55. Показов 751. Ответов 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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

09.01.2016, 18:55

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

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

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

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

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

	09.01.2016, 18:55

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

09.01.2016, 18:55

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

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

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

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

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

Новые блоги и статьи
Обновление сайта www.historian.by Reglage 13.01.2025 За неделю добавил два урока - по ассемблеру и Линуксу, а также дополнил один урок по ассемблеру. Мелкими шагами двигаюсь дальше к неизменной цели. По ИТ: 1) добавил урок "Структура программы на. . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .	Создание нейросети для генерации текста на Python InfoMaster 12.01.2025 Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .	Как создать нейросеть распознавания изображений на Python InfoMaster 12.01.2025 Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .
Основы искуственного интеллекта InfoMaster 12.01.2025 Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .	Python и нейросети InfoMaster 12.01.2025 Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .	Python в машинном обучении InfoMaster 12.01.2025 Python стал неотъемлемой частью современного машинного обучения, завоевав позицию ведущего языка программирования в этой области. Его популярность обусловлена несколькими ключевыми факторами, которые. . .	Создание UI на Python с TKinter InfoMaster 12.01.2025 TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .	HTML5 в разработке мобильных приложений InfoMaster 12.01.2025 Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .	Как создавать приложения для iOS/iPhone InfoMaster 12.01.2025 Введение в разработку iOS-приложений Разработка приложений для iOS открывает огромные возможности в мире мобильных технологий. С каждым годом количество пользователей iPhone и iPad растет,. . .

Наверх