Вопрос №58320
 
 
 
 
 

Паскаль?

Бодя · почти 3 года назад
 

Сделать что бы не было использования файла, а все было записано в проге.
Условие задачи было таково:
Задано матрицу действительных чисел. Отдельно в каждом столбце матрицы
определить наличие заданного действительного числа и его местонахождение
(координаты) методом бинарного поиска (алгоритм № 2), если элементы
каждого столбца отдельно упорядочены по неувеличению.
program LR_2_1;
const
m = 10;
n = 9;
var
f, z: text;
A: array [1 .. m, 1 .. n] of real;
x: real;
procedure InMatrix;
var
i, j: byte;
begin
for i := 1 to m do
begin
for j := 1 to n do
Read(f, A[i, j]);
Readln(f);
end;
end;
procedure Binary_Search_2(j: byte);
var
l, r, i: byte;
begin
l := 1;
r := m;
while l < r do
begin
i := (l + r) div 2;
if A[i, j] > x then
l := i + 1
else
r := i;
end;
if A[l, j] = x then
Writeln(z, 'Ó ', j, '-ìó ñòîâï÷èêó çàäàíå ÷èñëî õ =',x:3:0,' çíàõîäèòüñÿ íà ', l, '-é ïîçèö³¿')
else
Writeln(z, 'Ó ', j, '-ìó ñòîâï÷èêó çàäàíîãî ÷èñëà õ =', x:3:0, ' íåìàº');
end;
procedure Actions;
var
j: byte;
begin
for j := 1 to n do
Binary_Search_2(j);
end;
begin
Assign(f, 'Input.txt');
Reset(f);
Readln(f, x);
InMatrix;
Close(f);
Assign(z, 'Output.txt');
Rewrite(z);
Actions;
Close(z);
end.

Хороший вопрос Ф топку
0
2
Нет ответов
 
 
Похожие вопросы
Викуля · больше 3 лет назад · 1 ответ
 
 
 
Ссылка на этот вопрос
 
Поискать ответ на вопрос: ответы@mail.ru, otvety@google.ru, Яндекс.Ответы
 
Читать новые вопросы в: LiveJournal, Livinternet, Google Reader
 
Этот вопрос посмотрели 36 раз, в среднем 1 просмотр в месяц (0.04)
 
 
 
 
 
 
Адрес друга:
 
 
 
 
 
 
 
 
 
 
 

© vorum.ru — вопросы и ответы, 2006–2016
Пишите нам на in@vorum.ru

Администрация сервера не гарантирует точность и достоверность размещаемых пользователями материалов, а также не несет ответственности ни за какие задержки, сбои, удаление или несохранность какой-либо пользовательской информации.

Цифры не для всех: 139

 
 
× Нравится наш сайт?
Нажмите кнопку «Мне нравится» (Like), чтобы присоединиться к нам на Facebook