Важная информация
Показано с 1 по 2 из 2

Тема: Помогите перевести программу с TP на QB

  1. #1 Помогите перевести программу с TP на QB 
    Разбирающийся Аватар для Denis
    Регистрация
    24.10.2011
    Адрес
    РК ВКО Зыряновский район г Серебрянск
    Сообщений
    38
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    Вот текст программы:
    uses testlib;
    const nmax=100;
    var
    a:array[1..nmax,1..nmax] of integer;
    l,la:integer;
    n:integer;
    i,j:integer;
    vc,vn:integer;
    v1,v2:integer;


    begin
    n:=inf.readinteger;
    for i:=1 to n do
    for j:=1 to n do
    a[i,j]:=inf.readinteger;
    v1:=inf.readinteger;
    v2:=inf.readinteger;


    l:=ouf.readinteger;
    la:=ans.readinteger;

    if l=-1 then begin
    if la=-1 then quit(_OK,'Нет пути');
    quit(_WA,'Ответ нет пути, когда путь есть');
    end;


    vc:=ouf.readinteger;
    if vc<>v1 then quit(_WA,'Путь начинается не в той вершине');
    for i:=1 to l do begin
    vn:=ouf.readinteger;
    if a[vc,vn]=0 then quit(_WA,'Проход по несуществующему ребру');
    vc:=vn;
    end;
    if vc<>v2 then quit(_WA,'Закончили не в той вершине');
    if (l<la) or (la=-1) then quit(_Fail,'Найдено решение лучше, чем в ответе!!!!');
    if l>la then quit(_WA,'Найден не кратчайший путь');
    quit(_OK,'Удивительно :-) ');
    end.



    end.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Вот программа. Незнаю, правильно или нет, потому что не понял, что она делает.
    Код qbasic:
    DIM a(100, 100)
     
    INPUT "n= ", n
    FOR i = 1 TO n
    FOR j = 1 TO n
    INPUT "a(i,j)= ", a(i, j)
    NEXT j
    NEXT i
     
    INPUT "l= ", l
    INPUT "la= ", la
    IF (l = -1) OR (la = -1) THEN
    PRINT "Net Puti"
    END
    END IF
     
    INPUT "vc= ", vc
    IF vc <> v1 THEN
    PRINT "put nachinaetsa ne v toj vershine"
    END
    END IF
    FOR i = 1 TO n
    INPUT "vn= ", vn
    IF a(vc, vn) = 0 THEN
    PRINT "Prohod po nesushestvujushemu rebru"
    END
    END IF
    vc = vn
    NEXT i
    IF vc <> v2 THEN
    PRINT "zakonchili ne v toj vershine"
    END
    END IF
    IF (l < la) OR (la = -1) THEN
    PRINT "najdeno reshenie luche, chem v otvete"
    END
    END IF
    IF l > la THEN
    PRINT "najden ne kratchajshij put"
    END
    END IF
    PRINT "udivitelno"
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. помогите написать программу
    от Стамус в разделе QBasic
    Ответов: 5
    Последнее сообщение: 18.10.2012, 20:35
  2. Помогите перевести на BASIC с Pascal
    от Denis в разделе QBasic
    Ответов: 0
    Последнее сообщение: 24.01.2012, 19:08
  3. Помогите перевести на BASIC с С
    от Denis в разделе QBasic
    Ответов: 0
    Последнее сообщение: 24.01.2012, 19:01
  4. Помогите перевести на Basic с C
    от Denis в разделе QBasic
    Ответов: 2
    Последнее сообщение: 20.01.2012, 17:06
  5. Помогите понять программу
    от Black Doomer в разделе QBasic
    Ответов: 1
    Последнее сообщение: 15.12.2011, 18:12
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •