Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.02.2012, 01:28   #1
Валентинаааа
Новичок
Джуниор
 
Регистрация: 25.02.2012
Сообщений: 1
По умолчанию Составить блок-схему алгоритма и программу на алгоритмическом языке Z= ∑(ai+bi)/(i+j)^4; i=1÷n; j=1÷m

Попомгите пожулуйста, кто может...
Составить блок-схему алгоритма и программу на алгоритмическом языке
Z= ∑(ai+bi)/(i+j)^4; i=1÷n; j=1÷m

Со своим гуманитарным образованием я додумалась только до следующего:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32



program prog;
Uses Crt;
Var A, B, C:array [1..3] of real;
i,j:integer;
k:real;
sum, p:real;
begin
Clrscr;
writeln('Введите массив чисел:');
for i:=1 to 3 do begin
readln(A[i]);
end;
writeln('Введите массив чисел');
for i:=1 to 3 do begin
readln(B[i]);
end;
writeln('Введите массив чисел:');
for j:=1 to 3 do begin
readln(C[j]);
end;
sum:=0;
p:=0;
for i:=1 to 3 do for j:=1 to 3 do begin
sum:=A[i]+B[i];
writeln (sum);
k:=i+C[j];
sum:=sum/(k*k*k*k);
writeln(sum);
p:=p+sum;
end;
writeln(p)
end.
Может это вообще не подходит?
Валентинаааа вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составить блок-схему алгоритма Алена В. Помощь студентам 2 23.11.2011 16:14
составить программу на алгоритмическом языке QBASIC одномерного массива TRINITI23 Помощь студентам 0 22.02.2011 20:37
Составить блок-схему алгоритма и программу на алгоритмическом языке Sven84 Помощь студентам 2 20.10.2010 20:56
Не могу составить блок-схему алгоритма и программу pas9462 Фриланс 4 02.03.2010 21:48
составить блок - схему алгоритма Катюшка544 Помощь студентам 1 18.02.2010 20:32