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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Октябрь 2010   →
 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
31


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


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

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

Статистика

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

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


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

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

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

lamed
Статус: Профессор
Рейтинг: 3184
∙ повысить рейтинг » 		Boriss
Статус: Академик
Рейтинг: 2516
∙ повысить рейтинг » 		star9491
Статус: Профессионал
Рейтинг: 2466
∙ повысить рейтинг »

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

Номер выпуска:1131
Дата выхода:24.10.2010, 22:00
Администратор рассылки:Boriss (Академик)
Подписчиков / экспертов:191 / 184
Вопросов / ответов:3 / 4

Вопрос № 180364: Здравствуйте, уважаемые эксперты! Помогите, пожалуйста, решить задачк: Разработать метод f(x), который в двузначном числе меняет цифры местами, а остальные числа оставляет без изменения. Продемонстрировать работу данного метода на примере.<...

Вопрос № 180368: Здравствуйте, уважаемые эксперты! Помогите, пожалуйста, решить задачи: Метод, вычисляющий число а, для которого выполняется неравенство : http://10pix.ru/img1/3606/2435813.png , где n – натуральное число. Для подсчета числа а использова...
Вопрос № 180371: Здравствуйте, уважаемые эксперты! Помогите, пожалуйста, решить задачу: Вывести на экран числа в следующем виде: 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 (пользуюсь программой ABC)...
Вопрос № 180364:

Здравствуйте, уважаемые эксперты!
Помогите, пожалуйста, решить задачк:

Разработать метод f(x), который в двузначном числе меняет цифры местами, а остальные числа оставляет без изменения. Продемонстрировать работу данного метода на примере.

(пользуюсь программой ABC)

Отправлен: 19.10.2010, 02:10
Вопрос задал: verona (2-й класс)
Всего ответов: 2
Страница вопроса »

Отвечает Boriss (Академик) :
Здравствуйте, verona!
Что-то плохо Вы отвечаете на существенные вопросы ...
В приложении программа, которая, по-моему, решает Вашу задачу

Приложение:

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

Ответ отправил: Boriss (Академик)
Ответ отправлен: 23.10.2010, 13:08
Номер ответа: 263634

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 263634 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Отвечает lamed (Профессор) :
    Здравствуйте, verona!
    Доброе утро! Субботняя шутка. Без использования div. Учитываем, что ab+ba кратно 11.
    ABC
    Код:
    var
      x: integer;
    procedure reverse2(var n: integer);
    // "переворачивает" двузначное
число
    var
      c2: 0..9;
      m: integer;
      k : integer;
    begin
      if (n>=10) and (n<=99) then
        begin
          c2 := n mod 10;
         m:= n+c2*10;
         k:= m mod 11;
         n := m+(11 - k)-n;
        end;
    end;

    begin
      write('x=');
      readln(x);
      reverse2(x);
      writeln('x=', x);
    end.

    Примеры работы
    Код:
    x=123
    x=123

    x=12
    x=21

    x=78
    x=87

    x=77
    x=77

    x=19
    x=91

    Ответ отправил: lamed (Профессор)
    Ответ отправлен: 23.10.2010, 14:24
    Номер ответа: 263636

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 263636 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Вопрос № 180368:

    Здравствуйте, уважаемые эксперты!
    Помогите, пожалуйста, решить задачи:


    Метод, вычисляющий число а, для которого выполняется неравенство : http://10pix.ru/img1/3606/2435813.png , где n – натуральное число. Для подсчета числа а использовать формулу: http://10pix.ru/img1/3655/2435819.png

    (пользуюсь программой ABC)

    Отправлен: 19.10.2010, 09:04
    Вопрос задал: verona (2-й класс)
    Всего ответов: 1
    Страница вопроса »

    Отвечает lamed (Профессор) :
    Здравствуйте, verona! ABC
    Код:
    program p180368;
    { Метод, вычисляющий число а, для которого выполняется неравенство:
    http://10pix.ru/img1/3606/2435813.png , где n – натуральное число.
    Для подсчета числа а использовать
формулу:
    http://10pix.ru/img1/3655/2435819.png }

    var
      n: LongInt;
    function a(n:LongInt):integer;
    // Используется рекурсивная функция, что соответствует постановке задачи
    begin
      if (n=1) then
        a:=1
      else
        a:=a(n div 2)+1; // Рекурсивный вызов
    end;

    begin
      write('n=');
      readln(n);
      
      writeln('a(',n,')=', a(n));
    end.


    Примеры диалога
    Код:
    n=1
    a(1)=1
    n=3
    a(3)=2
    n=15
    a(15)=4
    n=65500
    a(65500)=16
    n=65536
    a(65536)=17

    Удачи!

    Ответ отправил: lamed (Профессор)
    Ответ отправлен: 19.10.2010, 11:18
    Номер ответа: 263546

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 263546 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Вопрос № 180371:

    Здравствуйте, уважаемые эксперты!
    Помогите, пожалуйста, решить задачу:

    Вывести на экран числа в следующем виде:
    1
    1 2
    1 2 3
    1 2 3 4
    1 2 3 4 5

    (пользуюсь программой ABC)

    Отправлен: 19.10.2010, 15:16
    Вопрос задал: verona (2-й класс)
    Всего ответов: 1
    Страница вопроса »

    Отвечает Boriss (Академик) :
    Здравствуйте, verona!
    Ответ Вам уже дан... Но, поскольку требуется дать "официальный" ответ, все думал, что бы такое написать ...
    В приложении пример рекурентной процедуры

    Приложение:

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

    Ответ отправил: Boriss (Академик)
    Ответ отправлен: 24.10.2010, 12:54
    Номер ответа: 263645

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 263645 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

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

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

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.22 от 18.10.2010
    В избранное