Доброго времени суток, уважаемые пользователи сайта. Прошу вас помочь с крайне сложным заданием на мое усмотрение, но за достойную награду. Прошу вас

+ 0 -

Evazany

28 февр. 2014 г., 12:52:35 (10 лет назад)

1)
var
    i: integer;

begin
    writeln('Число':10, 'Квадрат':10);
    for i := 1 to 5 do
        writeln(i:10, i * i:10);
end.

2, 4, 5, 7 - универсальное решение
const
    one_row = true;

var
    a: array[1..100] of integer;
    i, max, min, sum, min_r, max_r, n: integer;

begin
    writeln('Введите длину массива = ');
    read(n);
    writeln('Введите границы значений для элементов массива = ');
    read(min_r, max_r);
    writeln();
   
    for i := 1 to n do
    begin
        a[i] := random(max_r + min_r) - min_r;
        sum := sum + a[i];
       
        if one_row then
            write(a[i], ' ')
        else writeln(a[i]);
       
        if i = 1 then begin
            min := a[i];
            max := a[i];
        end
        else begin
            if max < a[i] then max := a[i];
            if min > a[i] then min := a[i];
        end;
    end;
    writeln();
   
    writeln('Минимум: ', min);
    writeln('Максимум: ', max);
    writeln('Сумма: ', sum);
end.

3)
const
    x_max = 1.3;
    x_min = 0.5;
    x_step = 0.2;

var
    x, y: real;

begin
    writeln('x':10, ' ', 'y':10);
    x := x_min;
    repeat
        y := sqrt(3 * x * x + 5);
        writeln(x:10:1, ' ', y:10:3);
        x := x + x_step;
    until x > x_max;
end.

6)
var
    i: integer;

begin
    for i := 1 to 10 do
        writeln('3 * ',i:2,' = ', 3 * i:2);
end.

8)
var
    x, y: real;

begin
    read(x);
    if x <= 10 then
        y := 21 - x * x
    else y := x * x * x + 45 * x;
    writeln(y);
end.

+ 0 -

123antoxa123

28 февр. 2014 г., 14:24:18 (10 лет назад)

а что бывают отрицательные оценки? вроде меньше 1 оценки нет))