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

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

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
MathHelpPlanet.com RSS-лента Математического форума

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




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

Добавить очки репутацииУменьшить очки репутации
Дано действительное число а.
Вычислить (а+2)/9+(а+3)12+(а+4)/15+(а+5)/18+...+(а+10)/33
решить с помощью циклов while и for

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Информатика
СообщениеДобавлено: 19 дек 2018, 16:23 
Не в сети
Beautiful Mind
Аватара пользователя
Зарегистрирован:
28 апр 2016, 13:40
Сообщений: 1352
Cпасибо сказано: 0
Спасибо получено:
245 раз в 239 сообщениях
Очков репутации: 31

Добавить очки репутацииУменьшить очки репутации
Язык какой?

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Информатика
СообщениеДобавлено: 19 дек 2018, 18:50 
Не в сети
Гений
Аватара пользователя
Зарегистрирован:
09 авг 2018, 23:20
Сообщений: 607
Cпасибо сказано: 23
Спасибо получено:
62 раз в 60 сообщениях
Очков репутации: 23

Добавить очки репутацииУменьшить очки репутации
var
a: real;

begin
print('Введите а');
read(a);
var sum := 1.0;
for var i := 2 to 10 do
sum += (a + i) / (3 * (i + 1));
writeln('sum=', sum);
end.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Информатика
СообщениеДобавлено: 20 дек 2018, 14:56 
Не в сети
Мастер
Зарегистрирован:
02 июн 2018, 08:50
Сообщений: 226
Cпасибо сказано: 7
Спасибо получено:
28 раз в 28 сообщениях
Очков репутации: 4

Добавить очки репутацииУменьшить очки репутации
program summa
implicit none
real :: a , s, temp
integer :: i

s=0

print*, "Введите a "; read (*,*) a

do i=2, 10
temp = (i+a) / (3*(i+1))
s = s + temp
end do

print*, s
end program summa

Вариант с while
program summa
implicit none
real :: a , s, temp
integer :: i

s=0; i=2

print*, "Введите a "; read (*,*) a

do while (i <= 10)
temp = (i + a) / (3*(i+1))
s = s + temp
i = i + 1
end do

print*, s
end program summa

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

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
A5 ЕГЭ Информатика

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

belinum

0

262

17 окт 2013, 12:54

Информатика

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

Anuyta

7

534

27 ноя 2013, 17:26

Информатика

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

Viktoriya9977

5

264

18 дек 2018, 19:14

Информатика-математика в музыкальном училище

в форуме Алгебра

SergeyGray

1

292

26 май 2013, 08:57


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



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

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


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

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

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

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