program lr_8;
uses crt;
var y,u:integer;
res:real;function summ(a,b:integer):real;
begin
summ:=a*a+b*ln(a*a)/sin(b)*sin(b);
end;
procedure resultat;
beginwriteln (res:8:2);
end;
begin readln (y,u);
res:=summ(y,u);
resultat
;readln;
end.Добавлено (05.06.2014, 21:43)
---------------------------------------------
program lr_6;
uses crt;
const n=6;
vara:array[1..n,1..n] of integer;
b:array[1..n] of integer
;i,j,min,max,jmax:integer;beginclrscr;
randomize;
for i:=1 to n dobeginfor j:=1 to n dobegina[i,j]:=random(20)-10;write(a[i,j]:4);end;writeln;end;writeln;for i:=1 to n dobeginb:=a[i,1];jmax:=1;for j:=1 to n doif a[i,j]<b thenbeginb:=a[i,j];jmax:=j;end;writeln(i,' min=',b);end;min:=b[1];for i:=1 to n doif b>min thenmax:=b;write('max',max);readln;end.
Добавлено (05.06.2014, 21:44)
---------------------------------------------
program lr_4_2;
var f, x:real;
begin x:=2;
repeatf:=ln(2*x);
writeln('x=', x:4:1, 'f(x)=', f:6:2);
x:=x+0.4;
until x>6+0.4;
readln
end.