Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

339

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Советник

267

Россия, Санкт-Петербург


ID: 400669

epimkin

Профессионал

254


ID: 137394

Megaloman

Мастер-Эксперт

122

Беларусь, Гомель


ID: 405239

al4293189

1-й класс

86


ID: 401888

puporev

Профессор

69

Россия, Пермский край


ID: 325460

CradleA

Мастер-Эксперт

65

Беларусь, Минск


8.9.8

01.08.2021

JS: 2.9.16
CSS: 4.5.14
jQuery: 3.6.0
DataForLocalStorage: 2021-08-02 12:16:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 200882

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Анастасия Тотышева (Посетитель)
Дата: 20.05.2021, 11:26 Консультация закрыта
Поступило ответов: 1

Здравствуйте! У меня возникли сложности с таким вопросом: я написала программу в лазарусе в консольном приложении и у меня ошибки в 86 строчке, помогите исправит,скачать файл project33.pas [1.7 кб]. пожалуйста

Ответ # 281141 от puporev
Здравствуйте Анастасия! И зачем Вам этот неоправданно большой код? Но держите.
Код [Pascal]
program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure WriteHelp; virtual;
  end;

{ TMyApplication }

procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
begin
  // quick check parameters
  ErrorMsg:=CheckOptions('h', 'help');
  if ErrorMsg<>'' then begin
    ShowException(Exception.Create(ErrorMsg));
    Terminate;
    Exit;
  end;

  // parse parameters
  if HasOption('h', 'help') then begin
    WriteHelp;
    Terminate;
    Exit;
  end;

  { add your program here }

  // stop program loop
  Terminate;
end;

constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;

destructor TMyApplication.Destroy;
begin
  inherited Destroy;
end;

procedure TMyApplication.WriteHelp;
begin
  { add your help code here }
  writeln('Usage: ', ExeName, ' -h');
end;

var
  Application: TMyApplication;
  a,i,n,kolchet,kolnechet:integer;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
  repeat
write('Количество чисел для ввода n>0 n=');
readln(n);
until n>0;
KolChet:=0;
KolNechet:=0;
for i:=1 to n do
 begin
  write('Введите целое число a=');
  readln(a);
  if a mod 2=0 then kolchet:=kolchet+1 else kolnechet:=kolnechet+1;
 End;
writeln ('Количество четных=',kolchet,' Количество нечетных=',kolnechet);
readln
end.          

Установить русский язык так же как в предыдущем ответе.

Последнее редактирование 20.05.2021, 12:09 puporev (Профессор)

-----
Прикрепленные файлы:


Программа_2.zip
скачать (2.2 кб)

puporev

Профессор
20.05.2021, 12:08
Мини-форум консультации # 200882

q_id

puporev

Профессор

ID: 401888

1

= общий =    20.05.2021, 11:33
Анастасия Тотышева:

Чем не устроил ответ здесь?
https://rfpro.ru.../question/200876

q_id

Анастасия Тотышева

Посетитель

ID: 405052

2

= общий =    20.05.2021, 11:42
puporev:

Мне нужно выполнить это задание в консольном приложении и в нём у меня вылезают ошибки

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 88

puporev

Профессор

Рейтинг: 69

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0