Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

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

Чемпионы рейтинга экспертов в этой рассылке

lamed Статус: Практикант Рейтинг: 2368 ∙ повысить рейтинг »

Boriss Статус: Академик Рейтинг: 2092 ∙ повысить рейтинг »

_Ayl_ Статус: Практикант Рейтинг: 1865 ∙ повысить рейтинг »

Вопрос № 177891: Доброго время суток Дорогие эксперты! Помогите пожалуйста решить задачи в среде TP-7.0 1)Дано целое неотрицательное число <2^16. Получить число перестановкой битов каждого байта данного числа в обратном порядке. (использовать ...

Доброго время суток Дорогие эксперты!
Помогите пожалуйста решить задачи в среде TP-7.0

1)Дано целое неотрицательное число <2^16. Получить число перестановкой битов каждого байта данного числа в обратном порядке.
(использовать побитовые операции в паскале)

2)Строку, представляющую собой запись вещественного числа в форме с фиксированной точкой, преобразовать в строку, представляющую собой запись того же числа в форме с плавающей точкой в нормализованном виде.
(использовать преобразование типов)

3)Дана прямоугольная матрица. Упорядочить столбцы матрицы по невозрастанию минимальных элементов столбцов.

Представление матрицы должно быть такое - Указатель на матрицу!

!Не указатель на массив указателей на столбцы и так далеее а именно указатель на матрицу

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

Тоисть 4 функции описать отдельно по инициализации матрицы в памяти

а) число строк и число столбцов - константы;

б) число строк - константа, а число столбцов - исходное данное;

c) число строк - исходное данное, число столбцов - константа;

д) число строк и число столбцов - исходные данные.

Ввод, вывод и обработку матрицы описать отдельными подпрограм-мами. Для случаев а) - д), где возможно, использовать одни и те же подпрограммы.

Спасибо за внимание!

Система: Windows Vista Home Premium

Отправлен: 17.04.2010, 15:01
Вопрос задал: Юдин Евгений Сергеевич, 1-й класс
Всего ответов: 2
Страница вопроса »

