Turbo Pascal

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

Войти

Другие темы раздела
Turbo Pascal Определить число соседств двух положительных чисел в последовательности https://www.cyberforum.ru/ turbo-pascal/ thread1634246.html . С клавиатуры вводится натуральное число n, действительные числа а1, … ,an. В последовательности а1, … ,an определить число соседств двух положительных чисел var n, m, p, q: Integer; begin Read(n,p); for n:=2 to n do begin Read(q); Inc(m,Ord((p>0) and (q>0))); p:=q; end; WriteLn(m); end.	Turbo Pascal Написать программу для сверки пароля хочу написать программу для сверки пароля, но при выполнении пишет такую ошибку "Program1.pas(7,7): Встречено ':=', а ожидался оператор". Как решать данную задачу? program kost; var a :string;... if a= 'паскаль'
Turbo Pascal Решение сигмы https://www.cyberforum.ru/ turbo-pascal/ thread1634653.html Помогите сделать в паскале Дать бы вам обоим этой сигмой по башке. Это называется вычислить сумму ряда. И что означает i в Вашей формуле? Добавлено через 5 минут Может так нужно? \sum_{k=1}^{N}\frac{{(-1)}^{k+1}}{k(k+1)}...	Turbo Pascal Рассчитать приблизительную площадь фигуры https://www.cyberforum.ru/ turbo-pascal/ thread1634180.html Рассчитать приблизительную площадь фигуры, ограниченной y=x2 и прямой y=25, разделив отрезок изменений x на 10 частей и суммируя площадь прямоугольников. Высоту прямоугольников h рассчитать по центру... var x,s: real; begin x:=-5; s:=0; while x<=5 do begin s:=s+25-x*x; x:=x+1; end; write('s=',s:0:2);
Turbo Pascal Найти сумму Ещё одна сумма. \sum_{i=1}^N=\frac{x_1}{1+y_1} при х1 = y1 = 1; xi+1 = 0.5 ∙ x1; var x,y,s:real; n,i:integer; begin write('n='); readln(n); x:=1; y:=1; s:=0.5; for i:=2 to n do begin https://www.cyberforum.ru/ turbo-pascal/ thread1634673.html	Turbo Pascal Найти заданные суммы Дано натуральное число N и вещественное x. Вычислить S_1=\sum_{i=1}^N (\sin x)^i S_2=\sum_{i=1}^N \sin x^i 1. s1:=0; p:=1; for i:=1 to n do begin p:=p*sin(x); s1:=s1+p; end; 2. s2:=0; https://www.cyberforum.ru/ turbo-pascal/ thread1634683.html
Заменить нулями элементы, расположенные на главной диагонали и выше её Turbo Pascal Матрица N*N. Создать текстовое меню для возможности выбора решения любого из 2 пунктов. Создать максимально возможные по количеству элементов, матрицы. Использовать пользов. модули и...	Turbo Pascal Если матрица симметрична относительно главной диагонали, то переписать в вектор заданные строки https://www.cyberforum.ru/ turbo-pascal/ thread1634618.html Дана матрица целых чисел А, состоящая из М строк и N столбцов. Если матрица является симметричной относительно главной диагонали, то переписать в вектор В те строки матрицы А, в которых отрицательных...
Turbo Pascal Создать меню, с помощью которого можно выбрать цвет заливки текстового окна https://www.cyberforum.ru/ turbo-pascal/ thread1634684.html В построенном окне создать меню, с помощью которого можно выбрать цвет заливки текстового окна. Пункты меню 1 красный цвет 2 зеленый цвет 3 синий цвет 4 выход Не могу сделать, так что б... Так покажи что написал.	Turbo Pascal Сформировать одномерный массив, каждый элемент которого равен латинской букве Дана неквадратная матрица строк. Сформировать одномерный массив, каждый элемент которого равен латинской букве, которая наиболее часто используется при записи элементов соответствующей строки.... const m=3; n=2; var a: array of String; b: array of Char; c: array of Integer; i, j, k: Integer; d, mx: Char; begin for i:=1 to m do begin FillChar(c,SizeOf(c),#0);
Turbo Pascal Определить, содержит ли заданная целочисленная квадратная матрица порядка n все числа от 1 до n^2 Определить, является ли заданная квадратная матрица размера n*n состоящей из целых чисел от 1 до n^2 , встречающихся по одному разу. Определить позиции минимального и максимального элементов этой... uses crt; const nmax=20; var a:array of integer; b:array of integer; n,i,j,k,imn,jmn,imx,jmx:integer; begin clrscr; repeat write('Размер матрицы от 2 до ',nmax,' n='); readln(n); https://www.cyberforum.ru/ turbo-pascal/ thread1633867.html	Turbo Pascal Определить наибольшую последовательность символов, входящую в обе фразы в одном и том же порядке Заданы две фразы. Определить наибольшую последовательность отличных от пробелов символов, входящую в обе фразы в одном и том же порядке. Например, в предложениях: ПРИШЛА ВЕСНА и РАСТАЯЛ СНЕГ ... Из-за того, что решение дано в соответсвии со стандартом паскаля, кода много. program task( input, output ); const n = 30; type limit = 0..n; vector = array of limit; str = record s:... https://www.cyberforum.ru/ turbo-pascal/ thread1634630.html

bormant

Модератор

7800 / 4622 / 2832

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

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

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

09.01.2016, 18:55

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

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

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

Ответ

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 строк и N столбцов. Сформировать два одномерных массива. В один перешлите все четные, а в другой – нечетные...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

09.01.2016, 18:55

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

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

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Исследование байт-кода Python: подключаем дизассемблер stackOverflow 19.02.2025 Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .	Исследование байт-кода Python: компиляторы против интерпретаторов stackOverflow 19.02.2025 Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .	Comprehensions в Python - что это такое? stackOverflow 19.02.2025 Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .	Python правда такой медленный? Развенчиваем миф о медлительности stackOverflow 19.02.2025 Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .	Динамические формы в Flask stackOverflow 19.02.2025 Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS stackOverflow 19.02.2025 Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .	где chromium хранит пароли и как их обнулить в пожарном варианте jigi33 19.02.2025 Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)	howto get access to external internet resources with kinit jigi33 19.02.2025 Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)	Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi stackOverflow 19.02.2025 В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .	ENV (environments) valid paths in linux jigi33 19.02.2025 Environments paths (see screenshot)

Наверх