Важная информация
Показано с 1 по 4 из 4

Тема: помогите написать программу

  1. #1 помогите написать программу 
    Новичок
    Регистрация
    06.11.2013
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    помогите, пожалуйста, написать программу
    Изображения
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Нарисовал блоксхему, 40 минут мучился, очень устал, программу потом напишу.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    Абадябер (06.11.2013)

  4. #3  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    В блок схему не смотрел.
    Код pascal:
    Uses Crt;
    Var
       x, a, n  :  LongInt;
       y, v     :  Double;
    Begin
       ClrScr;
       Write ('Vvedite x: ');
       ReadLn(x);
       Write ('Vvedite a: ');
       ReadLn(a);
       Write ('Vvedite n: ');
       ReadLn(n);
     
          If x < 5 - a Then Begin
           y := cos(x);
          End
          Else Begin
             If x < a Then Begin y := cos(x); End;
             If x >= a Then Begin y := 6 * Abs(x); End;
          End;
     
          If (n And 1) = 0 Then Begin  {чётное}
            If (n >= 4) And (n <= 8) Then Begin
              v := x / n;
            End;
          End
          Else Begin                   {нечётное}
              v := 0.3;
          End;
     
       WriteLn ('y = ', y:4:4);
       WriteLn ('v = ', v:4:4);
       Repeat Until Keypressed;
    End.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  5. Пользователь сказал cпасибо:

    Абадябер (06.11.2013)

  6. #4  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
    В блок схему не смотрел.
    Да что в нее смотреть
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. помогите написать программу
    от Стамус в разделе QBasic
    Ответов: 5
    Последнее сообщение: 18.10.2012, 20:35
  2. Ответов: 19
    Последнее сообщение: 03.06.2011, 04:49
  3. Ответов: 2
    Последнее сообщение: 30.05.2011, 12:25
  4. Ответов: 2
    Последнее сообщение: 26.05.2011, 17:44
  5. Ответов: 3
    Последнее сообщение: 29.11.2010, 02:08
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •