|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
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. Может это вообще не подходит? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Составить блок-схему алгоритма | Алена В. | Помощь студентам | 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 |