має властивість Shape, що визначає її форму. Ця властивість може набувати різних значень: stRectangle — прямокутник, stCircle — коло, stSquare — квадрат, stDiamond — ромб, stTriangle — трикутник, за замовчуванням значення цієї властивості визначає квадрат з контуром чорного кольору товщиною 1 піксель і суцільною заливкою білого кольору.
Var a,b,c,d,x,y,z,y1,z1,y2,z2,nod:integer; begin writeln('1-я дробь (числитель и знаменатель):'); readln(a,b); writeln('2-я дробь (числитель и знаменатель):'); readln(c,d); y1:=a*d+c*b; y2:=y1; z1:=b*d; z2:=z1; while (y2>0)and(z2>0) do if y2>z2 then y2:=y2 mod z2 else z2:=z2 mod y2; nod:=y2+z2; y1:=y1 div nod; z:=z1 div nod; x:=y1 div z; y:=y1 mod z; if x>0 then writeln(x,' ',y,'/',z) else writeln(y,'/',z); end.
Пример: 1-я дробь (числитель и знаменатель): 1 10 2-я дробь (числитель и знаменатель): 2 5 1/2
має властивість Shape, що визначає її форму. Ця властивість може набувати різних значень: stRectangle — прямокутник, stCircle — коло, stSquare — квадрат, stDiamond — ромб, stTriangle — трикутник, за замовчуванням значення цієї властивості визначає квадрат з контуром чорного кольору товщиною 1 піксель і суцільною заливкою білого кольору.
Объяснение: