Question

7-й вариант
1.)Дано три числа a,b,c. Найти разность между большим и меньшим числом.
2.) Сложить таблицу значений функции y= e^x - sin(x)cos(x) на промежутке (a,b) с шагом k.

Answer 1

Задача 1)
//PascalABC.NET

begin
    writeln('Введите через пробел три числа');
    var a := ReadArrInteger(3);
    write('Разность большего и меньшего равна ');
    writeln( a.Max - a.Min )
end.

Задача 2)
//PascalABC.NET

var
    y : array of real;
begin
    // Запрашиваем область определений
    write('Введите a: ');
    var a := ReadlnReal();
    write('Введите b: ');
    var b := ReadlnReal();
    write('Введите k: ');
    var k := ReadlnReal();
   
    // Резервируем массив для значений функции
    y := new real[Round((b - a) / k) + 1];
   
    // Заполняем массив данными
    for var i := 0 to Round((b - a) / k) do
    begin
        y[i] := Exp(a) - Sin(a) * Cos(a);
       
        // Следующее значение
        a += k
    end;
   
    // Выводим массив на экран
    foreach var i in y do
        writeln(i:8:3)
end.

Результаты в приложениях