Помогите составить блок-схему
Данные таковы.
Program kontr; var a,b,h,x,y:real; begin writeln('ввод a,b,h'); read (a,b,h); writeln (' x y'); x:=a; while x<=b do begin y:= sqrt(x)-ln(x+1); writeln (x:8:3,y:8:3); x:=y+h; end; readln;readln; end. |
Ссылка на сервис - здесь.
|
Часовой пояс GMT +4, время: 02:21. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.