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

Тема: Задачи по Basic

  1. #1 Задачи по Basic 
    Новичок
    Регистрация
    13.01.2014
    Сообщений
    4
    Сказал(а) спасибо
    1
    Поблагодарили 1 раз в 1 сообщении
    Добрый день. Мне нудно выполнить два задания на языке Basic. Я раньше учил TurboPascal, потом перешёл на Delphi, а сейчас вот Basic.
    1. Вычислить сумму всех четных положительных чисел,след.числового ряда 2,4 -3,0,5,1,6.
    2. Вычислить сумму элементов, кратных пяти,след.числового ряда -10,3, 8,15,5.
    Нужно каким-то образом через Input For.
    Я вот так сделал. Но это не подходит. Именно через Input For.

    INPUT "a",a
    INPUT "b",b
    INPUT "c",c
    INPUT "d",d
    INPUT "e",e
    INPUT "f",f
    INPUT "g",g
    SUM=0
    IF a>0 THEN SUM=SUM+a ELSE SUM=SUM
    IF b>0 THEN SUM=SUM+b ELSE SUM=SUM
    IF c>0 THEN SUM=SUM+c ELSE SUM=SUM
    IF d>0 THEN SUM=SUM+d ELSE SUM=SUM
    IF e>0 THEN SUM=SUM+e ELSE SUM=SUM
    IF f>0 THEN SUM=SUM+f ELSE SUM=SUM
    IF g>0 THEN SUM=SUM+g ELSE SUM=SUM
    PRINT SUM

    Помогите, пожалуйста.
    Ответить с цитированием  
     

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

  3. #3  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Цитата Сообщение от Sanet Посмотреть сообщение
    Добрый день. Мне нудно выполнить два задания на языке Basic. Я раньше учил TurboPascal, потом перешёл на Delphi, а сейчас вот Basic.
    1. Вычислить сумму всех четных положительных чисел,след.числового ряда 2,4 -3,0,5,1,6.
    2. Вычислить сумму элементов, кратных пяти,след.числового ряда -10,3, 8,15,5.
    Нужно каким-то образом через Input For.
    Я вот так сделал. Но это не подходит. Именно через Input For.

    INPUT "a",a
    INPUT "b",b
    INPUT "c",c
    INPUT "d",d
    INPUT "e",e
    INPUT "f",f
    INPUT "g",g
    SUM=0
    IF a>0 THEN SUM=SUM+a ELSE SUM=SUM
    IF b>0 THEN SUM=SUM+b ELSE SUM=SUM
    IF c>0 THEN SUM=SUM+c ELSE SUM=SUM
    IF d>0 THEN SUM=SUM+d ELSE SUM=SUM
    IF e>0 THEN SUM=SUM+e ELSE SUM=SUM
    IF f>0 THEN SUM=SUM+f ELSE SUM=SUM
    IF g>0 THEN SUM=SUM+g ELSE SUM=SUM
    PRINT SUM
    Помогите, пожалуйста.
    Прежде всего в строках "IF d>0 THEN SUM=SUM+d ELSE SUM=SUM", совершенно излишне писать "ELSE SUM=SUM", строка должна выглядеть так: "IF d>0 THEN SUM=SUM+d", т.к. Вы ничего в альтернативном условии не делаете.

    Тьфу на Вас совсем!!!!! А еще пишите, что на паскале программировали
    Ввод данных с помощью оператора input, в цикле For. Ну почему я за Вас должен формулировать!
    Вот как выглядит ввод данных и получение суммы положительных чисел:
    Код :
    INPUT "vvedite kol-vo chlenjv ryada ", ryad
    DIM r(ryad)
    FOR i = 1 TO ryad
      PRINT "vvedite alement ("; i; ")=";
      INPUT "", r(i)
    NEXT i
    SUM = 0
    FOR i = 1 TO ryad
      IF r(i) > 0 THEN SUM = SUM + r(i)
    NEXT
    PRINT SUM
    Ответить с цитированием  
     

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

    Sanet (14.01.2014)

  5. #4  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Вот решение для обоих ваших задачек.
    Первый цикл для ввода данных, второй цикл по заданию 1, третий цикл по заданию 2.
    Код :
    CLS
    INPUT "vvedite kol-vo chlenjv ryada ", ryad
    DIM r(ryad)
    FOR i = 1 TO ryad
      PRINT "vvedite alement ("; i; ")=";
      INPUT "", r(i)
    NEXT i
    SUM = 0
    FOR i = 1 TO ryad
      IF r(i) > 0 AND r(i) MOD 2 = 0 THEN SUM = SUM + r(i)
    NEXT i
    PRINT "zn1="; SUM
    SUM = 0
    FOR i = 1 TO ryad
      IF r(i) MOD 5 = 0 THEN SUM = SUM + r(i)
    NEXT i
    PRINT "zn2="; SUM
    Ответить с цитированием  
     

  6. #5  
    Новичок
    Регистрация
    13.01.2014
    Сообщений
    4
    Сказал(а) спасибо
    1
    Поблагодарили 1 раз в 1 сообщении
    Спасибо большое!
    Ну да, я просто не так сформулировал. Запятую между Input и For пропустил. Я просто тороплюсь с решением и так сглупил.
    Спасибо ещё раз!
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Транспортные задачи и задачи о назначениях и отбор
    от muzon45 в разделе Общие вопросы программирования
    Ответов: 0
    Последнее сообщение: 07.12.2013, 18:40
  2. Задачи с массивами
    от Дмитрий 1993 в разделе QBasic
    Ответов: 13
    Последнее сообщение: 04.03.2012, 05:57
  3. Помогите решить задачи по BASIC -y
    от Denis в разделе QBasic
    Ответов: 1
    Последнее сообщение: 19.01.2012, 06:35
  4. Задачи qbasic
    от sanchez6666 в разделе QBasic
    Ответов: 25
    Последнее сообщение: 08.11.2011, 00:10
  5. 2 несложные задачи
    от Polina в разделе QBasic
    Ответов: 5
    Последнее сообщение: 10.05.2011, 04:42
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •