Язык программирования Паскаль

then  begin x1:=(–b +sqrt(d))/(2*a); x2:=(–b –sqrt(d))/(2*a); writeln (‘x1= ‘,x1,’x2= ‘,x2); end  else if d=0 then   begin x := –b/(2*a); writeln (‘x = ‘,x);  end else writeln (‘корней нет’); end.

Программа решения квадратного уравнения

for-to-do repeat-until

процедуры
end;

function имя функции (формальные параметры):тип результата;
раздел описаний функции
begin
исполняемая часть функции
имя функции := результат;
end;

Формат описания подпрограммы

Формальные параметры в заголовке процедур и функций записываются в виде:
var имя параметра: имя типа

Вызов процедуры производится оператором, имеющим следующий формат:
имя процедуры (список фактических параметров);

При вызове процедур и функций необходимо соблюдать следующие правила:
количество фактических параметров должно совпадать с количеством формальных;
соответствующие фактические и формальные параметры должны совпадать
по порядку следования и по типу

var max: integer);
begin if a>b then max:=a else max:=b; end;
{----------------------------------------------------}
begin
readln(x,y);
MaxNumber(x,y,m);
MaxNumber(2,x+y,n);
writeln('m=',m,'n=',n);
end.

var x,y,m,n: integer; {---------------------------------------------------} function MaxNumber(a,b: integer): integer;
var max: integer;
begin if a>b then max:=a else max:=b; MaxNumber := max; end;
{---------------------------------------------------}
begin
readln(x,y);
m := MaxNumber(x,y);
n := MaxNumber(2,x+y); writeln('m=',m,'n=',n);
end.

с элементами массива, двумерные массивы
 Алгоритмы с использованием условного оператора

Задания 25 (С2). Алгоритмы обработки массивов
 Вычисление средних, суммы элементов
Поиск максимального элемента
Поиск минимального элемента