Задать вопрос
7 марта, 02:03

Написать код программы с использованием цикла while на PascalABC.

Определить все значения при условии Δx=1,005 (шаг)

+3
Ответы (1)
  1. 7 марта, 04:42
    0
    Const

    x0 = 1.909;

    x1 = 6.23;

    step = 1.005;

    t=10;

    var

    i: real;

    begin

    i:=0;

    while i< (x1-x0) / step do

    begin

    writeln ('a (', x0+i, ') = ', sqrt (1+sqr (x0+i)) + t) ;

    i:=i+step;

    end;

    if (x0+i-step) < (x1) then writeln ('a (', x1, ') = ', sqrt (1+sqr (x1)) + t)

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Написать код программы с использованием цикла while на PascalABC. Определить все значения при условии Δx=1,005 (шаг) ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы