Гостевая книга - Персональный сайт

1728. Серёжа (27.03.2009 17:10)

Всем привет. Помогли найти програму по заданию:" Получить новую матрицу путем вычитания всех элементов данной матрицы из её наибольшего по модулю элемента" (http://borlpasc.narod.ru/Boris/SERG_M.PAS)

Нехватает блок-схемы, если кто-нибудь знает как сделать, или уже иммется схема, то прошу поделиться. Заранее спасибо!!!

1727. рефер (26.03.2009 11:00)

спасибо автору за сайт

1726. Виктор (24.03.2009 08:07)

Подскажите замену кода Турбо на Фри.
procedure SetMemAddress(Col, Row : byte);
begin
MemAdr := Pred(Row) * (2 * LastCol) + { add in prev. rows }
(Pred(Col) * 2); { add in Column offsets}
end; { SetMemAddress }

procedure SaveScreen(Var Adr; Num : byte);
begin
MoveFromScreen(Mem[BaseOfScreen:MemAdr], Adr, Num shl 1);
end; { SaveScreen }
Спасибо.

Ответ: Такое впечатление, что хотите содержимое экрана сохранить. Во FreePascal совсем другая идеология - там имеем дело с консольным приложением, которое отображает содержимое буфера. Работать можно с обоими. То есть нет никакой необходимости копировать содержимое экрана куда-то. Можно просто отображать другую часть буфера
Лучше опишите задачу - легче будет подсказать лучший вариант

1725. Sergey (20.03.2009 04:03)

Здравствуйте )
я тоже занимаюсь программированием в Delphi
Вот посмотрите мой сайт посвященный FreePascal, Delphi, MIDletPascal
http://pascalgames.net/

1724. Павел (19.03.2009 22:55)

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

Ответ: Это DOS, посему никаких событий, однако есть несколько возможностей организовать таймер. Есть специальные прерывания для такой работы, а можно просто читать область памяти, куда пишутся тики (они следуют примерно через 55 мс). Вот пример как что-то делать с секундной задержкой
uses CRT;
VAR
CurrentTicks: Longint absolute $0040:$006C;
OldTicks, dt : Longint;

BEGIN
OldTicks := CurrentTicks;
dt := Round(1000/55); {примерно секунда.
Тики следуют через 0.055 c = 55 mc}
repeat
if CurrentTicks - OldTicks > dt then
begin
OldTicks := CurrentTicks;
WriteLn(CurrentTicks)
end;
until KeyPressed;
END.
Но можно, конечно, просто считывать текущее время с помощью GetTime.

1723. Сережа (17.03.2009 14:03)

Помогите пожалуйста надо сдавать лабораторную работу по инофрматке задание такое:
Получить новую матрицу путем вычитания всех элементов данной матрицы из её наибольшего по модулю элемента.

Надо составить блок-схему,написать программу в паскале. Заранее спасибо. Если кто сможет пишите на мыло baffal@yandex.ru . В долгу не останусь!

Ответ: Прежде чем составлять, посмотри: это то, что нужно?
http://borlpasc.narod.ru/Boris/SERG_M.PAS

1722. XP (14.03.2009 20:18)

Отличный сайт, много полезной информации для начинающего программиста. Спасибо за то, что вы создали такой сайт!

1721. Виктор (08.03.2009 08:02)

Re.Ваши замечательные советы. Может ли ВР-7 узнать: 1. No винчестера..не получается. Есть ASM-PROC, но только для с,d,e,...z, ещё за это есть *.pas из super_lib от 1992- но как подправить не знаю. 2)За "Самому файлу своё имя.." - СпасиБо!. 3) Укромный уголок винта, куда писать и откуда получать... - для простейшего контроля кол-ва запусков exe-file, - так где же он, чтоб никто не догадался? Последнее Нет ли у Вас, случаем (помечтать можно?!) процедуры BP7 для нахождения файлом своего места на диске (полного пути), когда файл на ~16 уровне от с:,длина любого имени dir ~56 Char, ,длина имени My_file ~56 Char, длина EXT ~16 Char.

