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

Тема: Ввести с клавиатуры 16 чисел, определить количество чисел равных -29; +29 и равных 0

  1. #1 Ввести с клавиатуры 16 чисел, определить количество чисел равных -29; +29 и равных 0 
    Новичок
    Регистрация
    16.01.2011
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Ввести с клавиатуры 16 чисел, определить количество чисел равных -29; +29 и равных 0
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Код qbasic:
    FOR i=1 TO 16
    INPUT "Vvedi chislo",c
    IF c=-29 THEN t1=t1+1
    IF c=29 THEN t2=t2+1
    IF c=0 THEN t3=t3+1
    NEXT i
    ? "-29 - ",t1," shtuk"
    ? "29 - ",t2," shtuk"
    ? "0 - ",t3," shtuk"
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Профи
    Регистрация
    08.11.2010
    Сообщений
    106
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от Kakos_nonos Посмотреть сообщение
    Код qbasic:
    FOR i=1 TO 16
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedi chislo",c
    IF c=-29 THEN t1=t1+1
    IF c=29 THEN t2=t2+1
    IF c=0 THEN t3=t3+1
    NEXT i
    ? "-29 - ",t1," shtuk"
    ? "29 - ",t2," shtuk"
    ? "0 - ",t3," shtuk"
    Приятно посмотреть на такой листинг!

    Современный программист создал бы массив, потом его бы отсортировал, результаты в массив, потом сделал бы выборку и получился бы жутко сложный код!
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  4. #4  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    То, что код хороший- Это ладно. Только вот по вопросу похоже, что это писал ученик, котому задали Д/З по информатике. Вот принесёт он такой код в школу, посмотрит на него учитель... Ну тут может быть два варианта: или даст решить подобную задачу в классе, или на олимпиаду отправит. Исход в обоих случаях будет одинаковый.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  5. #5  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Есть еще третий вариант, когда учителю будет пофиг, он влепит хорошую оценку, и довольный ученик отправится восвояси.
    По поводу решения - я надеюсь, что все, кто просит помощи в виде готовой программы, а затем получают ее, анализируют полученный код, чтобы хотябы немного разобраться в нем. Иначе, это уже проблемы самого ученика\студента и.т.п.

    Что касается самой программы, то в целом она построена без излишеств - мне нравиться такой вариант, разве что я бы поубирал немного мороки с If =)
    Почему мне нравиться? Т.к я сам скорее всего начал бы с объявления массива... Ну, вы поняли . Не потому что отношу себя к опытным программистам, просто для меня почему то это более очевидный вариант
    Дружба-магия-радость!
    Ответить с цитированием  
     

  6. #6  
    Профи
    Регистрация
    08.11.2010
    Сообщений
    106
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Я начинал знакомство с программированием именно с Бейсика. Именно в школе. Потом как-то решили меня выдвинуть на районную олимпиаду. Там были совсем другие задачки. Две я решил быстро, а вот во второй такого рода прямой код не подходил никак. Условие задачки не помню хоть тресни, но помню что я написал программу с небольшим примечанием. Решил задачку для Частного случая. Ну ни как не дошло до меня в тот момент что массив МОЖНО объявить запросив его размерность у оператора.

    За то код получился прямой и понятный одним пробегом глаз . Тут от человека зависит. Пишут же некоторые на Брейнфаке и Лиспе и понимают его как свой родной язык. Мне роднее прямой код. Что бы даже ветвления были прямые и логичные.

    Програмку из второго поста можно очень легко понять даже плохо зная бейсик. Как раз то, что надо школьнику. А дальше все от него зависит
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 16
    Последнее сообщение: 25.10.2013, 11:15
  2. Ответов: 5
    Последнее сообщение: 03.02.2012, 16:09
  3. Ответов: 3
    Последнее сообщение: 23.12.2011, 00:01
  4. Перевод чисел
    от azalivin в разделе QBasic
    Ответов: 7
    Последнее сообщение: 25.05.2011, 09:15
  5. Ответов: 4
    Последнее сообщение: 01.04.2011, 00:58
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •