Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Вычислить сумму бесконечного ряда с точностью до e Вычислить сумму бесконечного ряда с точностью до e=0.0001. Составить программу с использованием оператора цикла с постусловием. S=1-\frac{x^2}{3!}+\frac{x^4}{5!}-\frac{x^6}{7!}+\dots\;,\; -\infty \lt x \lt \infty Сравнить полученное значение с \frac{sin\, x}{x} https://www.cyberforum.ru/ pascalabc-net/ thread1266184.html Вычислить и вывести на экран в виду таблицы значения функции, заданной графически PascalABC.NET
Вычислить и вывести на экран в виду таблицы значения функции, заданной графически...
PascalABC.NET Найти среднее арифметическое четных и среднее геометрическое нечетных чисел Составить программу с использованием базовых алгоритмов для работы с одномерными массивами. Само задание: При помощи случайных чисел ввести одномерный массив, содержащий 15 натуральный чисел. Найти среднее арифметическое четных и среднее геометрическое нечетных чисел. На экран вывести массив и найденные значения. https://www.cyberforum.ru/ pascalabc-net/ thread1266180.html PascalABC.NET Поиск заданного элемента в упорядоченном массиве https://www.cyberforum.ru/ pascalabc-net/ thread1266179.html
27 номер на второй картинке есть пример и задание .
Написать программу нахождения n-го члена последовательности PascalABC.NET
Составить программу с использованием оператора цикла с предусловием. 18задание
PascalABC.NET Вычислить значение выражения https://www.cyberforum.ru/ pascalabc-net/ thread1266175.html
33.
PascalABC.NET Проверить правильность вычисления суммы ряда Написал программу, но сомневаюсь, что она работает правильно. Проверьте пожалуйста. Условие. Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε(ε=10-3,10-4,10-5,10-6)сумму ряда и указать количество учтеных слагаемых. \sum_{k=0}^{\infty}\frac{(-1)^k}{((k+1)!)^2}\: (\frac{x}{2})^{2(k+1)} var https://www.cyberforum.ru/ pascalabc-net/ thread1266088.html PascalABC.NET Подсчитать количество количество автомобилей за год (с помощью рекурсии)
На неразмеченной автомобильной стоянке можно ставить автомобили на любое свободное место в один ряд. Пусть длина автостоянки L, а ширина автомобиля В. Составить рекурсивную функцию, моделирующую ежедневное случайное размещение автомобилей на стоянке, и используя ее, подсчитать количество кол-во автомобилей за год Помогите пожалуйста решить. не могу разобраться в ", моделирующую ежедневное...
PascalABC.NET Сумма цифр заданного четырёхзначного числа N превосходит произведение цифр этого же числа на 1 Сумма цифр заданного четырёхзначного числа N превосходит произведение цифр этого же числа на 1. https://www.cyberforum.ru/ pascalabc-net/ thread1265558.html PascalABC.NET Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта Нужно нарисовать 100 пикселей в случайном порядке Выдаёт ошибку не выводит пиксели на экранuses GraphABC; type tLocation=class private x,y:integer; col:Color; public constructor Create(initX,initY:integer;initC:Color); https://www.cyberforum.ru/ pascalabc-net/ thread1265534.html
Область допустимых значений аргумента x PascalABC.NET
1 Найти область допустимых значений аргумента x. 2 Написать процедуру или функцию, которая вычисляет область допустимых значений аргумента x. 3 Написать процедуру или функцию, которая вычисляет значение выражения () fx. 4 Ввести аргумент x с помощью клавиатуры и определить, попадает он в область допустимых значений. В случае попадания аргумента x в область допустимых значений вычислить...
PascalABC.NET Вычислить и вывести на экран в виде таблицы значения функции, заданной графически Вычислить и вывести на экран в виде таблицы значения функции, заданной графически, на интервале от X нач. до X кон. с шагом dx. Интервал и шаг вводить с клавиатуры. https://www.cyberforum.ru/ pascalabc-net/ thread1265528.html
0 / 0 / 1
Регистрация: 01.10.2014
Сообщений: 22
01.10.2014, 10:32  [ТС] 0

Поиск заданного элемента в упорядоченном массиве(бинарный поиск) - PascalABC.NET - Ответ 6667931

01.10.2014, 10:32. Показов 2978. Ответов 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
program Laba8;
const
a:Array [1..8] of integer=(4,4,16,16,36,36,64,64);
var
x,left,right,i,m,num:integer;
begin
write('Введите число ');
readln(x);
left:=1;
right:=10;
while left<right do
begin
m:=(left+right) div 2;
if a[m]<x then left:=m+1 else right:=m
end;
for i:=1 to 7 do 
write(a[i]:4);
writeln;
if a[right]=x then 
writeln(right,' элемент=',x)
else writeln('Масссив не содержит значение ',x);
readln;
end.


Вернуться к обсуждению:
Поиск заданного элемента в упорядоченном массиве(бинарный поиск) PascalABC.NET
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.10.2014, 10:32
Готовые ответы и решения:

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

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

Используя бинарный поиск, определите номер элемента массива, значение которого равно k
Значения элементов одномерного массива являются значениями функции f(x) на отрезке , взятые с шагом...

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

1
01.10.2014, 10:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2014, 10:32
Помогаю со студенческими работами здесь

Бинарный поиск чисел в массиве
Привет! Никак не могу доработать программу: выводит только ответ для последнего значения второго...

бинарный поиск в массиве записей
Товари програмисты хел плиз! вот задача- В памяти ЭВМ хранятся списки номеров телефонов и...

бинарный поиск в одномерном массиве строк
program poisk; {$APPTYPE CONSOLE} uses crt; const n=100; type mas=array of string; var...

Бинарный поиск. Заменить первый положительный элемент на минимальное значение элемента массива.
Заменить первый положительный элемент на минимальное значение элемента массива A(N)

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru