|
|
Другие темы раздела | |
Free Pascal Определить, угрожает ли полю (m,n) ферзь, находящийся на поле (k,l).
https://www.cyberforum.ru/ free-pascal/ thread358581.html 6. Поле шахматной доски определяется парой (m,n) натуральных чисел (1<=m<=8,1<=n<=8). Первое число - номер строки ( номер горизонтали), второе - номер столбца (номер вертикали). Даны натуральные числа k,l,m,n, каждое из которых не более 8. Определить угрожает ли полю (m,n) ферзь, находящийся на поле (k,l). |
БИТовое уравнение на паскале Free Pascal всем ку )) занимаюсь программированием и не понимаю битовые операции . Помогите с задачой Вам заданы два натуральных числа x и k. Найдите k-ое наименьшее натуральное решение y (значение k считается с 1) следующего уравнения: x + y = x | y Через '|' здесь обозначена побитовая операция OR. Каждая строка является отдельным тестом и содержит два целых числа x и k Для каждого теста в... |
Free Pascal Модель анализа пожарного датчика в помещении, которая выводит сообщение 'Пожароопасная ситуация', если температура в комнате превысила 60°С
https://www.cyberforum.ru/ free-pascal/ thread358275.html 1Напишите блок-схему и программу-модель анализа пожарного датчика в поме-щении, которая вы¬водит сообщение 'Пожароопасная ситуация', если температура (в нашей модели она будет вводиться с клавиатуры) в комнате превысила 60°С. 2Напишите блок-схему программу печати таблицы перевода расстояний из дюй-мов в caнтиметры (1 дюйм = 2,5 см) для значений длин от 1 до 20 дюймов. |
Free Pascal Верно ли, что введенные символы А, В, С образуют целое трехзначное четное число?
https://www.cyberforum.ru/ free-pascal/ thread358233.html var a,b,c:char; f:boolean; begin readln(a,b,c); a:=(ord(a)-48); b:=(ord(b)-48); c:=(ord(c)-48); f:=(a*100+b*10+c) mod 2=0; writeln(f); |
Free Pascal Определить, принадлежит ли заданная точка с координатами (X0,Y0) области D 4. Пусть D – заштрихованная часть плоскости, как показано на рисунке. Определить, принадлежит ли заданная точка с координатами (X0,Y0) области D. Ответ выдать в виде «Принадлежит» или «Не принадлежит». |
Free Pascal Каждый прочитанный символ файла поместить в массив типа INTEGER Подскажите пжл. В текстовом файле записан ряд двоичных чисел без пробела. Программа читает файл посимвольно. Нужно каждый прочитанный символ поместить в массив типа INTEGER. Как перевести символ в числовое значение. Пробовал с помощью проц. VAL, но программа пишет: "несоответствие типов" https://www.cyberforum.ru/ free-pascal/ thread358136.html |
Free Pascal Вычислить значение выражения 3.Дано x. Вычислить y, если : http://imglink.ru/thumbnails/29-09-11/c1aa731d6aa6d3cd5b7594f02790ce2e.jpg https://www.cyberforum.ru/ free-pascal/ thread358010.html |
Free Pascal Сумма ряда, предел надо решить тремя способами (for, while, repeat). Мне б хотя бы одним способом, а дальше я сам. |
Free Pascal Определить, что введенные символы образуют целое трехзначное четное число 1) Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае.(Операторы IF и Case не использовать). введенные символы А,В,С образуют целое трехзначное четное число 2) Даны действительные числа x,y,z. Получить min(x,y,z) и max(x,y,z). https://www.cyberforum.ru/ free-pascal/ thread357726.html | Free Pascal Помогите решить любые из предложенных задач. Это контрольная,в информатике не шарю,прошу помощи. 1)Найдите такие 2 числа,что при умножении первого на 2 получится квадрат второго,а при умножении первого на 3 куб второго. 2)подсчитать сумму квадратов всех отрицательных чисел из 10 вводимых. 3)Спортсмен прыгнул в высоту в 1ый день на 180 см.Каждый день он прибавлял в высоту по 2 см.Напечатать таблицу высот,которые преодолевал прыгун в... https://www.cyberforum.ru/ free-pascal/ thread357554.html |
Проверьте правильность программы Free Pascal uses crt; Const wall=#219; pm=#1; money=#46; var r:integer; procedure randome; begin |
Free Pascal Преобразовать программу в программный модуль
https://www.cyberforum.ru/ free-pascal/ thread357327.html Помогите преобразовать программу в программный модуль. Program okno; uses crt; var x1,y1,x2,y2: byte; color:byte; procedure init; begin writeln(' '); |
0 / 0 / 0
Регистрация: 20.09.2011
Сообщений: 3
|
|
0 | |
Заменить элементы одномерного массива с четными номерами на единицу, с нечетными на ноль - Free Pascal - Ответ 202838130.09.2011, 18:14. Показов 1495. Ответов 1
Метки (Все метки)
заменить элементы одномерного массива с четными номерами на единицу, с нечетными на ноль.
Вернуться к обсуждению: Заменить элементы одномерного массива с четными номерами на единицу, с нечетными на ноль Free Pascal
0
|
30.09.2011, 18:14 | |
Готовые ответы и решения:
1
Поменять местами элементы с четными и нечетными номерами содномерного массива Сформировать два массива: в первый включить элементы исходного с четными номерами, а во второй с нечетными Переписать в массив вначале все элементы исходного массива с четными номерами, а затем — с нечетными Поменять местами элементы с четными и нечетными номерами. |
30.09.2011, 18:14 | |
30.09.2011, 18:14 | |
Помогаю со студенческими работами здесь
0
поменять местами элементы с четными и нечетными номерами Последовательность чисел: вывести сначала элементы с четными номерами, затем с нечетными Создать два файла, первый из которых содержит элементы исходного с нечетными номерами, а второй — с четными Заменить элементы с нечетными номерами на квадраты их номеров |