Приложение:
{ ============================== } { Дано целое неотрицательное число <2^16. Получить число перестановкой битов каждого байта данного числа в обратном порядке. Вариант 1 } program p177891a; var i: integer; num: integer; len: integer; hi, lo: integer; procedure PrintBinary(x: word); { печать беззнакового двухбайтового целого в битовой форме } var i: integer; len: integer; begin len := sizeof(word)*8; { бит в числе } for i:=len-1 downto 0 do if (x and (1 shl i)=0) then write(\'0\') else write(\'1\'); writeln; end; { PrintBinary } begin len := sizeof(word)*8; write(\'num=\'); readln(num); writeln(\'Введенное число\'); PrintBinary(num); for i:=0 to (len+1) div 2-1 do begin if (num and (1 shl (len-i-1)))<>0 then hi:= 1 else hi := 0; if (num and (1 shl i))<>0 then lo := 1 else lo := 0; { если установлен левый бит, установить правый бит, иначе сбросить правый бит } if hi=0 then num := num and not(1 shl i) else num := num or (1 shl i); {если установлен правый бит, установить левый бит, иначе сбросить левый бит } if lo=0 then num := num and not (1 shl (len-i-1)) else num := num or (1 shl (len-i-1)); end; writeln(\'Число с переставленными битами\'); PrintBinary(num); readln; end. { =============================== {2)Дано целое неотрицательное число <2^16. Получить число перестановкой битов каждого байта данного числа в обратном порядке. Вариант 2 } program p177891; var num1, num2: integer; ch: byte; hi, lo: byte; procedure PrintBinary(x: word); { печать беззнакового двухбайтового целого в битовой форме } var i: integer; len: integer; begin len := sizeof(word)*8; { бит в числе } for i:=len-1 downto 0 do if (x and (1 shl i)=0) then write(\'0\') else write(\'1\'); writeln; end; { PrintBinary } function Reverse(x: byte): byte; var i: integer; res: byte; { Перестановка битов байта } begin res := x and 1; for i:=1 to 7 do res := (res shl 1) or ((x shr i) and 1); Reverse := res; end; { Reverse } begin write(\'num1=\'); readln(num1); writeln(\'Введенное число\'); PrintBinary(num1); hi := $FF and (num1 shr 8); { левый байт } lo := $FF and num1; { правый байт } writeln(\'Число с переставленными битами\'); num2 := (Reverse(hi) shl 8) or Reverse(lo); PrintBinary(num2); Readln; end.

Ответ отправил: lamed, Практикант
Ответ отправлен: 20.04.2010, 13:09
Номер ответа: 260930

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 260930 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Приложение:
{$R-} {Отключаем выход за пределы диапазона} TYPE TMatrix = array[1..1, 1..1] of Integer; PMatrix = ^TMatrix; TRow = array[1..1] of Integer; {Нужно будет для упорядочения} PRow = ^TRow; function HeapFunc(Size: Word): Integer; far; {Нужная для работы с динамической памятью = кучей} begin HeapFunc := 1; end; {Есть проблема в работе с таким массивом. Паскаль неправильно вычисляет адрес элементов. Так, например, элемент с индексами [2, 5] это тоже, что и элемент с индексами [5, 2] Надо работать впрямую обращаясь к памяти, адрес которой надо вычислять Для этого и используются две подпрограммы С одномерными массивами такой проблемы нет} VAR m_seg, m_ofs: Word; {сегмент и смещение области, на которую указывает матрица} CONST s_int = sizeof(Integer); {2 байта, но ...} max_rand = 100; function GetElement(r, c, aCols: Integer): Integer; begin GetElement := memw[m_seg: m_ofs + ((r-1)*aCols + (c-1))*s_Int] {считать слово. Альтернатива - использовать MOVE} end; procedure PutElement(r, c, aCols, value: Integer); { r ряд, куда записать, c - колонка, aCols - всего колонок; value - величина} begin memw[m_seg : m_ofs + ((r-1)*aCols + (c-1))*s_Int] := Value end; function DefineMatrix(aRows, aCols: Integer): PMatrix; {Создание матрицы. Если не удается, то возвращает nil} var ma: PMatrix; i, j: Integer; begin DefineMatrix := nil; ma := nil; GetMem(ma, aRows*aCols*s_Int); if ma = nil then Exit; {заполнение} m_seg := Seg(ma^); m_ofs := Ofs(ma^); for i:=1 to aRows do for j:=1 to aCols do PutElement(i, j, aCols, random(max_rand) {i*j + 20*(i-1)}); DefineMatrix := ma; end; procedure ShowMatrix(aMatrix: PMatrix; aRows, aCols: Integer); var i, j: Integer; begin if aMatrix = nil then Exit; for i:=1 to aRows do begin for j:=1 to aCols do Write(GetElement(i, j, aCols):4); WriteLn; end; end; procedure SortMatrix(aMatrix: PMatrix; aRows, aCols: Integer); var MinElements: PRow; i, j, min: Integer; {Локальная процедура для обмена столбцов} procedure Swap(col1, col2: Integer); {Все остальное она знает} var temp, k: Integer; begin for k:= 1 to aRows do begin temp := GetElement(k, col1, aCols); PutElement(k, col1, aCols, GetElement(k, col2, aCols)); PutElement(k, col2, aCols, temp); end; {Теперь не забыть поменять местами в массиве минимальных элементов. А я, было, забыл} temp := MinElements^[col1]; MinElements^[col1] := MinElements^[col2]; MinElements^[col2] := temp end; begin if aMatrix = nil then Exit; GetMem(MinElements, aCols*sizeof(Integer)); {Сначала найдем минимальные в каждом столбце} for j :=1 to aCols do begin {Отслеживаем номер (ряд) минимального элемента в колонке} MinElements^[j] := 1; for i:=1 to aRows do if GetElement(i, j, aCols) < GetElement(MinElements^[j], j, aCols) then MinElements^[j] := i; end; {Для сортировки применим метод вставки: колонку с самым большим значением минимального элемента ("отсюда" и до конца) и ставим "сюда" Здесь, как правило, потребуется меньше перестановок, чем в пузырьковом} for i:=aCols-1 downto 2 do begin min := i; {Номер ряда, где минимальный элемент самый маленький} for j := i-1 downto 1 do if GetElement(MinElements^[j], j, aCols) <= GetElement(MinElements^[min], min, aCols) then min := j; if i <> min then Swap(i, min); end; FreeMem(MinElements, aCols*sizeof(Integer)); end; function DisposeMatrix(var aMatrix: PMatrix; aRows, aCols: Integer): Boolean; begin DisposeMatrix := FALSE; if aMatrix = nil then Exit; FreeMem(aMatrix, aRows*aCols*s_Int); m_seg := 0; m_ofs := 0; DisposeMatrix := True end; procedure DoMatrix(aRows, aCols: Integer); {Подпрограмма, которая все вызывает} var M: PMatrix; begin m_seg := 0; m_ofs := 0; M := DefineMatrix(aRows, aCols); if M = nil then begin WriteLn(\'Не удается создать матрицу размером \',aRows,\' x \',aCols); WriteLn(\'Скорее всего, заданы слишком большие количества строк и столбцов\'); end else begin WriteLn(\'Матрица до сортировки\'); ShowMatrix(M, aRows, aCols); SortMatrix(M, aRows, aCols); WriteLn(\'Матрица после сортировки\'); ShowMatrix(M, aRows, aCols); DisposeMatrix(M, aRows, aCols); end end; CONST rows = 5; cols = 10; VAR n_rows: Integer; n_cols: Integer; BEGIN HeapError := @HeapFunc; {Назначаем свой обработчик ошибок} DoMatrix(rows, cols); (* {С переменными нет никаких проблем - смотри ниже} Write(\'Введите число строк: \'); ReadLn(n_rows); Write(\'Введите число колонок: \'); ReadLn(n_cols); DoMatrix(n_rows, n_cols); *) END. Прикрепленный файл: загрузить »

-----
Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss, Академик
Ответ отправлен: 20.04.2010, 22:11
Номер ответа: 260938

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 260938 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Помогите пожалуйста.Тема варианты записи
1)Богаж пассажира характеризуеться колличеством вещей(целый тип) и общим весом вещей(вещественый тип).Дан список о багаже 10 пасажиров.Определить имееться ли пасажир багар которого состоит из 1 вещей весом менее 30 кг.
2)Тема файлы.Организовать файл из целых чисел N компонент.Удалить из файла все отрицательные компоненты.Вывести содержимое файла до и после обработки.

