Помогите выстроить блок схему к программке,пожалуйстаProgram Cikl;var a,b,h,x1,x2,y:real;

Помогите выстроить блок схему к программке,пожалуйста

Program Cikl;
var a,b,h,x1,x2,y:real;
begin
writeln ('введите a');
readln (a);
writeln ('введите b');
readln (b);
writeln ('введите x1');
readln (x1);
writeln ('введите x2');
readln (x2);
writeln ('введите h');
readln (h);
while x1lt;=x2 Do
begin
if (x1lt;1.4)
then y:=3.14*x1*x1-7/x1*x1
else
if x1=1.4
then y:=a*x1*x1+7*sqrt(x1*x1-1)
else y:=(a+b*x1)/sqrt(x1*x1+1);
writeln (x1,y);
x1:=x1+h;
end
end.

Задать свой вопрос
1 ответ
---------------------------------
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт