Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, пожалуйста, решить задачу в Паскаль
Помогите, пожалуйста, решить задачу в Паскаль
Дан номер одного из элементов непустого списка. Переместить данный элемент в конец списка.
1 | Автор: ostryak5 | 2012-12-25, 23:29   |  Репутация: [ + 0 ]
1 | Автор: ostryak5 | 2012-12-25, 23:29   |  Репутация: [ + 0 ]
помогите пожалуйста написать программу на паскале: выбрать оптимальное технологическое оборудование из имеющегося. имеется пять паровых котлов, параметры котлов: паропроизводительность, КПД, масса и цена. Пробовал писать, программа выполняется, но при вводе пишет ошибку.
var
a:array[1..4,1..5] of longint;
i,j,n,m,h,g,s1,s2,s3,s4:longint;
begin
for j:=1 to 5 do
for i:=1 to 4 do read(a[i,j]);
writeln('Введите значения n');
s1:=a[1,n];
for i:=2 to 4 do
if a[i,n]>=1.4 then s1:=a[i,n];
for j:=1 to 5 do
for i:=1 to 4 do read(a[i,j]);
writeln('Введите значения v');
s2:=a[1,m];
for i:=2 to 4 do
if a[i,m]>s2 then s2:=a[i,m];
for j:=1 to 5 do
for i:=1 to 4 do read(a[i,j]);
writeln('Введите значения h');
s3:=a[1,h];
for i:=2 to 4 do
if a[i,h]<s3 then s3:=a[i,h];
for j:=1 to 5 do
for i:=1 to 4 do read(a[i,j]);
writeln('Введите значения g');
s4:=a[1,g];
for i:=2 to 4 do
if a[i,g]<s4 then s4:=a[i,g];
end.
2 | Автор: Dushman | 2013-01-10, 00:55   |  Репутация: [ + 0 ]
а по каким параметрам выбирать?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2013-01-10, 04:03   |  Репутация: [ + 211 ]
паропроизводительность больше определенного значения, кпд как можно больше, цена меньше. В итоге как я понимаю определяющей является цена.
4 | Автор: Dushman | 2013-01-10, 10:24   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, пожалуйста, решить задачу в Паскаль
Страница 1 из 11
Поиск: