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

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


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

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 389
от 04.06.2007, 05:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 254, Экспертов: 61
В номере:Вопросов: 4, Ответов: 5


Вопрос № 89118: Умножение двух чисел в q-ичной системе исчисления, где q и числа - параметры, задаются. q <= 16. Пожалуйста, срочно надо.......
Вопрос № 89131: Есть функция Count, которая получает 2 параметра Str1 I Str2 типа стринг и возвращает число, которое указывает, сколько раз Str2 встречается в Str1. >Функция не должна изменять свои параметры. Кроме того, любая буква в str1 может считаться не...
Вопрос № 89135: Здравствуйте. Помогите пожалуйста решить задачу: написать программу умножения в двоичной СИ. Итак у меня уже есть 2 программы 1:переводит 2 числа двоичной системы в десятичную и перемножает их, 2 программа переводит из десятичной обратно в двоичную л...
Вопрос № 89149: Скажите пожалуйста, как понять фразу "x принадлежит [0,1;0,6] - одно значение" из приложения. Почему одно значение?В какой точке вычислять то? Спасибо. ..

Вопрос № 89.118
Умножение двух чисел в q-ичной системе исчисления, где q и числа - параметры, задаются. q <= 16. Пожалуйста, срочно надо....
Отправлен: 29.05.2007, 16:19
Вопрос задал: Рудниченко Алексей (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич
Здравствуйте, Рудниченко Алексей!

Смотрите приложение.
Программа умножает два 100 разрядных числа.
При вводе 16-х чисел цифры от "A" до "F" нужно переходить в режым прописных букв (использовать шифт).
При вводе q > 16 будут использоватся буквы латинского алфавита от "A" до "F".
При вводе 16-х чисел цифры от "A" до "F" нужно переходить в режым прописных букв (использовать шифт).
Система счисления не имет значения, главное чтобы произведение двух любых разрядов не привышало 32000, если имеет значение замените строку:
if q>1 then
на
if (q>1)and(q<17) then
Удачи!

Приложение:

---------
И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент)
Ответ отправлен: 29.05.2007, 18:53
Оценка за ответ: 5
Комментарий оценки:
СПАСИБО!!! Большое спасибо! Завтра последний день сдачи курсовой! Выручили!


Вопрос № 89.131
Есть функция Count, которая получает 2 параметра Str1 I Str2 типа стринг и возвращает число, которое указывает, сколько раз Str2 встречается в Str1.
>Функция не должна изменять свои параметры. Кроме того, любая буква в str1 может считаться не больше чем одно вхождение Str2, например
>Count ('Балалайка', 'ала') должна возращать значение 1 а не 2.
>Я написал функцию, но у меня функция изменяет свои параметры.
>Подскажите как сделать правильно?
>Заранее благодарен!
>P.S. Скопировать параметр в другую переменную и ее уже изменять нельзя (по уловию препода).

Приложение:

Отправлен: 29.05.2007, 17:14
Вопрос задал: Бураменский Максим Александрович (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей
Здравствуйте, Бураменский Максим Александрович!
См. вариант функции в приложении. Вместо удаления из строки первых символов можно просто хранить в дополнительной переменной смещение поиска относительно начала. Тогда текстом для поиска будет не вся переменная s1, а её фрагмент от позиции поиска до конца.

Приложение:

---------
Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор)
Россия, Тула
WWW: Программирование на DELPHI
----
Ответ отправлен: 29.05.2007, 17:26

Отвечает: Устинов С.Е.
Здравствуйте, Бураменский Максим Александрович!

Можно сделать, например, вот так:

function count(s1,s2:string):integer;
var n,i:integer;
begin
i:=0;
n:=0;
while i<=length(s1)-length(s2) do
begin
inc(i);
writeln(copy(s1,i,length(s2)));
if copy(s1,i,length(s2))=s2 then
begin
inc(n);
i:=i+length(s2)-1;
end
end;
count:=n;
end;


Удачи!
---------
Ждешь квалифицированного ответа? Задай правильно вопрос!
Ответ отправил: Устинов С.Е. (статус: Специалист)
Ответ отправлен: 29.05.2007, 17:45


Вопрос № 89.135
Здравствуйте. Помогите пожалуйста решить задачу: написать программу умножения в двоичной СИ. Итак у меня уже есть 2 программы 1:переводит 2 числа двоичной системы в десятичную и перемножает их, 2 программа переводит из десятичной обратно в двоичную любое число. Мне надо их совестить, вот неполучается.

Напишите пожалуйста код программы (если сделаете), и желательно проверенной(мне завтра надо сдать), свои 2 программы в приложении...

Приложение:

Отправлен: 29.05.2007, 17:49
Вопрос задал: Сватко Алексей Михайлович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Shao
Здравствуйте, Сватко Алексей Михайлович!

Вот, пожалуйста. Делал вечером и торопился.
Вроде работает... :)

Приложение:

Ответ отправил: Shao (статус: 1-ый класс)
Ответ отправлен: 31.05.2007, 00:09


Вопрос № 89.149
Скажите пожалуйста, как понять фразу "x принадлежит [0,1;0,6] - одно значение" из приложения. Почему одно значение?В какой точке вычислять то? Спасибо.

Приложение:

Отправлен: 29.05.2007, 19:17
Вопрос задал: Piit (статус: 6-ой класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Nazar__D
Здравствуйте, Piit!
Мне кажется, что здесь имеется в виду то, что нужно использовать функцию randomize на диапазоне от 0,1 до 0,6.
---------
Я - українець!
Ответ отправил: Nazar__D (статус: 1-ый класс)
Ответ отправлен: 29.05.2007, 19:40


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

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.52 от 02.05.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное