Перейти к содержанию

Простейшие программы в Lazarus

Материал из Викиучебника — открытых книг для открытого мира

К оглавлению

Все программы, код которых выложен здесь, являются работоспособными. На момент написания программ использовалась среда Lazarus 1.6.4.

Чтение массива

[править]
program Project1;

{$mode objfpc}{$H+}

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

const
  N = 4;

var
  A: array [0..N - 1] of integer;
  i: integer;

begin
  for i := 0 to N - 1 do
    Readln(A[i]);
  Readln();
end.

Поиск минимума

[править]
program Project1;

{$mode objfpc}{$H+}

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

const
  N = 4;

var
  A: array [0..N - 1] of integer;
  i: integer;
  Min: integer;

begin
  for i := 0 to N - 1 do
    Readln(A[i]);

  Min := A[0];
  for i := 1 to N - 1 do
    if A[i] < Min then
      Min := A[i];

  Writeln(Min);
  Readln();
end.

Поиск максимума

[править]
program Project1;

{$mode objfpc}{$H+}

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

const
  N = 4;

var
  A: array [0..N - 1] of integer;
  i: integer;
  Max: integer;

begin
  for i := 0 to N - 1 do
    Readln(A[i]);

  Max := A[0];
  for i := 1 to N - 1 do
    if A[i] > Max then
      Max := A[i];

  Writeln(Max);
  Readln();
end.