Что касается конкретной программы - пожалуйста!
1. Описываем нужные нам переменные - это будут стороны прямоугольника a и b. Поскольку нигде ничего о размерах сторон не сказано, придется предположить, что они не обязательно будут целыми , мы опишем эти переменные, как вещественные (real), что позволит работать и с нецелыми значениями.
2. Из геометрии нам известны формулы периметра прямоугольника P=2 x (a+b) и площади прямоугольника S=a x b. Можно описать переменные P, S (тоже real), но смысла в этом нет, поскольку значения P и S нужны только для вывода результатов, так что проще написать нужные выражения непосредственно в операторе вывода.
3. Итак, с описанием переменных закончили, можно начинать основную программу ключевым словом begin. И сразу же пишем к нему завершающий end с точкой на конце - таковы правила языка Паскаль. Вся программа размещается между двумя этими ключевыми словами.
4. Сначала организуем ввод. Это два оператора. Первый оператор выводит так называемое "приглашение" - сообщает о том, что нужно ввести. Второй оператор - это сам ввод.
5. А теперь, как было сказано выше, организуем вывод результатов. Все это сделает один оператор вывода. Программа готова!
var
a, b: real;
begin
Write('Введите стороны прямоугольника: '); Readln(a, b);
Writeln('Периметр равен ', 2 * (a + b), ', площадь равна ', a * b)
end.
<em><u>Тестовое решение:</u></em>
Введите стороны прямоугольника: 4 3.16
Периметр равен 14.32, площадь равна 12.64
11011111 = 223
11011001 = 217
11000011 = 195
11000000 = 192
===== PascalABC.NET =====
function S(a: array[,] of integer) :=
a.Cols.Where(p -> p.All(q -> q >= 0)).SelectMany(p -> p).Sum;
function M(a: array[,] of integer): integer;
begin
var n := a.RowCount;
Result := integer.MaxValue;
var s: integer;
for var i := 0 to n - 2 do
begin
s := 0;
for var j := 0 to i do
s += Abs(a[i - j, j]);
if s < Result then
Result := s
end;
for var j := 1 to n - 1 do
begin
s := 0;
for var i := n - 1 downto j do
s += Abs(a[i, n - i + j - 1]);
if s < Result then
Result := s
end
end;
begin
var n := ReadInteger('n =');
var a := MatrRandom(n, n, -10, 30);
a.Println;
S(a).Println;
M(a).Println;
end.
1.
а) Кремль, озеро Байкал, Эрмитаж.
б) Кремль, парк Горького, Третьяковская галерея.
в) у каждого своё (реки, парки, музеи и т.д.)
6 задание:
Астрономия-космические тела
География-земная поверхность
Биология-растительный и животный мир
История-прошлое человечества
Технология-технические устройства
Математика-количественные отношения
Информатика- информационные процессы.
2.
7задание:
а) Свойства, действия, поведение, состояние.
б) Отвечают на вопрос: "Чем может отличаться один объект от другого?"
"Что может изменится у объекта при выполнении действия?"
в) Отвечают на вопрос: "Что он может делать?"(активное действие)
"Что с ним можно делать?" (пассивное действие)
г) Имена действий, пошаговое составление описания каждого действия свойственного объекту.
д) Человек называет или подразумевает определённое сочетание значений всех или некоторых свойств этого объекта.
8задание:
Кирпичный дом: Величина-этажность. Значение- для жилья.
Голубоглазый человек: Величина- нет. Значение- нет.
Фарфоровый сервиз: Величина- количество предметов. Значение- прием пищи.
3.
9 задание:
Котёнок: Активные- кушать, играть. Пассивные- кормить, гладить.
Автомобиль: Активные-едет, газует. Пассивные- парковать, мыть.
Человек: Активные-спать, есть, учиться. Пассивные-общаться, помогать.
