|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
19.12.2011, 22:30 | #1 |
Новичок
Джуниор
Регистрация: 22.06.2011
Сообщений: 1
|
Не могу разобраться...в проблеме...
если не правильно...пожалуйста...измените и решите задачу!
program nomer19; uses crt; var Max,Kol,f,n,m:real; k,l,i,j:integer; begin writeln('Введи матрицу'); for i:=1 to N do begin for l:=1 to N-1 do begin for i:=1 to N-l do begin begin Kol:=max; j:=i+l; for k:=i to j-1 do begin if Kol > F[i,k]+F[k+1,j]+n[i]*n[k+1]*m[j] then Kol:=F[i,k]+F[k+1,j]+n[i]*n[k+1]*m[j]; end; F[i,j]:=Kol; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
НЕ МОГУ РАЗОБРАТЬСЯ... | GSV84 | HTML и CSS | 0 | 03.02.2010 01:38 |
Прошу совета в проблеме | Gans_sv | Компьютерное железо | 5 | 08.11.2009 20:27 |
Проблеме при смена размера Timage | AnTe | Мультимедиа в Delphi | 3 | 13.04.2009 05:28 |