Отправлен: 17.04.2010, 10:01
Вопрос задал: sannek2, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
Uses Crt; Type TPR = Record Count: Byte; Weight: Real; end; Const PCount = 10; Var Ar: Array[1..PCount] of TPR; i, count: Byte; begin ClrScr; Randomize; Writeln(\'Search passeger with alone bagage pack with weight less 30 kg.\'); count := 0; Writeln(\'Passeger list:\'); for i:=1 to PCount do begin Ar[i].Count := Random(5); if Ar[i].Count = 0 then Ar[i].Weight := 0 else Ar[i].Weight := 60 * Random; Writeln(i:3, Ar[i].Count:4, Ar[i].Weight:7:2); end; Writeln; for i:=1 to PCount do begin if (Ar[i].Count = 1) and (Ar[i].Weight < 30) then begin Inc (count); Writeln(\'Found passenger \', i:3, Ar[i].Count:4, Ar[i].Weight:7:2); end; end; if (count = 0) then Writeln(\'Nothing found\'); Writeln; Write(\'Done. Press any key...\'); readkey; end.
-----
Временная неудача лучше временной удачи

Ответ отправил: Andrew Kovalchuk, 10-й класс
Ответ отправлен: 17.04.2010, 16:35
Номер ответа: 260874

Оценка ответа: 5
Комментарий к оценке:
Спасибо огромное

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 260874 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »