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

Тема в разделе "Другие", создана пользователем FrhMeat, 4 янв 2008.

  1. FrhMeat

    FrhMeat Гость

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


    задача

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

    Код (Text):
    #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;


    }

    Код (Text):
    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 ;]
     
Загрузка...

Поделиться этой страницей