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

Тема: Получить последовательность вещественных чисел. Помогите.

  1. #1 Получить последовательность вещественных чисел. Помогите. 
    Новичок
    Регистрация
    28.12.2014
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Заранее большое спасибо! Задание находится во вложении

    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Последний раз редактировалось >Quiet Snow<; 28.12.2014 в 13:05.
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    Похоже препод сам не проверял условие. Код FreePascal:

    Код Pascal:
    Uses Crt;
    Const
      Pi = 3.141592653589793;
      n = 15;
    Var
      c : Array[1..n] Of Real;
      s : Real;
      i : Integer;
    Begin
      ClrScr;
      For i := 1 To n Do Begin
         c[i] := SIN(2 * Pi / 3 + SQRT(i));
         If c[i] >= 0 Then s := s + c[i];
         If c[i] < 0 Then c[i] := s;
         Write(c[i]:2:4, '  ');
      End;
      Repeat Until Keypressed;
    End.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
     

  3. 2 пользователя(ей) сказали cпасибо:

    FelixMacintosh (28.12.2014), nik_1 (05.01.2015)

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

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

Похожие темы

Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •