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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Март 2009   →
 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
31.03.2009
02:18:14
06:52:54


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


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

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

Статистика

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

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


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

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

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

Botsman
Статус: Студент
Рейтинг: 142
∙ повысить рейтинг >> 		Micren
Статус: Практикант
Рейтинг: 84
∙ повысить рейтинг >> 		Пупорев Юрий Борисович
Статус: Специалист
Рейтинг: 55
∙ повысить рейтинг >>

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

Выпуск № 839
от 30.03.2009, 04:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 250, Экспертов: 42
В номере:Вопросов: 3, Ответов: 4
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 163114: Решите пожалуйста задачу: Разработать программу для вычисления следующих матриц: (A²-3B²)т T-транспонировать (2,1 -4,5 -2 ) ( 0,5 -1,5 2) A= (3 2,5 4,3 ) B=( 0,23 1,5 2,...

Вопрос № 163155: Здравствуйте, уважаемые эксперты! помогите мне решить задачу в Паскале:<b> Найдите все трёхзначные числа, равные сумме кубов своих цифр. Учтите, что abc=100a+10b+c. </b>Заранее большое спасибо!...
Вопрос № 163163: Здравствуйте, помогите решить задачу: С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел. Значение N вводится с клавиатуры....

Вопрос № 163.114
Решите пожалуйста задачу:
Разработать программу для вычисления следующих матриц:
(A²-3B²)т
T-транспонировать
(2,1 -4,5 -2 ) ( 0,5 -1,5 2)
A= (3 2,5 4,3 ) B=( 0,23 1,5 2,3)
(-6 3,5 2,5 ) (0,6 3,1 2,5)
Отправлен: 24.03.2009, 07:47
Вопрос задал: Андреев Вадим николаевич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Пупорев Юрий Борисович
Здравствуйте, Андреев Вадим николаевич!
Решение с пояснениями в приложении.

Приложение:

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист)
Ответ отправлен: 24.03.2009, 12:01

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

    Вопрос № 163.155
    Здравствуйте, уважаемые эксперты! помогите мне решить задачу в Паскале: Найдите все трёхзначные числа, равные сумме кубов своих цифр. Учтите, что abc=100a+10b+c. Заранее большое спасибо!
    Отправлен: 24.03.2009, 17:33
    Вопрос задала: Юлия-Sonne (статус: Посетитель)
    Всего ответов: 2
    Мини-форум вопроса >>> (сообщений: 2)
    Отвечает: Micren
    Здравствуйте, Yuliya-bakumovva!
    Программа:
    Код:

    program Pascal_163155;
    { Диапазон поиска }
    const
     MIN=100;
     MAX=999;
    { Функция вычичляет сумму кубов цифр числа }
    function Sum3(num:Word):Word;
    var
     res,t:Word;
    begin
     res:=0;
     while num<>0 do begin
      t:=num
mod 10;
      res:=res+t*t*t;
      num:=num div 10;
     end;
     Sum3:=res;
    end;
    var
     i:Word;
    begin
     { Перебираем числа в цикле }
     for i := MIN to MAX do
       { Если число равно сумме кубов цифр то печатаем его }
      if i=Sum3(i) then WriteLn(i);
     ReadLn;
    end.

    Результат работы:
    Код:

    153
    370
    371
    407
    Ответ отправил: Micren (статус: Практикант)
    Ответ отправлен: 24.03.2009, 17:53

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

    Оценка за ответ: 5
    Комментарий оценки:
    спасибо большое!

    Отвечает: Бизин Михаил Анатольевич
    Здравствуйте, Юлия-Sonne!
    Текст в приложении. Результат будет такой:
    153
    370
    371
    407

    Добавленна потерянная цифра.
    --------
    ∙ Отредактировал: Зенченко Константин Николаевич, Профессор
    ∙ Дата редактирования: 24.03.2009, 21:41 (время московское)

    Приложение:

    Ответ отправил: Бизин Михаил Анатольевич (статус: 2-й класс)
    Ответ отправлен: 24.03.2009, 20:11

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

    Оценка за ответ: 5
    Комментарий оценки:
    Уважаемый Бизин Михаил Анатольевич, большое спасибо за ваш ответ!

    Вопрос № 163.163
    Здравствуйте, помогите решить задачу: С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел. Значение N вводится с клавиатуры.
    Отправлен: 24.03.2009, 18:35
    Вопрос задала: Юлия-Sonne (статус: Посетитель)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 1)
    Отвечает: Шевченко Дмитрий
    Здравствуйте, Юлия-Sonne!

    В приложении один из вариантов решения Вашей задачи.
    Если вводятся вещественные числа, то напрямую сравнивать их с нулём (x = 0) нельзя, потому что они хранятся в памяти с некоторой погрешностью и нулю могут быть не равны.
    Поэтому сравнивается их модуль с очень маленькой величиной, которую в условиях данной задачи можно принять за ноль. (abs(x) < 0.000001)

    Надеюсь, всё понятно объяснил.
    С уважением, Дмитрий.

    Приложение:

    Ответ отправил: Шевченко Дмитрий (статус: Студент)
    Ответ отправлен: 24.03.2009, 19:04

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

    Оценка за ответ: 5
    Комментарий оценки:
    Шевченко Дмитрий, большое спасибо, Вы все понятно объяснили, все сразу стало ясно:)

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

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

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

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

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


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

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

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

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

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

    © 2001-2009, Портал RusFAQ.ru, Россия, Москва.
    Авторское право: ООО "Мастер-Эксперт Про"
    Техподдержка портала, тел.: +7 (926) 535-23-31
    Хостинг: "Московский хостер"
    Поддержка: "Московский дизайнер"
    Авторские права | Реклама на портале

    ∙ Версия системы: 5.13 от 01.12.2008

    		Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru
    В избранное