|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.04.2012, 10:21 | #1 |
Новичок
Джуниор
Регистрация: 17.04.2012
Сообщений: 5
|
запутался в написании блок-схемы
#Code
var i ,j,k: integer; Sum1:real; n,m,h:integer; B:array[1..18,1..16] of real; C:array[1..11,1..18] of real; Alfa:array[1..16] of real; Sum:array[1..18] of real; begin Form5.Show; m:=16; n:=18; h:=11; for i:=1 to 18 do begin for j:=1 to 16 do Begin B[i,j]:= StrToFloat(Form2.StringGrid1.Cells[i,j]); End; end; for i:=1 to 11 do begin for j:=1 to 18 do Begin C[i,j]:= StrToFloat(Form3.StringGrid1.Cells[i,j]); end; end; for i:=1 to 16 do Begin Alfa[i]:= StrToFloat(Form1.StringGrid1.Cells[1,i]); End; Sum1:=0; for i:=k to h do Sum[k]:=0; for k:=1 to h do Begin for j:=1 to m do Begin for i:=1 to n do Begin Sum1:=Sum1+(Alfa[i]*B[i,j]*C[j,k]); End; End; Sum[k]:=Sum1; Sum1:=0; End; for k:=1 to h do begin Form5.StringGrid1.Cells[1,k]:=Form4.StringGrid1.Cells[1,k]; Form5.StringGrid1.Cells[2,k] := FloatToStr(Sum[k]); end; end; Последний раз редактировалось Rusik1992; 19.04.2012 в 10:32. |
19.04.2012, 11:12 | #2 |
Подтвердите свой е-майл
Регистрация: 04.04.2012
Сообщений: 37
|
Всмысле? Я все жизнь думал, что блок-схема делается до создания программы.
И еще не думаю, что это нужно было запихнуть в раздел "Общие вопросы по Delphi" Плюч к тому, сдесь ничего сложного нет. Что непонятно? Последний раз редактировалось kashirin.p; 19.04.2012 в 11:27. |
19.04.2012, 11:27 | #3 |
Homo Interneticus
Форумчанин
Регистрация: 04.03.2011
Сообщений: 611
|
ГОСТ 19.701-90 Вам в помощь...
|
19.04.2012, 11:42 | #4 |
Новичок
Джуниор
Регистрация: 17.04.2012
Сообщений: 5
|
ну, а у меня по другому, я сначала программу написал, а теперь блок-схему нужно(такие требования в вузе),а как ее написать не знаю
|
19.04.2012, 17:30 | #5 |
Подтвердите свой е-майл
Регистрация: 04.04.2012
Сообщений: 37
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запутался в написании. | tesma | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 25.02.2012 13:39 |
блок схемы | волосокрад | Помощь студентам | 1 | 18.12.2010 20:33 |
блок-схемы | Sabolch | Помощь студентам | 5 | 17.12.2010 19:44 |
Требуется помощь в написании блок-схемы на языке php | sk1p | PHP | 8 | 20.05.2009 21:33 |