1720. Виктор (07.03.2009 06:16)

Восхищён Вашим подвижничеством! Терпимостью. Это редкость. Спасибо. Подскажите ответы на мучающие меня простые вопросы:
Может ли ВР-7 узнать: 1. No винчестера, на котором работает, скомпилированный ВРС, мой EXE файл. 2) Самому файлу своё имя (имя своего исполняемого ЕХЕ (пусть, даже, и переименованного) в процессе исполнения. 3) Укромный уголок винта, куда писать и откуда получать временную или постоянную информацию при исполнении файла.

Ответ: (1) http://www.sources.ru/pascal/disks/hdd_num.htm
тут описано, но у меня не заработала
(взято с http://www.sources.ru/pascal/disks/index.htm)
http://www.sources.ru/pascal/disks/int69h.htm

(2) элементарно: Writeln(paramstr(0));
(3) не понял. Если в имени открываемого файла не указывать путь, то будет открыт в той папке, в которой был запущен исполняемый файл

1719. Владимир (05.03.2009 21:51)

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

Ответ: Что понимаете по термином "список": массив или, скажем, динамическую структуру, однонаправленный список?

1718. Владимир (05.03.2009 21:50)

Задача

Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Из файла f получить файл q, исключив повторные вхождения чисел. Порядок следования чисел сохранить. (За ранее благодарен)

Ответ: Какой тип файлов: текстовый?

1717. Владимир (05.03.2009 21:49)

Построить множество, состоящее из совершенных чисел в интервале от 1 до 255. Совершенным называется такое число, которое равно сумме всех своих делителей, за исключением самого числа, например, 28 = 1 + 2 + 4 + 7 + 14.

Ответ: Файл с исходным кодом возьмите в разделе Программы - простые по номером 74
или просто по адресу
http://borlpasc.narod.ru/prog/PERFECT.PAS

1716. Владимир (05.03.2009 21:47)

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

Ответ: Предполагается, что эта информация где-то хранится. От этого зависит и способ реализации

1715. Владимир (05.03.2009 21:45)

Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд.

Ответ: CONST
nums: Set of char =[''0''..''9''];
VAR
S, numStr: String;
i, j, len, max_len: Integer;
BEGIN
WriteLn(''Введите строку:'');
ReadLn(S);
S:=''adif8asbhjgdgdas'';

max_len:= 0;
numStr := '''';
for i:=1 to length(s) do
if S[i] in nums then
begin
len := 0; j:=i;
while (S[i] in nums) and (i <= length(S)) do
begin
inc(len); inc(i)
end;
if len > max_len then
begin
max_len := len;
numStr := Copy(S, j, len);
end
end;
WriteLn(S);
if max_len > 0 then WriteLn(max_len,'' '',numStr)
else WriteLn(''В строке нет цифр'');
end.

1714. Владимир (05.03.2009 21:43)

Задача 1

В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму всех элементов, расположенных между первым и вторым нулевыми элементами. Сжать массив, удалив из него все элементы, модуль которых находится в интервале [a, b]. Вывести на экран исходный и преобразованный массивы, а также результаты расчета.
Задача 2

В матрице K(m,n) первый элемент каждой строки - шифр детали, остальные элементы - характеристики этой детали. Выявить, распечатать и удалить строки с совпадающими шифрами, но несовпадающими характеристиками. Вывести также на экран получившуюся после обработки матрицу. (За ранее спасибо)

Ответ: Решение первой задачи найдете в разделе "Среднии" программы по номером 94 или по прямой ссылке
http://borlpasc.narod.ru/Boris/progs/VLAD03.PAS

По второй задаче лучше сами напишите пример матрицы, чтобы сократить мне время работы

		Пятница, 18.10.2024
	Мой сайт