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

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.304 RSS
←   Май 2009   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
13.05.2009
03:18:18
17:37:58
14
15
16
16.05.2009
21:22:12
23:39:00
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


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


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

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

Статистика

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

RusFAQ.ru: Программирование на Delphi


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

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

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

Влaдимир
Статус: 9-й класс
Рейтинг: 181
∙ повысить рейтинг >> 		Тимошенко Дмитрий
Статус: Студент
Рейтинг: 138
∙ повысить рейтинг >> 		Spirit87
Статус: 3-й класс
Рейтинг: 31
∙ повысить рейтинг >>

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

Выпуск № 1370
от 16.05.2009, 23:35

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

Вопрос № 166945: Здравствуйте уважаемые эксперты!!! Помогите решить задачку в Delphi 7, а то никак не выходит!!! "День недели". Составить программу нахождения по дате рождения дня недели, знака зодиака. Нужно решить до 14.05.2009!!! Я буду...

Вопрос № 166952: Помогите пожалуста с задачей: Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр. Через переменую For...
Вопрос № 166961: 1.Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего среди отрицательных чисел этой последовательности. Использовать оператор "For"...
Вопрос № 166984: Помогите пожалст решить пару задач по циклам. 1. Написать программу которая будет выводить числа, у квадратов которых на конце бу ква равная етому числу(пример. 6^2=36, 5^2=25 и тд.) 2. Написать программу, которая исключает цифры 0 и 5(приме...
Вопрос № 167002: Найти наибольшую цифру в записи данного натурального числа. Использовать оператор "while"...

Вопрос № 166.945
Здравствуйте уважаемые эксперты!!!
Помогите решить задачку в Delphi 7, а то никак не выходит!!!

"День недели". Составить программу нахождения по дате рождения дня недели, знака зодиака.

Нужно решить до 14.05.2009!!! Я буду очень благодарен, если вы мне поможете)
Отправлен: 11.05.2009, 12:52
Вопрос задал: Ушков Гргорий Дмитриевич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Genia007
Здравствуйте, Ушков Гргорий Дмитриевич!
Вот посмотрите что у меня получилось:
дата рождения вводится в edit в формате 11.05.2009, а в первой метки выводится день недели, знак зодиака во второй метки
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  den, y, m, d: word;
begin

 den:= DayOfWeek(StrToDate(Edit1.Text));
  case den of
    1 : Label1.Caption:= 'Воскресенье';
    2 : Label1.Caption:= 'Понедельник';
    3 : Label1.Caption:= 'Вторник';
    4 : Label1.Caption:= 'Среда';
    5 : Label1.Caption:= 'Четверг';
    6 : Label1.Caption:= 'Пятница';
    7 : Label1.Caption:= 'Суббота';
  end;
  DecodeDate(StrToDate(Edit1.Text), y, m, d);
  If ((d
  >= 21) and (m = 1)) or ((d <= 20) and (m = 2)) then
    Label2.Caption:= 'Водолей';
  If ((d >= 21) and (m = 2)) or ((d <= 20) and (m = 3)) then
    Label2.Caption:= 'Рыбы';
  If ((d >= 21) and (m = 3)) or ((d <= 20) and (m = 4)) then
    Label2.Caption:= 'Овен';
  If ((d >= 21) and (m = 4)) or ((d <= 20) and (m = 5)) then
    Label2.Caption:= 'Телец';
  If ((d >= 21) and (m = 5)) or ((d <= 21) and (m = 6)) then
    Label2.Caption:=
'Близнецы';
  If ((d >= 22) and (m = 6)) or ((d <= 22) and (m = 7)) then
    Label2.Caption:= 'Рак';
  If ((d >= 23) and (m = 7)) or ((d <= 23) and (m = 8)) then
    Label2.Caption:= 'Лев';
  If ((d >= 24) and (m = 8)) or ((d <= 23) and (m = 9)) then
    Label2.Caption:= 'Дева';
  If ((d >= 24) and (m = 9)) or ((d <= 23) and (m = 10)) then
    Label2.Caption:= 'Весы';

   If ((d >= 24) and (m = 10)) or ((d <= 22) and (m = 11)) then
    Label2.Caption:= 'Скорпион';
  If ((d >= 23) and (m = 11)) or ((d <= 21) and (m = 12)) then
    Label2.Caption:= 'Стрелец';
  If ((d >= 21) and (m = 12)) or ((d <= 20) and (m = 1)) then
    Label2.Caption:= 'Козерог';
end;

---------
Помогли тебе, помоги и ты.
Ответ отправил: Genia007 (статус: Студент)
Ответ отправлен: 11.05.2009, 14:31

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

    Вопрос № 166.952
    Помогите пожалуста с задачей:
    Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.
    Через переменую For
    Отправлен: 11.05.2009, 13:49
    Вопрос задал: Hotmot (статус: Посетитель)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 0)
    Отвечает: Тимошенко Дмитрий
    Здравствуйте, Hotmot!

    Программа в приложении. Вопросы в форум.

    Приложение:

    Ответ отправил: Тимошенко Дмитрий (статус: Студент)
    Ответ отправлен: 13.05.2009, 05:16

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

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

    Вопрос № 166.961
    1.Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего среди отрицательных чисел этой последовательности. Использовать оператор "For"
    Отправлен: 11.05.2009, 15:25
    Вопрос задал: Антон Васильевич Апперитив
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 1)
    Отвечает: Genia007
    Здравствуйте, Антон Васильевич Апперитив!
    К примеру можно сделать вот так:
    Код:
    var
      Form1: TForm1;
      a: array of real;
      n, kol: word;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    var
      i: word;
      c, d: real;
    begin
    
 c:= 0;
      d:= 0;
      for I := 0 to n - 1 do
        begin
          if a[i] < 0 then
            c:= a[i];
          if c < d then
            d:= c;
        end;
      Label1.Caption:= FloatToStr(d);
    end;

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if key = #13 then
        begin
          if kol <= n - 1 then
            begin
              a[kol]:= StrToFloat(Edit1.Text);
              Memo1.Lines.Add(FloatToStr(a[kol])
 );
            end;
          inc(kol);
        end;
    end;

    procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
    begin
      if key = #13 then
        begin
          n:= StrToInt(Edit2.Text);
          SetLength(a, n);
          kol:= 0;
          Memo1.Clear;
        end;
    end;

    Во второй edit вводим число n и давим enter, а в первый по очереди вещественные после каждого числа давим enter. По нажатию кнопки и происходит расчёт.
    ---------
    Помогли тебе, помоги и ты.
    Ответ отправил: Genia007 (статус: Студент)
    Ответ отправлен: 11.05.2009, 19:28

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

    Вопрос № 166.984
    Помогите пожалст решить пару задач по циклам.
    1. Написать программу которая будет выводить числа, у квадратов которых на конце буква равная етому числу(пример. 6^2=36,
    5^2=25 и тд.)
    2. Написать программу, которая исключает цифры 0 и 5(пример.05590501 должно вывести 91).
    Заранее спс. Очень важно, потому что я нешарю в программировании.
    Отправлен: 11.05.2009, 19:18
    Вопрос задал: Rainheart74 (статус: Посетитель)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 6)
    Отвечает: Boriss
    Здравствуйте, Rainheart74!
    Вот и второе.
    Пример окна программы
    Код:
    Input positive integer: 0955500020105
    921
    Press ENTER

    Приложение:

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

    Ответ отправил: Boriss (статус: Профессор)
    Россия, Саранск
    Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники
    WWW: Программирование на Паскале
    ICQ: 320096696
    ----
    Ответ отправлен: 11.05.2009, 21:55

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

    Вопрос № 167.002
    Найти наибольшую цифру в записи данного натурального числа.
    Использовать оператор "while"
    Отправлен: 11.05.2009, 20:46
    Вопрос задал: Joker37 (статус: Посетитель)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 0)
    Отвечает: Boriss
    Здравствуйте, Joker37!
    А что тут сложного? Вот пример окна программы
    Код:
    Input integer: 134897
    Max digit is: 9
    Press ENTER
    , а в приложении - код ее

    Приложение:

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

    Ответ отправил: Boriss (статус: Профессор)
    Россия, Саранск
    Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники
    WWW: Программирование на Паскале
    ICQ: 320096696
    ----
    Ответ отправлен: 11.05.2009, 22:02

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

    Оценка за ответ: 5
    Комментарий оценки:
    Cпасибо огромное! Что бы я без вас делал!)

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

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

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

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

    Обратите внимание!
    Вопрос будет отправлен всем экспертам данной рассылки!
    Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
    экспертам другой рассылки портала 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
    В избранное