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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 19.12.2011, 22:30   #1
barakk
Новичок
Джуниор
 
Регистрация: 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.
barakk вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
НЕ МОГУ РАЗОБРАТЬСЯ... 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