Хелп Новичку!!! Заранее спс)

[SaHaRa]

* * * * *1.Что такое трассировочная таблица?* ???

* * * * * * * * * * * * * * * * 2.Задачки * ::)

* * * * *Упражнение 1.1
* * * * *Заданы действительные числа a, b, c и d. Найти полусумму наименьшего и наибольшего из них.

* * * * *Упражнение 1.2
* * * * *Заданы натуральное число n и действительные числа a и b. Найти сумму членов арифметической прогрессии
* * * * *a, a + b, a + 2b,..., a + (n - 1) b.

* * * * *Упражнение 1.3
* * * * *Дано действительное число x. Не пользуясь никакими другими арифметическими операциями, кроме сложения, умножения и вычитания, вычислить значение
* * * * *5x^4 + 2x^3 - 8x - 1.

* * * * *Упражнение 1.4
* * * * *Треугольник задан координатами трех своих вершин. Определить, где находится точка O с указанными координатами -- внутри или вне треугольника.

* * * * *Упражнение 1.5
* * * * *Старинная задача "Волк, коза и капуста".
* * * * *Крестьянину надо перевезти через речку волка, козу и капусту. В лодке может поместиться только один человек, а с ним или волк, или коза, или капуста. Если оставить на берегу волка с козой без человека, то волк съест козу. Если оставить козу с капустой, то коза съест капусту. В присутствии человека коза не может съесть капусту, а волк не может съесть козу. Как должен действовать крестьянин, чтобы перевезти свой груз через речку в целости и сохранности?
* *


* * * * Простите за Легкие задачки,но я ток начел и Хочу понять хоть как ето делать :) А с контрольной сам думаю справлюсь если ето объяснят. ;)

[Aziz Mirzaev]

* * * * Упражнение 1.1

Вот код на Паскале:

Program Upr_1_1;

Function Max(x,y:Integer) : Integer;
Begin
* if (x > y) then
* * Max := x
* else
* * Max := y;
End;

Function Min(x,y:Integer) : Integer;
Begin
* if (x < y) then
* * Min := x
* else
* * Min := y;
End;

Var a, b,c, d : Integer;
* * i_max, i_min : Integer;
begin
* Writeln('Введите числа!');
* Readln(a,b,c,d);

* i_max := Max(a,b);
* i_max := Max(a,c);
* i_max := Max(a,d);
* i_min := Min(a,b);
* i_min := Min(a,c);
* i_min := Min(a,d);
* Writeln ((i_max + i_min)/2);
end.

[Aziz Mirzaev]

* * *Упражнение 1.2

Тоже на Паскале:

Program Upr_1_2;

Var n, a, b : Integer;
* * i, Sum : Integer;
begin
* Write('Введите число n :!');
* Readln(n);

* Write('Введите число a :!');
* Readln(a);

* Write('Введите число* b :!');
* Readln(b);

* Sum := 0;
* For i := 0 to n - 1 do
* * Sum := Sum + (a + i*b);

* Writeln(Sum/n);

end.

[Aziz Mirzaev]

* * * * * Упражнение 1.3


Program Upr_1_3;

Function Degree(x: Real; Deg : Integer):Real;
Var
* * Buffer : Real;
* * i : integer;
Begin
* Buffer := x;
* if Deg > 1 then
* * for i := 2 to Deg do
* * * Buffer := Buffer * x
* else if deg = 0 then Degree := 1
* else if deg = 1 then Degree := x;
* Degree := Buffer;
End;

Var
* * X : Integer;
* * Result : Real;
begin
* Write('Введите число X :');
* Readln(X);
* Result := 5*Degree(X,4) + 2*Degree(X,3) - 8*X - 1;
* Writeln(Result);
end.

[Aziz Mirzaev]

Упр 1.5

Коза ->
Волк ->
коза <-
капуста ->
коза ->