1 / 1 / 0
Регистрация: 10.10.2017
Сообщений: 69
1

Программы разветвляющейся и циклической структуры

05.06.2018, 17:50. Показов 1713. Ответов 1
Метки нет (Все метки)

Даны: натуральное число N, массив действительных чисел Y(N).
Найти Z(1)+Z(2)+...+Z(N), где

https://www.cyberforum.ru/cgi-bin/latex.cgi?Z_i=\begin{cases}Y_i & \text{ , } 0 \lt Y_i \lt 10 \\ 1 & \text{ , } otherwise\end{cases}
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2018, 17:50
Ответы с готовыми решениями:

Программирование алгоритмов разветвляющейся и циклической структуры
Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат...

Разработка программы разветвляющейся структуры
Составить программу, которая запрашивает имя и здоровается с его обладателем, если это имя...

Программы линейной и разветвляющейся структуры. Вычислить значение выражения
Помогите пожалуйста решить задачу, что на скрине ниже. И, если можно, к ним сделать блок-схемы....

Программы циклической структуры
Вводится N чисел. Вывести на экран те числа, делителем которых яв- ляется целое число А. {как...

1
67 / 58 / 20
Регистрация: 19.12.2014
Сообщений: 203
06.06.2018, 02:40 2
Лучший ответ Сообщение было отмечено passstrada как решение

Решение

Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program p1
implicit none
integer n,  i
real, allocatable :: y(:), z(:)
real s, yi
 
print *, 'Enter N'
read *, n
print *, 'n=', n
allocate (y(n), z(n))
print *, 'Enter Y(i)'
read (*, *) (y(i), i=1,n)
 
z = 1
 
do i=1, n
    yi = y(i)
    print *, 'y(', i, ')=', yi
    if (yi < 10 .and. yi >0) z(i) = yi
end do
 
s = sum(z)
print *, 'sumZ =', s
end program p1
Результат:
Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Enter N
5
 n=           5
 Enter Y(i)
-14
17
4.6
2.3
15
 y(           1 )=  -14.00000
 y(           2 )=   17.00000
 y(           3 )=   4.600000
 y(           4 )=   2.300000
 y(           5 )=   15.00000
 sumZ =   9.900000
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2018, 02:40

Программы циклической структуры
Напечатать таблицу перевода температуры из градусов по шкале Цельсия (С) в градусы по шкале...

Программы циклической структуры (примитив) - вычислить сумму
Задание: Public Class Form1 Private Sub Button1_Click() Dim k, n, s As Integer...

ПРОГРАММЫ ЦИКЛИЧЕСКОЙ СТРУКТУРЫ (Подскажите, пожалуйста!! не могу уже понять ее...)
Написать программу, которая вводит с клавиатуры последователь- ность из пяти дробных чисел и...

Управляющие структуры. Программирование алгоритмов разветвляющейся структуры.
как это в delphi выполнить?((( Вычислить объем и площадь полной поверхности цилиндра, если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru