Решение транспортной задачи

@sergeysl · Регистрация: 05.09.2014

Author24 — интернет-сервис помощи студентам

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
program velo;
var i, k, j, n, m,x,y: Integer;
s1, s2: real;
a:array[1..11] of real;
a1:array[1..11] of real;
a2:array[1..11] of real;
b:array [1..11]of real;
b1:array[1..11] of real;
b2:array[1..11] of real;
 
begin
i:=1;
k:=0;
s1:=0;
while (k=0) and (i<n) do
begin
write('ââåäèòå çàïañû ',i,'-òîãî ïîñòàâùèêà: ');
readln(a[i]);
if a[i]=0 then
begin
k:=1;
i:=i-1;
end
else
begin
a1[i]:=a[i];
s1:=s1+a1[i];
i:=i+1;
end;
end;
j:=1;
k:=0;
s2:=0;
while (k=0) and (j<m) do
begin
write('ââåäèòå çàïðîñ ',j,'-òîãî ïîòðåáèòåëÿ: ');
readln(b[j]);
if b[j]=0 then
begin
k:=1;
j:=j-1;
end
else
begin
b1[j]:=b[j];
s2:=s2+b1[j];
j:=j+1;
end;
end;
k:=0;
if s1<s2 then
begin
writeln('îøèáêà ââîäà, ïðîâåðüòå áàëàíñ');
readln;
halt;
end;
if (s2<s1) and (k=0) then
begin
writeln('îøèáêà ââîäà, ïðîâåðüòå áàëàíñ');
readln;
halt; end;
x:=i;
y:=j;
end.

Есть код но не работает. Люди добрые спасите нас от небесной кары)

@erl27 · 10.10.2014, 16:36

А что такое "Транспортная задача"? Приведите условие.

@APALoff · 10.10.2014, 17:04

Не по теме:

Вот и я в той теме: Решение транспортной задачи любым методом
указал на тоже самое.

@sergeysl · 11.10.2014, 00:31 **[ТС]**

http://math.semestr.ru/transp/index.php там есть пример)))

Новые блоги и статьи Все статьи Все блоги /
TypeScript: Интерфейсы vs Типы run.dev 11.04.2025 Современная разработка на JavaScript сталкивается с множеством проблем при масштабировании проектов. Типизация кода стала хорошим инструментом, помогающим избежать ошибок во время выполнения,. . .	Управление топиками и разделами Kafka Javaican 11.04.2025 Apache Kafka — распределенная платформа потоковой передачи данных, которая стала стандартом для построения высоконагруженных систем обмена сообщениями. В современной архитектуре микросервисов,. . .	Миграция монолита в Event-Driven микросервисную архитектуру на C# stackOverflow 11.04.2025 Монолитная архитектура – классический подход к разработке программного обеспечения. Это приложение, построенное как единое целое, где все компоненты тесно связаны между собой. Большинство проектов. . .	Go в Kubernetes: Управление ресурсами golander 11.04.2025 Разработчики Go-приложений в Kubernetes часто сталкиваются с неожиданными проблемами производительности и даже внезапными отказами контейнеров. Причина этого кроется в особенностях взаимодействия. . .	Агрегаты и сущности в DDD микросервисах Javaican 10.04.2025 Разработка современных программных систем часто приводит на распутье: монолит или микросервисы? Даже при выборе микросервисной архитектуры многие команды сталкиваются с проблемой правильного. . .
Многопоточность в C#: Task и параллельное программирование UnmanagedCoder 10.04.2025 Современные процессоры уже давно перестали наращивать тактовую частоту в пользу увеличения количества ядер. Это создало интересную ситуацию: разработчики, привыкшие к последовательному. . .	Линейное решение нелинейной задачи будет иметь приблизительный результат вычисления для метода обработки данных из double buffering. Hrethgir 10.04.2025 Вообще изначально я пренебрёг квадратурой числа, но потом понял, что для вычисления приблизительного значения - сгодится, формулу можно будет корректировать по ходу. Это потому что прямое соотношение. . .	Переменные в Python py-thonny 10.04.2025 Переменная в программировании — это символическое имя, связанное с областью памяти, в которой хранится значение. Она позволяет получать доступ к данным через понятные человеку идентификаторы, а не. . .	Многопоточность в C#: Task и асинхронные операции UnmanagedCoder 10.04.2025 Многопоточность позволяет выполнять несколько операций одновременно, что важно для решения двух основных задач: повышения скорости выполнения вычислительно-сложных операций и сохранения отзывчивости. . .	Запуск контейнеров Docker на ARM64 Mr. Docker 09.04.2025 Появление таких решений, как Apple M1/ M2, AWS Graviton, Ampere Altra и Raspberry Pi, сделало использование ARM-систем обыденностью для многих разработчиков и DevOps-инженеров. При этом Docker,. . .

@erl27 908 / 756 / 833 Регистрация: 06.09.2013 Сообщений: 1,561
	10.10.2014, 16:36
	А что такое "Транспортная задача"? Приведите условие. 0

@APALoff
	10.10.2014, 17:04
	Не по теме: Вот и я в той теме: Решение транспортной задачи любым методом указал на тоже самое. 0

@sergeysl 0 / 0 / 0 Регистрация: 05.09.2014 Сообщений: 52
	11.10.2014, 00:31 [ТС]
	http://math.semestr.ru/transp/index.php там есть пример))) 0