Бейсик

[UniqueANGEL]

Добрый вечер! Помогите, пожалуйста, решить задачу на Бейские. Составить программу вычисления и выдачи на печать суммы N элементов бесконечного числового ряда:
У=-20+15-10+5-0+...
Если возможно, нарисуйте блок-схему.

[RUSt88]

бейсик 6.0 ? или .NET ?

формула так будет
у = (-20 + 15) - (10 + 5) - (0 - 5) - (-10 - 15) - (-20 - 25) - ... (если не так поправь)

далее уточни, элемент это то, что взято в скобки?

[UniqueANGEL]

Я написала так, как было написано у меня в контрольной работе. Там никаких скобок не было. По-моему, элемент - это каждое число, которое отличается от предыдущего знаком и на 5 единиц.

нужно задачу решить на QBasic

[RUSt88]

Angel, че т я плохо понимаю формулу, просветли

при N = 9, как будет выглядеть, так

-20 +15 -10 +5 -0 -5 +10 -15 +20

[UniqueANGEL]

У меня прям такая же последовательность чисел получилась))

[RUSt88]

ангел, тебе к какому дню надо сделать?
могу сделать на c++, переделать потом сможешь на qbasic?

там просто переделать объявление переменных и цикл немного исправить

пример

int N; // объявление переменной типа integer, по-моему на basice так: dim N as Integer
cin>>N; // то, что ввел пользователь
for (int i = 0; i <= N; i++) { // цикл от 0 до N
    s += s - 5; // на басике будет так: s = s + s - 5
}

если тебя это устроит, то помогу

[UniqueANGEL]

Мне...чем скорее тем лучше(( а то еще много задач подобных решать.
Я, к сожалению, кроме бейсика ничего не изучала, но если ты на С++ мне решишь, то, думаю, я разберусь...

Спасибо, что подсказал...про цикл.. я вообще про это забыла...вот и сижу мучаюсь((
За 3 года все позабыла уже((

[RUSt88]

нажимаешь 5 раз на весы и отправляешь спасибо, я тебе код выкладываю
или поблагодари - положи сколько не жалко на мобильник

задание уже сделано

компилятора с++ под рукой нет, так что писал в блокноте, надо проверить

// при N = 9 будет выглядеть так
// -20 +15 -10 +5 -0 -5 +10 -15 +20

int ChislovoiRyad(int* N)
{
    int S, a;
    a = S = -20; // вычисляем от -20
    for (int i = 1; i < *N; i++)
    {
        if (i % 2 == 1) 
        {
            a = -(a + 5); // каждый раз получаем 15, 5, -5, -15 и т.д.
        }
        else
        {
            a = -(a - 5); // каждый раз получаем -10, 0, +10, +20 и т.д.
        }
        s += a; // считаем этот ряд числовой
    }
    return s; // возвращаем сумму ряда
}

зато проверил на Delphi, всё прекрасно работает
вот код

var
  i, s, a, N: integer;
begin
  a := -20;
  s := -20;
  n := StrToInt(txtN.Text) - 1;
  for i := 1 to N do begin
    if Odd(i) then // проверяем четность переменной цикла, чтобы получать каждый раз числа с разными знаками и меньше на 5 по модулю
      a := -(a + 5)
    else a := -(a - 5);
    s := s + a;
  end;
  ShowMessage(IntToStr(s)); // эт необязательно, просто вывод собщения с суммой ряда, значение содерж в переменной s
end;

да, и по поводу спасибо, отправляем 5 раз, а не 1

[UniqueANGEL]

)) хорошо))
Я эт задачу тоже решила...только через GOTO получилось немного быстрее...

Не знаю почему...но "Спасибо" тебе не отправляется...

[настенка=)]

привет=)) помогите

1.Среди заданных целых чисел , , найти пары кратных k l m
2. Составить программу, которая в зависимости от порядкового номе- ра дня недели (1, 2,…, 7) выводит на экран его название (понедельник, вторник,…, воскресенье).

3.В массиве С(n) подсчитать количество отрицательных и сумму положительных элементов.
4.Удалить в заданном массиве X(n) «лишние» (кроме первого) элементы так, чтобы оставшиеся образовали возрастающую последовательность

5.В массиве T(k) найти первый и последний нулевые элементы.
6.В массиве A(k) много совпадающих элементов. Найти количество различных элементов в нем

Помогите,пожалуйста!!!!!!
я в бейсике 0...=(