Помогите составить блок-схему

Victor123 · 23.11.2015, 14:01

Данные таковы.
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.

Vladimir_S · 23.11.2015, 14:11

Ссылка на сервис - здесь.

23.11.2015, 14:01	#1 (permalink)
Victor123 Новичок Регистрация: 23.11.2015 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите составить блок-схему Данные таковы. 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.

23.11.2015, 14:11	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ссылка на сервис - здесь.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070