| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
1428.
врв
(08.10.2007 17:58)
0  
поуберайте русскме коментарии!
Ответ: Где? Возможно, вы имеете в виду "в исходных кодах программ"? Тогда может проще настроить среду разработки программ Паскаля на отображение русских букв?
Делается это несложно. Мы уже рассказывали об этом 2007_08_24 и 2007_07_25
|
1427.
Дмитрий
(02.10.2007 14:59)
0
Привет. Хотел бы обменяться ссылками с вашим ресурсом.
Наш проект "http://pascal-for-all.ucoz.ru" имеет похожую тематику.
|
1426.
metro
(27.09.2007 01:31)
0
ОС на ПАСКАЛЕ - РЕАЛЬНО
www.stimul.freepascal.ru
|
1425.
oPeNYouRMiNd
(25.09.2007 15:05)
0
просто, как арифметическая разность :)
|
1424.
oPeNYouRMiNd
(24.09.2007 22:09)
0
Превед, нужна помощь в написании программы на паскале!
вот текст задания:
[b]Построить матрицу расстояний фсех бинарных слов длины n, если они заданы в порядке возрастания числовых значений.[/b]
Заранее Спасибо!
Ответ: Есть варианты того, что называть расстоянием: модуль разности? То есть, биты как компоненты вектора рассматривать? Или просто арифметическая разность?
|
1423.
Эльмер Мошер
(21.09.2007 03:33)
0
Больщое спосибо за сайт!!!
Ответ: Спасибо за доброе слово. Но мы еще и помощь можем оказать - пишите, ежели что
|
1422.
GLbIBA
(06.09.2007 20:58)
0
сайт прикольный ток не пойму где качать паскаль!
Ответ: Ответил письмом
|
1421.
incognito
(24.08.2007 10:34)
0
dics писал:
Здаравствуйте!Подскажите как писать по русски в Turbo Pascal 7.0,а то у меня только по английски пишет.
----------------------
зайди на http://www.stuff.xost.ru/pages/soft/dev.shtml у меня там специально для этого патч написан, вручную ничего делать чтоб не надо было :)
|
1420.
Xorm
(16.08.2007 22:00)
0
Хороший сайт.
|
1419.
Аскар
(12.08.2007 16:21)
0
Спасибо,я скачаю у вас паскаль
Ответ: Если будут трудности - пишите - поможем
|
1418.
Sai-Fo-Dimos
(01.08.2007 06:48)
0
Это опять я! Добрался наконец-то до компа с интернетом! Но вот беда! Своего МорБоя у меня с собой нет(я его уже дописал)! Так что извиняйте, в следующий раз.
|
1417.
JanekMakowski
(31.07.2007 05:34)
0
I''d like to say hello to all people on this board.
Regards,
Janek
|
1416.
dics
(25.07.2007 10:09)
0
Здаравствуйте!Подскажите как писать по русски в Turbo Pascal 7.0,а то у меня только по английски пишет.
Ответ: Что бы русские буквы работали, можно сделать изменения в реестре.
вот что сделать надо
;Если в DOS-приложениях не переключается раскладка клавиатуры на русскую, хотя
;русские буквы отображаются нормально, то в файле autoexec.nt, расположенном в
;Winntsystem32, добавьте строку
;lh %SystemRoot%system32kb16.com ru
;и в реестре:
;[HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlKeyboardLayoutDosKeybCodes]
;"00000409"="ru"
|
1415.
Андрей
(19.07.2007 16:37)
0
Хороший сайт! Особенно полезно было ознакомиться с форматом Real - шестибайтовое плавающее число! Чудо, да и только!
Ответ: Да уж. И я тоже в свое время повозился с ним с удовольствием. Но надо все же применять тот формат, что родной для сопроцессора - double или extended. Паскалевский Real стоит в стороне от современных форматов.
|
1414.
Игорь
(16.07.2007 01:12)
0
Сформировать вектор из суммы элементов столбцов и найти их среднее арифметическое.
Ответ: Вот (извини, что долго - не часто выхожу в Интернет - отпуск):
--
const N = 10;
M = 13;
var matr: Array[1..N, 1..M] of Integer;
vect: Array[1..M] of LongInt;
i, j: Integer;
mid: Real;
BEGIN
{Заполняем случайными числами от 0 до 99}
for i:=1 to N do for j:=1 to M do matr[i,j]:= random(100);
{Показываем на экране матрицу}
for i:=1 to N do begin
for j:=1 to M do Write(matr[i,j]:5); Writeln end;
WriteLn(''-------------------------------------------'');
{Формируем вектор и показываем}
for j:=1 to M do begin
vect[j]:=0;
for i:=1 to N do vect[j]:= vect[j] + matr[i,j];
Write(vect[j]:5);
end;
WriteLn;
mid:=0; for j:=1 to M do mid:=mid + vect[j];
mid:=mid / M;
WriteLn(''mid = '',mid:12:5);
END.
|
|
|
|
