Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 6 ] 
Автор Сообщение
 Заголовок сообщения: Компьютерные науки
СообщениеДобавлено: 18 дек 2018, 19:20 
Не в сети
Начинающий
Зарегистрирован:
16 дек 2018, 10:31
Сообщений: 9
Cпасибо сказано: 0
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Дан массив действительных чисел а1, а2,..аn
Определить сколько из них больше своего предыдущего

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Компьютерные науки
СообщениеДобавлено: 19 дек 2018, 09:21 
Не в сети
Light & Truth
Аватара пользователя
Зарегистрирован:
28 апр 2016, 13:40
Сообщений: 3550
Cпасибо сказано: 5
Спасибо получено:
624 раз в 591 сообщениях
Очков репутации: 98

Добавить очки репутацииУменьшить очки репутации
Нужно написать код? На каком языке?

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Компьютерные науки
СообщениеДобавлено: 01 июл 2019, 12:18 
Не в сети
Начинающий
Зарегистрирован:
01 июл 2019, 12:12
Сообщений: 2
Cпасибо сказано: 0
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Как решили эту задачу. :( ?

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Компьютерные науки
СообщениеДобавлено: 01 июл 2019, 20:08 
Не в сети
Последняя инстанция
Зарегистрирован:
06 июн 2013, 16:17
Сообщений: 2590
Cпасибо сказано: 104
Спасибо получено:
746 раз в 701 сообщениях
Очков репутации: 158

Добавить очки репутацииУменьшить очки репутации
Какую задачу? В сообщении 1 нет никакой конкретной задачи.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Компьютерные науки
СообщениеДобавлено: 01 июл 2019, 20:53 
Не в сети
Свет и истина МРК
Аватара пользователя
Зарегистрирован:
06 янв 2015, 22:27
Сообщений: 7006
Откуда: Саратов
Cпасибо сказано: 783
Спасибо получено:
583 раз в 507 сообщениях
Очков репутации: -237

Добавить очки репутацииУменьшить очки репутации
Viktoriya9977 писал(а):
Дан массив действительных чисел а1, а2,..аn
Определить сколько из них больше своего предыдущего

Если это требуется определить с помощью программы, нет ничего проще.
В цикле от 1 до (n-1) сравниваете [math]a_i[/math] c [math]a_{i+1}[/math]; если второе больше первого, добавляете единичку к счётчику.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Компьютерные науки
СообщениеДобавлено: 02 июл 2019, 16:14 
Не в сети
Гений
Зарегистрирован:
02 июн 2018, 08:50
Сообщений: 659
Cпасибо сказано: 21
Спасибо получено:
105 раз в 103 сообщениях
Очков репутации: 16

Добавить очки репутацииУменьшить очки репутации
program massiv
implicit none

real :: a(10)
integer :: i, j

!Заполним случайными числами 0...100
call random_number (a); a=a*100

j=0
do i=2,10
if (a(i) > a(i-1)) j=j+1
end do

print*, ' Элементов больше предыдущего = ', j
print '(10f8.3)', a

end


Код:
  Элементов больше предыдущего =            4
  87.994  21.299  45.731  28.929  74.518  92.137  21.883  88.107  62.369   0.529


Viktoriya9977, на столь простых задачках могли бы и свои попытки сделать.

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему      Страница 1 из 1 [ Сообщений: 6 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Компьютерные науки

в форуме Информатика и Компьютерные науки

Viktoriya9977

6

407

18 дек 2018, 19:18

Компьютерные науки

в форуме Информатика и Компьютерные науки

pacha

5

278

07 окт 2017, 17:12

О вкладе науки в технику

в форуме Размышления по поводу и без

Booker48

90

929

10 апр 2023, 12:49

Компьютерные часы

в форуме Информатика и Компьютерные науки

vorvalm

6

643

03 июн 2016, 10:29

Прогноз с точки зрения науки

в форуме Размышления по поводу и без

Vegas

3

436

19 мар 2017, 14:26


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved