функция Perim(Ax,Ay,Bx,By,Cx,Cy) вещественного типа, находящая периметр треугольника ABC

[lucky]

1. Напишите функцию, возвращающую true, если переданное ей в параметре число является четным, и false – в противном случае
2. Напишите функцию, меняющую минимальный и максимальный элементы матрицы.
3. Описать функцию Perim(Ax,Ay,Bx,By,Cx,Cy) вещественного типа, находящую периметр треугольника ABC по координатам его вершин (Ax, Ay, Bx, By, Cx, Cy — вещественные параметры). С помощью этой функции найти периметры треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.

[Лучик_света]

1 функция

function chet(a: Integer):bool;
begin
if (a div 2) = 0 then
chet := true
else
chet := false;
end;

[lucky]

ооо, спсиб огромное) =*

[Sazary]

Вторая задача:
Процедура + пример:

uses crt;

const M=3; N=3;
type massiv = array[1..M,1..N] of integer;

var mas: massiv;
i,j : integer;

procedure obmen(var a : massiv);
 var i,j,ni1,nj1,ni2,nj2,min,max : integer;
 begin
 ni1 := 1;
 nj1 := 1;
 ni2 := 1;
 nj2 := 1;

 min := a[1,1];
 max := a[1,1];
 for i:=1 to M do
  for j:=1 to N do
   begin
   if a[i,j]>max then
     begin
     max := a[i,j];
     ni1 := i;
     nj1 := j;
     end;
   if a[i,j]<min then
     begin
     min := a[i,j];
     ni2 := i;
     nj2 := j;
     end;
   end;

 max := a[ni1,nj1];
 a[ni1,nj1] := a[ni2,nj2];
 a[ni2,nj2] := max;
 end;

begin
clrscr;
for i:=1 to M do
 for j:=1 to N do
  mas[i,j] := i*j;

for i:=1 to M do
 begin
 for j:=1 to N do
  write(mas[i,j]:5);
  writeln;
 end;
 writeln;
 writeln;

obmen(mas);
for i:=1 to M do
 begin
 for j:=1 to N do
 write(mas[i,j]:5);
 writeln;
 end;

readln;
end.

Если нужно именно функцию, то:
заменить

procedure obmen(var a : massiv);

на

function obmen(var a : massiv) : boolean;

И в конце функции добавить

obmen := true;

[lucky]

бляя, спасиб офигенно огромное!!!) вы просто спасаете мою *опу))

[Sazary]

И последняя:

var
ax,ay,bx,by,cx,cy,dx,dy : real;

function perimeter(Ax,Ay,Bx,By,Cx,Cy : real) : real;
 var per : real;
 begin
 per := 0;
 per := per + sqrt(sqr(Bx-Ax)+sqr(By-Ay));
 per := per + sqrt(sqr(Cx-Bx)+sqr(Cy-By));
 per := per + sqrt(sqr(Cx-Ax)+sqr(Cy-Ay));
 perimeter := per;
 end;

begin
ax:=0;
ay:=0;
bx:=3;
by:=0;
cx:=0;
cy:=4;
dx:=5;
dy:=7;
writeln('Perimeter ABC= ',perimeter(ax,ay,bx,by,cx,cy):3:1);
writeln('Perimeter ABD= ',perimeter(ax,ay,bx,by,dx,dy):3:1);
writeln('Perimeter ACD= ',perimeter(ax,ay,cx,cy,dx,dy):3:1);
readln;
end.

[Sazary]

Первая задача:

function chet(a : integer) : boolean;
 begin
 if a mod 2 = 0 then
  chet :=true
 else chet := false;
 end;

begin
writeln(chet(4));
writeln(chet(7));
readln;
end.

Лучик_света В вашем коде 2 ошибки: во-первых, "boolean" вместо "bool", а во-вторых "mod" вместо "div". ))

[lucky]

слуш)) чувак)) те надо памятник поставить)) такие люди не должны пропадать в беларуси

[Alter]

короче так:

 function chet(a : integer) : boolean;
 begin
  chet := ((a mod 2) = 0);
 end;

и ещё есть Odd для этой цели(чётност-нечётность).