Расстояние между двумя точками,блок-схема

@RMfan · Регистрация: 25.12.2011

Author24 — интернет-сервис помощи студентам

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

Pascal

Program esep25;
uses crt;
var x1,x2,y1,y2,dl:real;
procedure pr_dl(x1,y1,x2,y2:real; var dl:real);
begin
  dl:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
  writeln('Введите координаты точки x1,y1');
  readln(x1,y1);
  writeln('Введите координаты второй точки x2,y2');
  readln(x2,y2);
  pr_dl(x1,y1,x2,y2,dl);
  writeln('Расстояние между двумя точками = ',dl:10:3);
end.

@BigOblom · 30.12.2011, 11:17

ГОСТ по составлению блок-схем
Еще можете погуглить на тему: "Программа для построения блок-схем"

LK · 30.12.2011, 18:33

можно не гуглить Diagram Designer (ZIP, 1.60 Мб)

@BigOblom 124 / 124 / 17 Регистрация: 30.06.2010 Сообщений: 478
	30.12.2011, 11:17	2
	ГОСТ по составлению блок-схем Еще можете погуглить на тему: "Программа для построения блок-схем" 0

LK Заблокирован
	30.12.2011, 18:33	3
	можно не гуглить Diagram Designer (ZIP, 1.60 Мб) 0