9 / 9 / 7
Регистрация: 04.03.2010
Сообщений: 107
1

Нет консольного окна

23.05.2012, 16:31. Показов 1343. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Суть программы токова: должно появляться консольное окно и там работает программа, но такого не происходит. После RUN|BUILD моментально появляется какоето окошко справа и никакой реакции

Delphi 7

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Program Johnson_method;
{$APPTYPE CONSOLE}
uses
CRT32 in 'CRT32.pas',
EsConsole in 'EsConsole.pas';
Const r=30;
Var n, i, Min_j, Min_i, Temp_1, Temp_2 : Integer;
    ch:Char;
    isChange:Boolean;
    A:Array [0..100,0..100] of Integer;
  Begin
Repeat
    ClrScr;
    Randomize;
    WriteLn('');
    WriteLn;
    WriteLn('Write a number of details');
    ReadLn(n);
    WriteLn;
    WriteLn('Time:');
    Write('A: ');
    For i:=1 to n do
    begin
      A[i,1]:=random(99)+1;
      Write(A[i,1]:n);
    end;
    WriteLn;
    Write('B: ');
    For i:=1 to n do
    begin
      A[i,2]:=random(99)+1;
      Write(A[i,2]:n);
    end;
    WriteLn;
    Repeat
      isChange:=False;
      For i:=1 to n-1 do begin
        Min_i:=A[i,1];
        Min_j:=A[i+1,1];
    {    WriteLn('Min_i=',Min_i,'  Min_j=',Min_j);   }
        If A[i,1]>A[i+1,2] then Min_i:=A[i+1,2];
        If A[i+1,1]>A[i,2] then Min_j:=A[i,2];
      {  WriteLn('Min_i=',Min_i,'  Min_j=',Min_j);  }
        If Min_i>Min_j then          begin
            Temp_1:=A[i,1];
            A[i,1]:=A[i+1,1];
            A[i+1,1]:=Temp_1;
            Temp_2:=A[i,2];
            A[i,2]:=A[i+1,2];
            A[i+1,2]:=Temp_2;
            isChange:=True;
          end;
        end;
    Until isChange=False;
    WriteLn('Yahoo:');{OTBET}
    Write('A: ');
    For i:=1 to n do Write(A[i,1]:n);
    WriteLn;    Write('B: ');
    For i:=1 to n do Write(A[i,2]:n);
    WriteLn;    WriteLn('If you want to quit press <ESC>, else any key.');
    ch:=ReadKey;
Until ord(ch)=27;
  END;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2012, 16:31
Ответы с готовыми решениями:

Изменение названия консольного окна в панели задач
Добрый день всем! Скажите, есть ли возможность средствами Delphi изменить надпись выполняемого...

Нет связи консольного приложения с событиям динамических компонентов
Люди как связать событие с компонентом ? program Project1; {$APPTYPE CONSOLE} {$R *.res} ...

Как избавится от родительского консольного окна при создание WinAPI окна
добрый день. использую DEV-C++, но так понимаю разницы нет, какая у нас IDE. создаём просто...

Развертывание консольного окна
Как при включении программы развернуть консольное окно??? Если я это делаю вручную оно прилепает к...

6
12 / 12 / 0
Регистрация: 17.10.2009
Сообщений: 46
23.05.2012, 16:56 2
в конец программы добавь
Pascal
1
readln;
0
6045 / 2160 / 753
Регистрация: 10.12.2010
Сообщений: 6,005
Записей в блоге: 3
23.05.2012, 22:36 3
OffyGhost, вы точно Run/f9 делаете?
Цитата Сообщение от OffyGhost Посмотреть сообщение
появляется какоето окошко справа
Что за окошко?
0
9 / 9 / 7
Регистрация: 04.03.2010
Сообщений: 107
24.05.2012, 05:37  [ТС] 4
Цитата Сообщение от HighPredator Посмотреть сообщение
OffyGhost, вы точно Run/f9 делаете?

Что за окошко?
readln; не помогает, делаю Run, build, ничего не всплывает
0
3944 / 1869 / 337
Регистрация: 16.03.2012
Сообщений: 3,880
24.05.2012, 06:15 5
Вообще-то код похож на Pascal. Может тебе в другой раздел? В Delphi это не работает и даже не компилируется.
0
9 / 9 / 7
Регистрация: 04.03.2010
Сообщений: 107
24.05.2012, 07:06  [ТС] 6
Цитата Сообщение от Одиночка Посмотреть сообщение
Вообще-то код похож на Pascal. Может тебе в другой раздел? В Delphi это не работает и даже не компилируется.
Окошко появилось. Уже этот код заработал на делфи, надо только графическое оформление прикрепить.
0
3944 / 1869 / 337
Регистрация: 16.03.2012
Сообщений: 3,880
24.05.2012, 07:15 7
Чтобы программа заработала на Delphi там достаточно было Паскаль-ные ссылки убрать:
Pascal
1
2
3
uses
CRT32 in 'CRT32.pas',
EsConsole in 'EsConsole.pas';
Заменить на:
Delphi
1
2
uses
  SysUtils;
и убрать:
Pascal
1
    ClrScr;
И у тебя получилось консольное приложение Delphi. А что ещё нужно?
Ещё вместо:
Pascal
1
    ch:=ReadKey;
Вставить:
Delphi
1
ReadLn(ch);
1
24.05.2012, 07:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2012, 07:15
Помогаю со студенческими работами здесь

Предотвращение создания консольного окна
В общем, беда моя такова, что даже если я не использую ни cout, ни cin, ни даже namespace std и...

Создание окна из консольного приложения
Подскажите пожалуйста как создать окно в консольном с++

Как избавиться от консольного окна?
Здравствуйте! Подскажите пожалуйста как избавиться от консольного окна на заднем фоне созданного...

Получение текста из консольного окна
Здравствуйте. Помогите программно получить весь текст из консоли сервера Counter Strike 1.6....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru