Задача1. Составить процедуру нахождения квадрата суммы
действительных чисел и квадратного корня из этой суммы.
Используемые идентификаторы – обозначения:
a, b, c – данные числа;
z – сумма чисел;
x – квадрат суммы;
y – корень из суммы.
x1,y1- фактические параметры.
Программа:
program z1;
var x1,y1: real;
procedure expres ( a, b, c :real; var x, y: real);
var z: real;
begin
z:= a+b+c;
x:= sqr(z); {квадрат z}
y:= sqrt(z); {корень из z}
end;

{Основная программа}
begin
expres(25.4, 44.6, 30, x1, y1);
writeln( x1, y1);
end.

Формальные входные параметры a, b, c принимают значения фактических параметров a=25.4, b=44.6, c=30. При этих значениях выполняется процедура. Результатом выполнения процедуры являютcя x, y , которые передают свои значения соответствующим фактическим параметрам x1, y1. Таким образом, в основной программе будем иметь x1= 10000, y1= 10.

Задача 2. Оформим в виде процедуры SUMMA вычисление суммы 1+2+3+…+n
и произведения 1*2*3*…*n целых чисел.

Используемые идентификаторы – обозначения:
n – количество чисел;
SUM – сумма чисел;
PR – произведение чисел:
i – параметр цикла;
k, x, y – формальные параметры.

Программа:

program z2;
var n: integer;
PR,SUM: real;

procedure SUMMA (k: integer; var x, y: real); {начало процедуры}
var i: integer;
begin
x:=0; y:=1;
for i:=1 to k do
begin
x:=x+i;
y:=y*i;
end;
end; {конец процедуры}

{Основная программа}
begin
write (‘введите значение n: ’);
read (n);
SUMMA (n, SUM, PR);
writeln(‘SUM=’,SUM:5);
writeln(‘PR=’,PR:5);
end.

Отладочные данные:
Введите значение n : 10
SUM = 5.500000E+01
PR = 3.628800E+06

Задача 3. Даны действительные числа k, n, m. Получить:
f(-k, 2n, n-m) + f(1, 2, 3)
 , где f(a, b, c) = a2 + b2 + c2 - a - c.
f(m, k, n)
Для вычисления функции составьте под программу - функцию.

Задача 4. Даны действительные числа, среди которых есть положительные, отрицательные и ноль. Вычислите произведение чисел, отличных от нуля, используя процедуру Произв. и сумму отрицательных чисел, используя процедуру Сумм.

11001101₂ = 315₈

100000011₂ = 403₈

110110110₂ = 666₈

1237₈ = 29F₁₆

3210₈ = 688₁₆

41562₈ = 4372₁₆

Объяснение:

Таблица триад:

0 - 000

1 - 001

2 - 010

3 - 011

4 - 100

5 - 101

6 - 110

7 - 111

11001101₂ = 315₈

Разбиваем число на триады (отделяем по 3 символа, начиная справа, если символов не хватает, дописываем 0 слева)

Переводим числа используя таблицу триад

Записываем снизу вверх

101 - 5

001 - 1

011 - 3

100000011₂ = 403₈

011 - 3

000 - 0

100 - 4

110110110₂ = 666₈

110 - 6

110 - 6

110 - 6

Таблица тетрад:

0 - 0000

1 - 0001

2 - 0010

3 - 0011

4 - 0100

5 - 0101

6 - 0110

7 - 0111

8 - 1000

9 - 1001

10 - 1010

11 - 1011

12 - 1100

13 - 1101

14 - 1110

15 - 1111

1237₈ = 29F₁₆

Переведём каждую цифру в триаду

1 - 001

2 - 010

3 - 011

7 - 111

Запишем их в строку и переформируем в тетрады (отделяем по 4 символа, начиная справа, если символов не хватает, дописываем 0 слева)

001 010 011 111

Переводим числа используя таблицу триад

Записываем снизу вверх

1111 - 15

1001 - 9

0010 - 2

3210₈ = 688₁₆

3 - 011

2 - 010

1 - 001

0 - 000

011 010 001 000

1000 - 8

1000 - 8

0110 - 6

41562₈ = 4372₁₆

4 - 100

1 - 001

5 - 101

6 - 110

2 - 010

100 001 101 110 010

0010 - 2

0111 - 7

0011 - 3

0100 - 4

В качестве цифр шестнадцатеричной системы счисления обычно используются цифры от 0 до 9 и латинские буквы от A до F.

A₁₆ = 10₁₀   B₁₆ = 11₁₀   C₁₆ = 12₁₀   D₁₆ = 13₁₀   E₁₆ = 14₁₀   F₁₆ = 15₁₀  

Таблицы триад и тетрад - это перевод первых чисел 10 системы счисления в двоичную с дописыванием 0 слева

Сочинение.

Роботы.

2999 год… Мир изменился настолько, что, если человек из нашего времени окажется там, он просто сойдет с ума от количества новых предметов, от того, сколько различных роботов появилось. Ведь к тому году больше половины нашего мира будут составлять именно роботы.

Одежда-робот, чтоб она автоматически нагревалась и охлаждалась, когда этого требует тело; чтоб она была комфортна человеку и менялась под его размеры.

Жилище – робот. Чтоб оно не пропускало в дом посторонний звук. Жизнь без ограблений. Ремонт без денежных средств. Просто нужно ввести то, что хочешь, на экран монитора, и сразу жилище обретет желаемый вид.

Но я хочу представить не роботов, которые будут окружать человека, а роботов, которые будут ими являться. Роботы-люди.

Звучит пугающе, не правда ли? Но не стоит этого бояться. В этом нет ничего плохого. Скорее наоборот. Я хочу представить вам Робота-Читателя. А Читатель потому, что он насквозь читает людей. Он читает их эмоции, их ощущения, их характер и даже их душу.