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

Тема: помогите составить блок-схему

  1. #1 помогите составить блок-схему 
    Новичок
    Регистрация
    27.05.2015
    Сообщений
    3
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях
    Basic Code:
    1. input x(i), y(i), r(i)
    2. s(i)=4atn(1)*r(i)*r(i)
    3. next i
    4. t=0
    5. for i=1 to 4
    6. for k=(i+1) to 5
    7. if s(i)=s(k) then print using "s#=s#=###.###";i;i;s(k):t=1
    8. next k
    9. next i
    10. if t=o then print "ravnih net"
    11.  
    12. mins=1000: maxs=0
    13. for i=1 to 5
    14. if s(i)<mins then mins=s(i)
    15. if s(i)>maxs then maxs=s(i)
    16. next i
    17. print using “maxs=###.##”; maxs
    18. print using “mins=###.##”; mins
    19.  
    20. k=0
    21. for i=1 to 4
    22. for g=(i+1) to 5
    23. l=((x(i)-x(g))^2+(y(i)-y(g))^2)^0.5
    24. u=r(i)+r(g)
    25. print using “##.## ##.##”;l, u
    26. if l<u then k=k+1
    27. next g
    28. next i
    29. print “peresekaetsa okruzhnostej:” k
    30. end
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    290
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    в тексте есть ошибки
    Цитата Сообщение от kapwa Посмотреть сообщение
    input x(i), y(i), r(i)
    s(i)=4atn(1)*r(i)*r(i)
    next i
    - отсутствует оператор цикла for i=1 to ?
    Цитата Сообщение от kapwa Посмотреть сообщение
    if t=o then print "ravnih net"
    - вместо "0" буква "о"
    if t=0 then print "ravnih net"
    Ответить с цитированием  
     

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

    Free Admin (28.05.2015)

  4. #3  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    290
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    Цитата Сообщение от kapwa Посмотреть сообщение
    mins=1000: maxs=0
    for i=1 to 5
    if s(i)<mins then mins=s(i)
    if s(i)>maxs then maxs=s(i)
    - походу здесь тоже есть логическая ошибка.
    Ответить с цитированием  
     

  5. #4  
    Новичок
    Регистрация
    27.05.2015
    Сообщений
    3
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях
    программа работает [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  6. #5  
    Новичок
    Регистрация
    27.05.2015
    Сообщений
    3
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от nik_1 Посмотреть сообщение
    в тексте есть ошибки
    - отсутствует оператор цикла for i=1 to ?
    - вместо "0" буква "о"
    if t=0 then print "ravnih net"
    да, сорри, забыл чет, где цикл там for i=1 to 5
    Ответить с цитированием  
     

  7. #6  
    Администратор Аватар для TonyR
    Регистрация
    08.04.2014
    Сообщений
    36
    Сказал(а) спасибо
    6
    Поблагодарили 23 раз(а) в 14 сообщениях
    Записей в блоге
    1
    Вы код приложите полностью, чтобы тот кто захочет оказать вам помощь смог его нормально полностью увидеть, а не собирал по кускам из переписки. И еще оформите его как код, чтобы читалось нормально, в редакторе наверху кнопочка есть "BASIC".
    В вашем первом сообщение я сделал это за вас, можете посмотреть как это делается.
    Ответить с цитированием  
     

  8. #7  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    4,022
    Сказал(а) спасибо
    1,895
    Поблагодарили 1,015 раз(а) в 873 сообщениях
    Записей в блоге
    1
    4atn(1)
    Это вообще как понимаю 4 * ATN(1), к сожалению блок схемы в общих разделах не делаю.
    Ковычки все кривые, стартового CLS-а нет, некст без фора на 3-й строке.

    На самом деле всё просто, вот вам табличка:

    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

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

    nik_1 (28.05.2015)

  10. #8  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    290
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    скиньте полный код работающей программы! что бы мы тут в угадай мелодию не играли.[Ссылки могут видеть только зарегистрированные пользователи. ]
    Последний раз редактировалось nik_1; 28.05.2015 в 16:38.
    Ответить с цитированием  
     

  11. #9  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    290
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    [Ссылки могут видеть только зарегистрированные пользователи. ][Ссылки могут видеть только зарегистрированные пользователи. ][Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

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

    kapwa (28.05.2015)

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

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

Похожие темы

  1. Ответов: 0
    Последнее сообщение: 21.06.2014, 15:14
  2. Ответов: 4
    Последнее сообщение: 02.12.2013, 07:12
  3. Cоставить блок-схему и программу
    от лена в разделе Turbo Pascal
    Ответов: 2
    Последнее сообщение: 11.12.2011, 13:15
  4. Ответов: 0
    Последнее сообщение: 07.12.2011, 23:12
  5. Ответов: 8
    Последнее сообщение: 30.10.2011, 11:29
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •