Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Сентябрь 2015   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на языке Pascal


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Асмик Гаряка
Статус: Советник
Рейтинг: 10654
∙ повысить рейтинг » 		Орловский Дмитрий
Статус: Мастер-Эксперт
Рейтинг: 7020
∙ повысить рейтинг » 		lamed
Статус: Академик
Рейтинг: 4846
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)

Номер выпуска:1268
Дата выхода:01.09.2015, 15:08
Администратор рассылки:F®ost (Администратор)
Подписчиков / экспертов:12 / 12
Вопросов / ответов:3 / 8

Консультация # 102427: Здравствуйте эксперты! У меня такой вопрос: в переменной типа Word(слово) как идут байты? То есть слева направо или справо налево(где старший и младший)? В приложении пример конструкции....

Консультация # 85124: Добрый день уважаемые эксперты. Снова я - глупый студент. Есть 2 такие задачки 1) Есть массив (произвольный). Сколько в нём разных чисел?(если все одинаковые, то ответ 1).{составить программу} 2) Дан произвольный массив. Найти наименьшую(по модулю) разность между элементами массива(если все элементы массива равны, то ответ 0).{составить про...
Консультация # 20954: Уважаемые эксперты, помогите решить следующую задачку: Дан массив А[1..n,1..m] Найти седловую точку массива, либо установить ее отсутствие (Седловая точка - элемент, максимальный в своем столбце и минимальный в своей строке)...

Консультация # 102427:

Здравствуйте эксперты!

У меня такой вопрос: в переменной типа Word(слово) как идут байты? То есть слева направо или справо налево(где старший и младший)?
В приложении пример конструкции.

Дата отправки: 18.09.2007, 09:27
Вопрос задал: Muratov Radik
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Yandrey:

Здравствуйте, Muratov Radik!
Старший слева младший справа. 2F7A зесь 2F старший 7A младший.

Консультировал: Yandrey
Дата отправки: 18.09.2007, 09:46
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Delph:

Здравствуйте, Muratov Radik!

В типе Word ("слово") первым идёт младший байт, а вторым - старший. Приведённая в приложении программа позволяет в этом убедиться. При использовании 32-битных целых "слова" подчиняются тому же правилу: сначала младшее, а уже потом старшее. В итоге самый младший байт оказывается по наименьшему адресу в памяти, а самый старший - по наибольшему. Пошло это с давних времён, когда процессоры были ещё восьмибитными, но подробно об этом рассказать не смогу - сам знаю не много.

Приложение:

Консультировал: Delph
Дата отправки: 18.09.2007, 09:48
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Багиев Александр:

Здравствуйте, Muratov Radik!

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

Консультировал: Багиев Александр
Дата отправки: 18.09.2007, 19:46
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 85124:

Добрый день уважаемые эксперты. Снова я - глупый студент. Есть 2 такие задачки
1) Есть массив (произвольный). Сколько в нём разных чисел?(если все одинаковые, то ответ 1).{составить программу}
2) Дан произвольный массив. Найти наименьшую(по модулю) разность между элементами массива(если все элементы массива равны, то ответ 0).{составить программу}

Дата отправки: 02.05.2007, 18:49
Вопрос задал: Peeny
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Ерёмин Андрей:

Здравствуйте, Peeny!
Один из вариантов решения задачи №1 см. в приложении. Неудобство в том, что в Turbo Pascal нет динамических массивов, поэтому приходится резервировать массив с расчётом на задачу, что количества элементов хватило. Алгоритм здесь такой: после ввода каждого числа записываем его в массив. Затем просматриваем массив таким способом: каждый элемент сравниваем со всеми, которые идут до него. Если хотя бы одно совпадение найдено, то число повторяется. Желаю удачи!

Приложение:

Консультировал: Ерёмин Андрей
Дата отправки: 02.05.2007, 19:18
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Denisss:


Здравствуйте, Peeny!

