Лінійні програми by Ірина Табанець

Задача 3.(4б)

irakcml — 2017-10-17 17:07:00 UTC

Дано два ненульових числа. Знайти суму, різницю, добуток і частку їх квадратів.

Задача 4.(3б)

irakcml — 2017-10-17 17:23:58 UTC

Дано координати трьох вершин трикутника: (x1, y1), (x2, y2), (x3, y3). Знайти його периметр і площу, використовуючи формулу для відстані між двома точками на площині . Для знаходження площі трикутника зі сторонами a, b, c використовувати формулу Герона: S = √ (p ⋅ (p - a) ⋅ (p - b) ⋅ (p - c)), де p - напівпериметр.

1)Для того, щоб знайти периметр трикутника, знаходимо відстані між усіма вершинами (адже відстані між вершинами це і є сторони) за формулою √ ((x2 - x1)^2 + (y2 - y1)^ 2), а потім підсумовуємо їх.
2)Для того, щоб знайти площу, використовуємо формулу Герона.

Задача 2.(2б)

irakcml — 2017-10-17 17:28:58 UTC

Дана довжина ребра куба a. Знайти об'єм куба V = a^3 і площу його поверхні S = 6 · a^2.

Задача 1(1б)

irakcml — 2017-10-17 17:32:31 UTC

Дан диаметр окружности d. Найти ее длину L = π·d. В качестве значения π использовать 3.14.

Розгалуження

irakcml — 2017-10-17 17:39:35 UTC

Опрацювати слайди 23-43

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

irakcml — 2017-10-17 17:43:02 UTC

Program If_1;
var
  a: integer;
begin
  readln(a);
  if a > 0 then Inc(a);
  write(a);
end.

Даны два числа. Вывести большее из них.

irakcml — 2017-10-17 17:45:35 UTC

Program If_2;
var
  a, b: integer;
begin
  write('Введите числа: ');
  readln(a, b);
  if a > b then writeln(a) else writeln(b);
end.

Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

irakcml — 2017-10-17 17:47:04 UTC

Program If_3;
var
 a, b, c, min, max :integer;
begin
 write('Введите три числа: ');
 readln(a,b,c);
 if (a > c) and (a > b) then max := a
   else if b > c then max := b
     else max := c;
 if (a < c) and (a < b) then min := a
   else if b < c then min := b
     else min := c;
 writeln('Наименьшее число: ', min);
 writeln('Наибольшее число: ', max);
end.

irakcml — 2017-10-17 17:53:43 UTC