1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. FrhMeat

    FrhMeat Гость

    Репутация:
    0
    есть задачка которую надо решить на паскале. поскольку всю свою разумную жизнь (лет этак с 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 ;]
     
Загрузка...

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