Задачу №1 (Листинг 1 приложения) решил по такому алгоритму (я решил попроще, чем в предыдущем ответе):
1. Принимаем, что количество разных чисел = количеству элементов массива.
2. Выбираем один элемент массива
3. Ищем такой же один элемент массива, но стоящий после выбранного
4. Если элемент найден, то уменьшаем количество разных чисел на 1. Поиск прекращаем.
5. Выбираем следующий элемент массива
6. Если элемент массива не последний, переходим к п.3
7. Вывод результатов.

Задачу №2 (Листинг 2 приложения) решил по такому алгоритму:
1. Принимаем, что минимальная разность равна 1000 (т.е. больше, чем любое значение в массиве)
2. Выбираем первый элемент массива
3. Ищем модуль разности этого элемента массива с каждым последующим элементом, сравниваем с минимальным и, если меньше, то принимаем значение минимальной разности равным найденному.
4. Выбираем следующий элемент массива
5. Если массив не закончился, переходим к п.3.

Ввод массива можно взять и из примера, приведенного в предыдущем ответе.

Решение постарался максимально упростить. Использовал минимальное число дополнительных переменных.

Удачи!

Приложение:

Консультировал: Denisss
Дата отправки: 02.05.2007, 20:01
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Е.В.Гений:

Здравствуйте, Peeny!
у меня такой вариант, сначала сортируете массив, потом по циклу сравниваете данное i число с i-1 елси больше то счетчик увеличиваете

Консультировал: Е.В.Гений
Дата отправки: 03.05.2007, 14:46
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 20954:

Уважаемые эксперты, помогите решить следующую задачку:
Дан массив А[1..n,1..m] Найти седловую точку массива, либо установить ее отсутствие (Седловая точка - элемент, максимальный в своем столбце и минимальный в своей строке)

Дата отправки: 16.05.2005, 22:04
Вопрос задал: Lonelywolf
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Malish:

Здравствуйте, Lonelywolf!
Я рассуждаю что точка одна. Если надо по другому, напиши исправим. И если что-то не понятно тоже напиши.
uses crt;
const n=3;
m=2;
type
Sedlov = record
Stroka:integer;
Stolbec:integer;
end;
var
A : array [0..n,0..m] of integer;
i,j : integer;
min, max : integer;
S:Sedlov;
flag:boolean;
begin
clrscr;
A[0][0]:=3;
A[0][1]:=2;
A[0][2]:=4;
A[1][0]:=7;
A[1][1]:=10;
A[1][2]:=11;
A[2][0]:=12;
A[2][1]:=14;
A[2][2]:=14;
A[3][0]:=16;
A[3][1]:=17;
A[3][2]:=18;
for i:=0 to n do
begin
for j:=0 to m do
write(A[i][j],\' \');
writeln;
end;
{//////////////////////////////////////////////////}
flag:=true;
max:=0;
for j:=0 to m do
begin
for i:=0 to n do
begin
if A[i][j]>max then
begin
max:=A[i][j];
S.Stroka:=i;
S.Stolbec:=j;
end;
end;
for i:=0 to m do
begin
if A[S.Stroka][i] begin
flag:=false;
end;
end;
if flag=true then
writeln(\'Sedlovaya tochka : = \',max,\' \', S.Stroka,\'/\',S.Stolbec);
end;
readln;
end.

Консультировал: Malish
Дата отправки: 17.05.2005, 00:08
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Вадим Исаев ака sir Henry (Старший модератор):

Здравствуйте, Lonelywolf!
А нет ли здесь некоего логического противоречия? Если Вы нашли точку, то как она может отсутствовать? :)
Вы не знаете как искать максимальный или минимальный элемент? Поверьте, это не имеет отношение к Паскалю, это чистая алгоритмика. Поэтому пожалуйста, уточните вопрос:
- Вам нужен алгоритм поиска или
- Вам нужена реализация алгоритма поиска на Паскале, а сам алгоритм Вы уже знаете.

Консультировал: Вадим Исаев ака sir Henry (Старший модератор)
Дата отправки: 17.05.2005, 05:49
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!

© 2001-2015, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Версия системы: 2011.6.36 от 26.01.2012
В избранное