Максим
Помогите решить три задачи на паскале, пожалуйста!
Всем привет, помогите решить три случайных задачи на картинке.
Всем привет, помогите решить три случайных задачи на картинке.
1) Может не процедуру, а функцию…
Тогда так:
function Power(N, P : Integer) : Integer;
var
R : Integer;
begin
R := 1;
while P > 0 do
begin
R := R * N;
Dec(P);
end;
Power := R;
end;
Вычисляем:
Y := A1*Power(X, 4) + A2*Power(X, 3) + A3*Power(X, 2) + A4*X + A5;
2) Как-то так:
procedure Swap(var N1, N2 : Integer);
var
T : Integer;
begin
if N1 > N2 then
begin
T := N1; N1 := N2; N2 := T;
end;
end;
Теперь сортируем:
Swap(A, B); Swap(A, C); Swap(A, D); Swap(A, E);
Swap(B, C); Swap(B, D); Swap(B, E);
Swap(C, D); Swap(C, E);
Swap(DA, E);
Дальше надоело разбираться… Ни хрена не видно!