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

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

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

Часовой пояс: 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 
Не в сети
Light & Truth
Аватара пользователя
Зарегистрирован:
28 апр 2016, 13:40
Сообщений: 3546
Cпасибо сказано: 5
Спасибо получено:
624 раз в 591 сообщениях
Очков репутации: 98

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

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

Добавить очки репутацииУменьшить очки репутации
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
Сообщений: 659
Cпасибо сказано: 21
Спасибо получено:
105 раз в 103 сообщениях
Очков репутации: 16

Добавить очки репутацииУменьшить очки репутации
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 ]

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

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

Viktoriya9977

5

464

18 дек 2018, 19:14

Информатика

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

misk

0

184

28 окт 2022, 12:40

Теоретическая информатика

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

write2levent

1

136

05 ноя 2022, 18:52


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



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

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


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

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

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

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