трабла с портированием

  • Автор темы FrhMeat
  • Дата начала
F

FrhMeat

есть задачка которую надо решить на паскале. поскольку всю свою разумную жизнь (лет этак с 9) писал на сях и на сях с плюсами то не могу портнуть приметивнейшую прогу (препод урод... не может понять что его паскаль с 1991 года никто не обновлял кроме интизиастов). кроче нужна помощ иходники на с++, на паскале и сама задача.


задача

На участке имеется n станков, на которых нужно обработать m деталей . Время обработки каждой детали на каждом станке известно. Написать программу, проверяющую, можно ли найти такую деталь, время обработки которой на любом станке было бы минимальным.

Код:
#include "iostream"

using namespace std;

void main()
{
int Array[3][3];

cout <<"Vvodite dannii" << endl;

for (int i = 0; i < 3; i++)
{
cout << "Detal " << i+1 << ": " << endl;
for (int x = 0; x < 3; x++)
{
cout << "Na stanke " << x+1 << ": ";
cin >> Array[i][x];
}
}

for (int i = 0; i < 3; i++)
{
cout << "Detal " << i+1 << ". ";
for (int x = 0; x < 3; x++)
{
cout << "Stanok " << x+1 << ": Vremya : " << Array[i][x] << ".|";
}
cout << endl;

}

static int detal = 1;
int TempArray[3];
for (int i = 0; i < 3; i++)
TempArray[i] = Array[0][i];



int check = 0;
int test = 0;
for (int i = 0; i < 3; i++)
{
for (int x = 0; x < 3; x++)
if (TempArray[x] >= Array[i][x])
check++;

if (check == 3)
for (int x = 0; x < 3; x++)
{
TempArray[x] = Array[0][x];
detal = i + 1;
test = 1;
}

check = 0;
}

if (test == 1)
{
cout << "Detal izgotavlivaemaya za minimalnoe vremya na stankah eto detal " << detal << "." << endl;
}
else
cout << "Net detali kotaraya bi udovletvorala usloviu. " << endl;


}


Код:
program poisk;
uses crt;
var
Array_: array[1..3, 1..3] of integer;
Array_Temp: array[1..3] of integer;
i, x, detal, check, test:integer;

begin

write ('Vvodite dannii');
for i:=1 to 3 do
begin
writeln ('Detal ', i, ': ');
for x:=1 to 3 do
begin
writeln ('Na stanke ', x, ': ');
read (Array_[i, x]);
end;
end;

for i:=1 to 3 do
begin
write ('Detal ' , i, '. ');
for x:=1 to 3 do
write ('Stanok ', i, ': Vremya : ', Array_[i, x], '.|');
end;

detal:=1;
for i:=1 to 3 do
Array_Temp[i] := Array_[1, i];

check := 0;
test := 0;

for i:=1 to 3 do
begin
for x:=1 to 3 do
if Array_Temp >= Array_[i, x] then
check:=check+1;

if check = 3 then
for i:=1 to 3 do
begin
Array_Temp[x] = Array_[0, x];
detal = i;
test = 1;
end;
check = 0;
end;

if test = 1 then
writeln ('Detal izgotavlivaemaya za minimalnoe vremya na stankah eto detal ', detal, '.');
else
writeln ('Net detali kotoraya bi udovletvorala ysloviu');
end.

ps за синтаксис плз не пинайте, он у мну ацкий, тока вот и язык мне никак не даёться.

хмн...
просьба в догонку паськальные исходники долнжы собраться в турбо паскале 7 ;]
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!