Домашняя работа

Program Step;

Var X, N, a, i: integer;

Begin

Writeln ('Vvedite X, N')

Readln (X, N);

a:=X;

While i<=N do X:=X*a;

Writeln(X);

Readln;

end.

Программирование ветвлений на Паскале

1) Полное ветвление на Паскале программ программируется с помощью командыIf <логическое выражение> then <оператор1> else <оператор2>.

   Неполное ветвление программируется с помощью команды If <логическое выражение> then <оператор>.

2) Составным оператором называется конструкция такого вида:

        begin<последовательность операторов> end.

Домашняя работа

№1.

Program One;
Var a,b,c, F:integer;
begin
writeln('Vvedite znacheniya storon');

readln(a,b,c);
If (a<b+c)and(b<a+c)and(c<a+b) then F=1 else F=0;
Writeln(F);

readln;
end.

№6.

Program Two;

Var a,b,c:real; d, F:byte;

Begin

Writeln ('Vvedite 3 chisla');

Readln (a,b,c);

d:=0

If a<0 then F:=d+1;

If b<0 then F:=d+1;

If c<0 then F:=d+1;

Writeln (F);

Readln;

end.

Program One;
Var x, y, a, b: real;
Begin
Writeln ('Vvedite x, y');
Readln (x, y);
a:=2*x*y
b:=(x+y)/2
If x>y then x:=a; y:=b else x:=b; y:=a;
Writeln(x, y);
Readln;
end.




Program Two;
Var x, y, F:real;
Begin
Writeln ('Vvedite koordinaty');
Readln (x, y);
If x>=0 and y>=0 then F=1 else F=0;
Writeln (F);
Readln;
end.

Домашняя работа.

1)Алгоритм сложения двух простых дробей
   Program One;
   Var a, b, c, d, e, f: integer;
   Begin
   Readln (a, b, c, d, e, f);
   e:= a*d+c*b;
   f:=b*d {знаменатель};
   writeln (e,f);
   end.
2)Алгоритм вычисления y по формуле y=(1-x^2+5x^4)^2
   Program Two;
   Var x, y: integer;
   Begin
   Readln (x, y);
   y:=SQR(1-x*x+5*x*x*x*x);
   Writeln(y);
   End.
3)Алгоритм вычисления выражений:
   1. y=x^8  2. y=x^10   3. y=x^15  4. y=x^19
   1. Program Three;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     2.Program Four;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     3. Program Five;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     4. Program Six;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
4) Алгоритм циклического обмена
    Program Seven;
    Var A,B,C,D: real;
    Begin
    Readln (A, B, C, D)
    D:=A;
    A:=C;
    C:=B;
    B:=D;
    Writeln (A, B, C);
    End.
   

Управление и кибернетика

№1. Основателем кибернетики был американский математик Норберт Винер, автор первой книги по кибернетике, вышедшей в 1948 году.
№2. Управление - это целенаправленное воздействие одних объектов, которые являются управляющими, на другие объекты - управляемые.
№3. С точки зрения кибернетики все варианты управляющих воздействий следует рассматривать как управляющую информацию, передаваемую в форме команд.
№4. Алгоритм управления - последовательность команд по управлению объектом, выполнение которой приводит к достижению заранее поставленной цели.
№5. Школа: директор - управляющий, учителя - объект управления; класс: классный руководитель - управляющий, ученики - объект управления; самолет: диспетчер - управляющий, экипаж - объект управления; стая волков: вожак стаи - управляющий, остальные волки - объект управления; стадо коров: пастух - управляющий, коровы - объект управления.
№6. Школа: письменные или устные команды; класс - устные команды; самолет - устные команды; стая волков - голосом; стадо коров - голосом, хлыстом.