ВЫЧИСЛИТЬ ! - Форум
Понедельник, 05.12.2016, 07:25
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » ВЫЧИСЛИТЬ !
ВЫЧИСЛИТЬ !
TWIX277Дата: Пятница, 07.11.2008, 22:11 | Сообщение # 1
Сержант
Группа: Участник
Сообщений: 7
[ 0 ]
Статус: Offline
Вычислить .
.....5 6
P= ∑ ∑ ((i+j))*cosd
.....i=1 j=1
где d=(1+cos0.1)*(1+cos0.2)*….*(1+cos4)
 
zadachkiДата: Суббота, 08.11.2008, 15:21 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
Code

s=0;
d=1;
{вычисление d}
для i=1 до 40
m=i; {m - дробное число, i - целое число}
d=d*(1+cos(m/10) )

{вычисление суммы}
для i=1 до 5  
  начало цикла
  для j=1 до 6
    начало цикла
    s=s+(i+j)*cosd
    конец цикла
  конец цикла
 
TWIX277Дата: Понедельник, 10.11.2008, 17:53 | Сообщение # 3
Сержант
Группа: Участник
Сообщений: 7
[ 0 ]
Статус: Offline
Большое СПАСИБО ! ну если нетрудно еще блок схемку сделайте !=)))
 
zadachkiДата: Вторник, 11.11.2008, 16:04 | Сообщение # 4
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
Вот программа.
Code

program boo;
var m,s,d: real;
var i,j: integer;
begin
s:=0;  
d:=1;  
for i:=1 to 40 do
  begin
  m:=i;  
  d:=d*(1+cos(m/10) )  
  end;
for i:=1 to 5  do
   begin  
   for j:=1 to 6 do
     begin  
     s:=s+(i+j)* cos(d) ;
     end;  
   end;
writeln(s);
end.

Отсюда можно скачать программу для автоматического составления блок схем http://www.fceditor.nm.ru/ по исходному коду.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » ВЫЧИСЛИТЬ !
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016