Створити блок схему за завданням: Хлопчик може гуляти до 20:00 вечора. Якщо за тиждень він отримає оцінку нижче ів то гуляти з може лише до 18:00.

До іть будь ласка!

Выполняем перенос начала координат в центральную точку, затем поворачиваем фигуру и возвращаем начало координат на место.

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

type
  Point=(real,real);
  Figure=array of Point;

function MoveTo(Self:Figure;pP:Point):Figure; extensionmethod;
begin
  var n:=Self.Count;
  Result:=new Point[n];
  for var i:=0 to n-1 do
    Result[i]:=(Self[i][0]-pP[0],Self[i][1]-pP[1])
end;

function Rotate(Self:Figure;angle:real):Figure; extensionmethod;
begin
  var mr:=new real[2,2];
  mr[0,0]:=cos(angle); mr[0,1]:=sin(angle);
  mr[1,0]:=-mr[0,1]; mr[1,1]:=mr[0,0];
  var n:=Self.Count;
  Result:=new Point[n];
  for var i:=0 to n-1 do
    Result[i]:=(Self[i][0]*mr[0,0]+Self[i][1]*mr[1,0],
      Self[i][0]*mr[0,1]+Self[i][1]*mr[1,1])
end;

function MoveFrom(Self:Figure;pP:Point):Figure; extensionmethod;
begin
  var n:=Self.Count;
  Result:=new Point[n];
  for var i:=0 to n-1 do
    Result[i]:=(Self[i][0]+pP[0],Self[i][1]+pP[1])
end;

procedure Print(p:Figure;w,d:integer);
begin
  foreach var t in p do
    Writeln(t[0]:w:d,' ',t[1]:w:d)
end;

begin
  var center:Point:=(5.0,3.0);
  var Rectangle:Figure;
  SetLength(Rectangle,4);
  Rectangle[0]:=(3.0,2.0);
  Rectangle[1]:=(7.0,2.0);
  Rectangle[2]:=(7.0,4.0);
  Rectangle[3]:=(3.0,4.0);
  var angle:=30;
  var P:=Rectangle.MoveTo(Center).Rotate(DegToRad(angle)).MoveFrom(Center);
  Writeln('Новые координаты');
  Print(P,9,5)
end.

Результат
Новые координаты
  3.76795   1.13397
  7.23205   3.13397
  6.23205   4.86603
  2.76795   2.86603

Найчастіше використовують настільні та портативні комп’ю¬тери.

Стаціонарний комп'ютер — це звичайний комп’ютер, який має такі складові: системний блок, монітор, миша, клавіатура, звукові колонки. Цей вид комп’ютерів ми вивчали на попе¬редньому уроці. Стаціонарний — означає непереносний, який стоїть на одному місці. Зазвичай такі комп’ютери більші та по¬тужніші за інші типи персональних комп’ютерів.

Портативні — означає переносні. Портативні комп’ютери — це легкі мобільні ПК з тонким екраном.

Портативні комп’ютери можуть працювати від батарей, тож їх можна взяти з собою куди завгодно. На відміну від настільних ПК, портативні комп’ютери поєднують ЦП, екран і клавіатуру в одному корпусі.

Існує багато типів переносних комп’ютерів, і їх по-різному класифікують. Найчастіше виділяють ноутбуки, нетбуки, ігрові ноутбуки тощо.

Ноутбук (англ. notebook — блокнот, блокнотний ПК) — портативний персо¬нальний комп’ютер, у корпусі якого об’єднані типові компоненти ПК, вклю¬чаючи дисплей, клавіатуру і вказівний пристрій (звичайно сенсорна панель або тачпад), а також акумуляторні батареї.

Ноутбуки відрізняються невеликими розмірами і вагою, час автономної роботи ноутбуків варіюється в межах кількох годин. Іноді вважають, що всі інші варіанти портативних комп’ютерів є різновидом ноутбука. Наприклад, нетбуки відрізняються малими габаритами і вагою. Однак маленький розмір екрана знижує зруч¬ність роботи з таким пристроєм. У деякі моделі не встановлюється дисковод оптичних дисків.

Нетбуки орієнтовані на перегляд веб-сторінок, роботу з електро¬нною поштою та офісними програмами.

Малий розмір екрана, невелика клавіатура й низька продуктив¬ність подібних пристроїв компенсується помірною ціною і відносно тривалим часом автономної роботи.

Планшетні комп'ютери — клас комп’ютерів, обладнаних планшетним пристроєм рукописного введення, об’єднаним з ек¬раном. Планшетний комп’ютер дозволяє працювати за допо¬могою спеціального пера, стилуса або пальців без використання клавіатури і миші.

Також такі комп’ютери можуть перетворювати рукописний текст на друкований. Деякі планшетні комп’ютери мають універ¬сальну будову — екран, який обертається та відкриває приховану під ним клавіатуру.

Комунікатор — кишеньковий персональний комп’ютер (КПК), доповнений функціональністю мобільного телефону.

Комунікатори відрізняються від звичайних мобільних телефо¬нів наявністю досить розвиненої операційної системи. Встановлення додаткових програм дозволяє значно поліпшити функціональність комунікаторів порівняно зі звичайними мобільними телефонами.