0. Начало 1. Ввод - Гвозди, картина молоток, стена 2. Операция - Прибить гвоздь к стене при молотка 3. Условие - Гвоздь прибит к стене? Нет->Повторить пункт 2; Да->Переходим к пункту 4 4. Повесить картину на гвоздь 5. Конец
Ну это если не заморачиваться с условиями. К примеру можно после 4 пункта поставить условие на проверку положения картины, т.е Картина висит прямо? ->Нет то Действие выровнять положение картины; Да->Конец
UPD: Ещё можно создать условие на состояние гвоздя - погнутый или целый, вытаскивание погнутого гвоздя и т.д.
var a: array[1..2,1..4] of real; b,c: string; d,x,y: real; i,j: integer; begin b:='ABCD'; c:='xy'; writeln('трапеция ABCD'); for i:=1 to 4 do begin writeln('координаты точки ',b[i],': '); for j:=1 to 2 do begin write(' ',c[j],i,' = '); readln(a[j,i]); end; end; x:=(a[1,3]-a[1,2]+a[1,4]-a[1,1])/2; y:=(a[2,3]-a[2,2]+a[2,4]-a[2,1])/2; d:=sqrt(x*x+y*y); writeln('длина средней линии: ',d:5:2); end.
ввод - вывод
трапеция ABCD координаты точки A: x1 = 3 y1 = 2 координаты точки B: x2 = 5 y2 = 5 координаты точки C: x3 = 9 y3 = 5 координаты точки D: x4 = 10 y4 = 2 длина средней линии: 5.50
1. Ввод - Гвозди, картина молоток, стена
2. Операция - Прибить гвоздь к стене при молотка
3. Условие - Гвоздь прибит к стене? Нет->Повторить пункт 2;
Да->Переходим к пункту 4
4. Повесить картину на гвоздь
5. Конец
Ну это если не заморачиваться с условиями. К примеру можно после 4 пункта поставить условие на проверку положения картины, т.е Картина висит прямо? ->Нет то Действие выровнять положение картины;
Да->Конец
UPD: Ещё можно создать условие на состояние гвоздя - погнутый или целый, вытаскивание погнутого гвоздя и т.д.