Блок-схема

@xMaserati · Регистрация: 05.05.2013

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

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

Pascal

program zadanie1;
type point=record
        x,y:real;
end;
function length (var a, b:point) : real;
begin
  length := sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y));
end;
function min (a, b:real) : real;
begin
  if a < b then
  min := a
  else
  min := b;
end;
var a:array [1..100] of point;
    b:point;
    n, i:integer;
    dist:real;
begin
write('Введите колличество точек множества А: ');
read (n);
for i:=1 to n do
begin
        write ('Введите x,y точки ', i, ': ');
        read (a[i].x, a[i].y);
    end;
    write ('write x,y of B: ');
    read (b.x, b.y);
    dist := length(b, a[1]);
       for i:=2 to n do
        dist:= min(dist, length(b, a[i]));
    writeln ('Дистанция: ', dist:0:2);
end.

@ildwine · 27.11.2013, 12:40

Блок-схема:

@bormant · 27.11.2013, 13:12

ildwine, кстати, позволите полюбопытствовать, чем (в смысле программного обеспечения) схемка нарисована?

@ildwine · 27.11.2013, 13:16

bormant, FCEditor 1.6.

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	27.11.2013, 12:40	2
	Блок-схема: Миниатюры 1

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,076 Записей в блоге: 1
	27.11.2013, 13:12	3
	ildwine, кстати, позволите полюбопытствовать, чем (в смысле программного обеспечения) схемка нарисована? 0

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	27.11.2013, 13:16	4
	bormant, FCEditor 1.6. 0

Опции темы