Подпрограммы-процедуры, подпрограммы-функции в Pascal

[ROMA2PVT]

а контакт?

[rishikesh]

Procedure Xernya(Var a:mas);
var
i,j,n,m:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
if a[i,j]<0 then
begin
a[i,j]:=sqr(a[i,j]);
end
else
if a[i,j]>0 then
begin
a[i,j]:=sqrt(a[i,j]);
end;
end;
end;

а что это такое ? =)

[rishikesh]

Сообщение от ROMA2PVT

а контакт?

Не не =) Вконтакте не сижу, Контакт = зло

[ROMA2PVT]

Мозг кипит.Напиши другое название.И в основном теле переменуй.

[rishikesh]

Сообщение от ROMA2PVT

Мозг кипит.Напиши другое название.И в основном теле переменуй.

Оки......

[ROMA2PVT]

Вот последняя функция без параметров.

Var
 a,b,c,d,max:integer;

function Poisk:integer;
Begin
max:=a;
if b>max then max:=b;
End;

begin
write('Введите 1-е число: ');
readln(a);
write('Введите 2-е число: ');
readln(b);
write('Введите 3-е число: ');
readln(c);
write('Введите 4-е число: ');
readln(d);
Poisk;
if c>max then max:=c;
if d>max then max:=d;
writeln('Результат = ',max);
end.

[rishikesh]

Сообщение от ROMA2PVT

Вот последняя функция без параметров.

Var
 a,b,c,d,max:integer;

function Poisk:integer;
Begin
max:=a;
if b>max then max:=b;
End;

begin
write('Введите 1-е число: ');
readln(a);
write('Введите 2-е число: ');
readln(b);
write('Введите 3-е число: ');
readln(c);
write('Введите 4-е число: ');
readln(d);
Poisk;
if c>max then max:=c;
if d>max then max:=d;
writeln('Результат = ',max);
end.

Куль, спасибки очень выручил , ато преподаватели вообще злостные

[ROMA2PVT]

<<offtop>>
Элементарные задания.Ну я думаю ты в аську будешь заходить?

[rishikesh]

Сообщение от ROMA2PVT

<<offtop>>
Элементарные задания.Ну я думаю ты в аську будешь заходить?

я сейчас в ней

[rishikesh]

...........