var a,b,c,d:integer;
begin
writeln('Вступительный балл');
readln(a);
writeln('1 экзамен ');
readln(b);
writeln('2 экзамен ');
readln(c);
writeln('3 экзамен ');
readln(d);
if a<(b+c+d) then
writeln('Ученик принят');
else
writeln('Ученик не принят');
end.
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,'x',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var q:=a.Cols.Select(x->x.First<x.Last).ToArray;
var k:=q.Where(r->r).Count;
Writeln('*** Результирующая матрица [',m,'x',k,'] ***');
var b:=MatrFill(m,k,0);
var l:=0;
for var j:=0 to n-1 do
if q[j] then begin
for var i:=0 to m-1 do b[i,l]:=a[i,j];
l+=1
end;
b.Println(4)
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5x8] ***
15 -35 -11 -18 49 -32 31 -47
-21 -46 7 -48 3 24 -48 5
28 -46 36 -9 17 -32 -44 -10
-16 7 -14 40 13 30 50 -28
-8 35 -49 47 -31 30 18 20
--------------------------------
*** Результирующая матрица [5x4] ***
-35 -18 -32 -47
-46 -48 24 5
-46 -9 -32 -10
7 40 30 -28
35 47 30 20
1)Функция
program fun;
function f(m,n : real):real;
var
k,x,y : real;
begin
x:=5*m+pi/3;
y:=3*n-pi/3;
k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));
f:=k;
end;
var
a,b : real;
begin
writeln('Введите число a= ');
read(a);
writeln('Введите число b= ');
read(b);
writeln('F= ',f(a, b):0:2);
end.
2) Процедура
program fun;
procedure f(m,n : real);
var
k,x,y : real;
begin
x:=5*m+pi/3;
y:=3*n-pi/3;
k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));
writeln('F=',k:0:2);
end;
var a, b :real;
begin
writeln('Введите число a= ');
read(a);
writeln('Введите число b= ');
read(b);
f(a,b);
end.
Маша и медведь
Управляющий объект : Машенька
Объект управление : Мишка
Цель управления : - Не дать медведю остановиться .
- Целой и невредимой доехать к бабушке и дедушке .
- Оставить пирожки целыми.
если я правильно поняла, здесь 2 выражения?
sqr(sqr(x))*cos(a*x)-exp(1/3*ln(abs(2+x-a)))+ln(sqr(x+2)+2*a);
sqrt(1+a*x*x+6*x)*exp(-a*x)+ln(abs(a-x)).
