Проблемы с Паскалем

[Dieter]

Почему Turbo Pascal говорит, что эта прога написана неправильно? ???


ЗЫ  Как копиравать из доса не знаю, пришлось делать скрин

[exBoMBeR]

Создать массив размером nxm Нули в нём заменить единицами, а единицы нулями.

  Напишите мне эту прогу пожалуйста - очень не сложно. Сам не могу  -wall-

А остальные значения (не нули, но и не единицы) оставить без изменения?

[Scorpion_13]

Создать массив размером nxm Нули в нём заменить единицами, а единицы нулями.

  Напишите мне эту прогу пожалуйста - очень не сложно. Сам не могу  -wall-

А остальные значения (не нули, но и не единицы) оставить без изменения?

да

[Anton R.]

Я только что начал программировать в Delphi. Без проблем, как всегда не обошлось.
Вот почему при запуске, Delphi выделяет последнюю строку??

var
s :real;

s :=5;

[Gendalf]

var
s :real;

begin

s :=5;

end;

[Anton R.]

var
s :real;

begin

s :=5;

end;

Спасибо. Лови +сик [sneaky]]

[Anton R.]

Хм.. не запускается почему-то. Выделяет слово begin

[Gendalf]

s:=5.0; тогда

[Victoria1]

если программа закончена, то после енда точку ставь

[Anton R.]

Не-а. Всё равно не получается. Вот, посмотрите весь код.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
s :real;

begin

s:=5.0;

end;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShomMessage ('qqq')
end;

end.

[Victoria1]

я могу ошибаться, но может не хватает одного бегина? (в самом начале).
кол-во бегинов=кол-во ендов.

[Faust]

%) Погоди, а этот блок твой он к чему относится?

[Victoria1]

кстати да..тем более 4 енда и только 2 бегина...

[Faust]

Хм....афтар, дафай так. Что ты хочешь, чтобы получилось в итоге?

Кстати, внизу иногда интересные буквы пишут

[Faust]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('ggggg');
end;

end.

Так?

[Faust]

ПыСы. в блоке Interface разберись что должно быть

[Faust]

showmessage('ggggg');
Так?

не так!
не gggg a qqq

Чорт)))) Точно)))

[Anton R.]

Так, только, мне еще надо задать значения нескольким переменным, которые использовались бы в сразу нескольких процедурах.

[Faust]

Ну так var в блоке Interface пиши. А вычисления, будь добр, в implemetation

[Anton R.]

А для чего тогда раздел var ?

[Faust]

Ммм=) Молодой человек, воспользуйтесь любой доступной литературой по Дельфи. Иначе скоро совсем жутко станет