Простейшие программы в 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.