Пауза при работе с консольным приложением

@vlchuprov · Регистрация: 30.09.2016

Студворк — интернет-сервис помощи студентам

Здравствуйте.

Подскажите пожалуйста.
При выводе массива на экран, программа выводит весь массив, потом несколько строчек 000 и что-то пишет и закрывается,
как узнать что, там написано. И почему команда read(m); не срабатывает?

Delphi

program Project2;
 
uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
{$APPTYPE CONSOLE}
    var
    Buf: Array Of Double;
    i,j,k,m,n,x,y,z:integer;
    wsize: LongInt;
    s: double;
    W: File;
    G,L: Text;
    Gname, Wname, Lname:String;
 
begin
    Gname := 'gggg.dat'; // 
    AssignFile(G, gname);
    Reset(G);
    Read (G,x,y,z);      //
    k:=x*y*z;
 
    Wname := 'wwww.res'; // 
    AssignFile(W, Wname);
    Reset(W, 1 );
    wsize := FileSize(W);
    GetMem(Buf, wsize);  //
    Blockread(W, Buf[0], wsize);  // 
 
    for i:=0 to (wsize) do
    writeln (Buf[i]);
 
    read(m);
    FreeMem(Buf); // 
    CloseFile(W);
    CloseFile(G);
    CloseFile(L);
end.

@Puporev · 15.10.2016, 13:50

Сообщение от vlchuprov

И почему команда read(m); не срабатывает?

Потому что нужно readln(m).

@vlchuprov · 15.10.2016, 14:08 **[ТС]**

Сообщение от Puporev

Потому что нужно readln(m).

поставил, все равно команда не выполняется, проблема думаю с размерами файла и массива

Добавлено через 15 минут
вроде сам разобрался:

Delphi

1 2	for i:=0 to ((wsize div 8)) do writeln (Buf[i]);

надо было убрать:

Delphi

1	CloseFile(L);

@Puporev Почетный модератор 64287 / 47586 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	15.10.2016, 13:50	2
	Сообщение от vlchuprov И почему команда read(m); не срабатывает? Потому что нужно readln(m). 1

Опции темы