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

Тема: Помогите пожалуйста (срочно)

  1. #1 Помогите пожалуйста (срочно) 
    Новичок
    Регистрация
    12.11.2012
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Люди добрые, помогите глупой геодезистке спастись от препода по информатике.
    Задачи таковы:
    1) Дан массив A, состоящий из N элементов. Найти два элемента массива ближайших к заданному числу С ,т.е. такие два элемента A(I) ,A(L), для которых модули разности A(I)-C ,A(L)-C меньше ,чем для любых других элементов массива. Результат распечатать в виде:
    Число элементов:
    Исходный массив:
    Два элемента, удовлетворяющие условию:
    2) Даны два массива по 30 элементов. Найти среднее арифметическое для элементов 1-го массива, номера которых больше номера минимального элемента 2-го массива.
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Ну вот для начала первая:
    Код :
    CLS
    INPUT "RAZMER MASSIVA ", N
    DIM A(N)
    FOR i = 1 TO N
      PRINT "Alement nomer "; i; " = ";
      INPUT A(i)
    NEXT
    PRINT
    INPUT "chislo C = ", C
    B = C
    M = C
    FOR i = 1 TO N
      IF A(i) > B THEN B = A(i)
      IF A(i) < M THEN M = A(i)
    NEXT
     
    FOR i = 1 TO N
      IF A(i) > C AND A(i) < B THEN B = A(i)
      IF A(i) < C AND A(i) > M THEN M = A(i)
    NEXT
    PRINT
    PRINT N
    FOR i = 1 TO N
      PRINT A(i),
    NEXT
    PRINT
    PRINT B
    PRINT M
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Ну вот вторая
    Код :
    CLS
    DIM M1(30)
    DIM M2(30)
    FOR i = 1 TO 30
      M1(i) = RND * 100 - 50
      M2(i) = RND * 30
    NEXT
     
    MIN = M2(1)
    FOR i = 1 TO 30
      IF MIN > M2(i) THEN MIN = M2(i)
    NEXT
    SUM = 0
    J = 0
    FOR i = 1 TO 30
      IF i > MIN THEN
        SUM = SUM + M2(i)
        J = J + 1
      END IF
    NEXT
    PRINT "Massiv 1"
    FOR i = 1 TO 30
      PRINT M1(i),
    NEXT
    PRINT "Massiv 2"
    FOR i = 1 TO 30
      PRINT M2(i),
    NEXT
    PRINT
    PRINT "SREDNEE = "; SUM / J
    Только боюсь не объясните Вы ничего преподу-то, ну и не получится сдать!
    И Вообще, геодезисты должны считать как никто! и поэтому всякие калькулятьры, компьютеры и программы должны как "Отче Наш" знать, иначе как работать потом? Я даже предполагаю, что геодезисты должны сферическую геометрию знать! Иначе какие они геодезисты?
    Последний раз редактировалось Dimon012; 13.11.2012 в 09:29.
    Ответить с цитированием  
     

  4. #4  
    Разбирающийся
    Регистрация
    06.09.2012
    Адрес
    MPLS/MN USA
    Сообщений
    31
    Сказал(а) спасибо
    0
    Поблагодарили 1 раз в 1 сообщении
    Записей в блоге
    1
    Dimon012, а вдруг поцкаль? или о_О Ся!?
    Ответить с цитированием  
     

  5. #5  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    В разделе Basic жеж.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  6. #6  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Цитата Сообщение от handrix Посмотреть сообщение
    Dimon012, а вдруг поцкаль? или о_О Ся!?
    НАСТОЯЩИЙ! программист, может написать программу на фортране, пользуясь любым языком программирования!!!
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 0
    Последнее сообщение: 01.07.2012, 22:03
  2. помогите пожалуйста
    от finer в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 14.06.2012, 16:10
  3. Помогите с программой пожалуйста
    от shemekeev в разделе Visual Basic
    Ответов: 3
    Последнее сообщение: 18.04.2012, 18:11
  4. Ответов: 0
    Последнее сообщение: 07.12.2011, 22:10
  5. Ответов: 16
    Последнее сообщение: 24.01.2011, 19:41
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •