Отправляет 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


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


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

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

Статистика

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

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


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

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

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

Micren
Статус: Практикант
Рейтинг: 232
∙ повысить рейтинг >> 		Пупорев Юрий Борисович
Статус: Специалист
Рейтинг: 207
∙ повысить рейтинг >> 		Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 148
∙ повысить рейтинг >>

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

Выпуск № 897 от 02.06.2009, 04:05
Администратор рассылки: Калашников О.А., Руководитель
В рассылке: подписчиков - 337, экспертов - 146
В номере: вопросов - 2, ответов - 2

Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
оценить выпуск >>

Вопрос № 168397: Ввести дату в формате дд.мм.гг Проанализировать правильность ввода даты. Месяц должен лежать в интервале от 1 до 12. Если месяц четный, то число дней не должно превышать 30, а для февраля 28 или 29 в зависимости от того, является ли год високосным...

Вопрос № 168413: Как мне избавится от дублирующего кода в функциях CalculationK и CalculationF???
Код:
   

   
   Вопрос № 168397:
   

   Ввести дату в формате дд.мм.гг
Проанализировать правильность ввода даты. Месяц должен лежать в интервале от 1 до 12. Если месяц четный, то число дней не должно превышать 30, а для февраля 28 или 29 в зависимости от того, является ли год високосным.
Если месяц нечетный, то число дней в нем может быть до 31.
Год в интервале от 1000 до 3000.
Если  ошибка : "Неправильно введена даты, а именно число (месяц,год)"

   

   Отправлен: 27.05.2009, 17:41

   Вопрос задал: lolit, Посетитель 

   Всего ответов: 1

   Страница вопроса >>
   

    Отвечает Пупорев Юрий Борисович, Специалист :

    Здравствуйте, lolit!
Интересно кто это сказал, что во всех четных месяцах по 30 дней? А август, октябрь, декабрь?
То же и с нечетными.
В приложении правильное решение этой задачи.    
     

     Приложение:

     
    

    Ответ отправил: Пупорев Юрий Борисович, Специалист 

    Ответ отправлен: 27.05.2009, 18:36
    

    

    
Как сказать этому эксперту "спасибо"?

    

    
  • Отправить SMS #thank 249928 
    на номер 1151 (Россия) | 
    Еще номера >>
    
    • 
    
    
    
    
    
    
    
    
    
    
  • Отправить WebMoney:
     
    
    
    • 
    
    
    Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    
    
    
    
    
   
    
   
   Вопрос № 168413:
   
    
   Как мне избавится от дублирующего кода в функциях CalculationK и CalculationF???
    Код:
    Program KKR2_10;
    uses CRT;
    type TLimits=record
                 LeftFrontier:extended;
                 RightFrontier:extended;
         end;

    Procedure InputWithChecking(var Value:extended;
MinValue:extended);
    begin
      repeat
        readln(Value);
       if (Value<=MinValue) then writeln ('Ошибка ввода! Повторите ввод!');
      until (Value>MinValue);
    end;

    Procedure Input(var l:TLimits; var h,e:extended);
    begin
      write('Введите, пожалуйста, а, левую границу интервала вычислений функции ');
      readln(l.LeftFrontier);
      write('Введите, пожалуйста, b (b>a), правую границу интервала вычислений функции ');  InputWithChecking(l.RightFrontier,l.LeftFrontier);
      write('Введите, пожалуйста, величину шага изменения аргумента h (h>0) ');
      InputWithChecking(h,0);
      write('Введите, пожалуйста, точность вычислений e (e>0) и нажмите "ENTER" ');
      InputWithChecking(e,0);
    end;

    Function FunctionX(x,k:extended):extended;
    begin
      FunctionX:=(-sqr(x)*(2*k-1))/(sqr(2*k+1)*2*k);
    end;

    Function CalculationF(n:longint; x,e:extended):extended;
    var c,d,f:extended;
    
   k:longint;
    begin
      c:=1;
      k:=0;
      f:=0;
      d:=c*x;
      while abs(d)>e do
        begin
          f:=f+d;
          k:=k+1;
          c:=FunctionX(x,k);
          d:=c*d;
        end;
      CalculationF:=f;
    end;

    Function CalculationK(n:longint; x,e:extended):longint;
    var c,d,f:extended;
        k:longint;
    begin
      c:=1;
      k:=0;
      f:=0;
      d:=c*x;
      while abs(d)>e do
        begin
          f:=f+d;
          k:=k+1;
    
       c:=FunctionX(x,k);
          d:=c*d;
        end;
      CalculationK:=k;
    end;

    Function CalculationX(l:TLimits; i:longint; h:extended):extended;
    begin
      Calculationx:=l.LeftFrontier+h*(i-1);
    end;

    Procedure PrintTableRows(l:TLimits; h,e:extended);
    var i,n:longint;
    begin
      n:=trunc((l.RightFrontier-l.LeftFrontier)/h);
      writeln('                 ТАБЛИЦА ЗНАЧЕНИЙ ФУНКЦИИ                      ');
      writeln('-----------------------------------------------------------------');
    
 writeln('|      №       |       x     |        f(x)   |     № чл. р.     |');
      writeln('-----------------------------------------------------------------');
      for i:=1 to n do
        writeln('|      ',i:4,'    |    ',CalculationX(l,i,h):4:2,'     |     ',
        CalculationF(n,CalculationX(l,i,h),e):4:2,'      |       ',CalculationK(n,CalculationX(l,i,h),e):4,'       |');
      writel
 n('-----------------------------------------------------------------');
    end;

    var h,e:extended;
        l:TLimits;
    begin
      clrscr;
      writeln('Здравствуйте, уважаемый пользователь!');
      writeln('Эта программа вычисления таблицы значений функции, заданной в виде разложения в ряд');
      Input(l,h,e);
      PrintTableRows(l,h,e);
      readln;
    end.
    
   
    
   Отправлен: 27.05.2009, 21:11
    
   Вопрос задал: Bel9illi, Посетитель 
    
   Всего ответов: 1
    
   Страница вопроса >>
   
    
    Отвечает Зенченко Константин Николаевич, Модератор :
    
    Здравствуйте, Bel9illi.
    Есть два варианта решения Вашей задачи, оба в приложении.
    1)с помощью процедуры;
    2)с помощью функции.
    В обоих вариантах нужно использовать параметр(ы)-переменные.
    Внимание: второй вариант зависит от того как компилятор формирует выводимую строку в операторе writeln, у меня ТР7.0, он формирует строку с правой стороны в сторону начала выводимой строки. Если у Вас будет формироватся по другому, Вам нужно будет поменять местами тип функции
и параметра-переменной и соответсвенно место вызова функции.

    Единица или двойка в начале строки говорят какой вариант работает.
      
    Удачи!    
     
    
     Приложение:
    
     
Украина, Киев
    Тел.: +38-097-953-66-19
    Адрес: Украина, Киев 

    -----
    Итерация от человека. Рекурсия — от Бога. — Л. Питер Дойч    
    
    Ответ отправил: Зенченко Константин Николаевич, Модератор 
    
    Ответ отправлен: 27.05.2009, 22:39
    
    
    
    
    
    Как сказать этому эксперту "спасибо"?
    
    
    
    
  • Отправить SMS #thank 249942 
    на номер 1151 (Россия) | 
    Еще номера >>
    
    • 
    
    
    
    
    
    
    
    
    
    
  • Отправить WebMoney:
     
    
    
    • 
    
    
    Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    
    
    
    
    
 
    
 Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
    
 оценить выпуск >>
 
    
 
  
    подать вопрос экспертам этой рассылки >>
    
 
    
 
    Скажите "спасибо" эксперту, который помог Вам!
    

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

 
    
 
 
    
 
    © 2001-2009, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.0 beta от 24.05.2009
    В избранное