Нужно составить 2 блок схемы,на 2 программы.Нужно очень кто разбирается.
1)const
n = 10;
var
a: array[1..n, 1..n] of real;
d, i, j: integer;
begin
d := 0;
writeln('Матрица А: ');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := sin((i * pi) / 4) + cos((j * pi) / 4);
write(a[i, j]:7:2);
if (a[i, j] > 0) and (not odd(trunc(a[i, j]))) then
d := d + 1;
end;
writeln;
end;
write('D: ', d);
end.
2)const n=20;
var x:array[1..n] of real;
a,s:real;
i,k:integer;
begin
writeln('Массив Х');
a:=0;
for i:=1 to n do
begin
if i=10 then x[i]:=0
else if i<10 then x[i]:=-exp(ln(10-i)/3)
else x[i]:=exp(ln(i-10)/3);
write(x[i]:7:2);
a:=a+x[i];
if i mod 10=0 then writeln;
end;
a:=a/n;
writeln('Среднее арифметическое a=',a:0:2);
s:=0;
k:=0;
for i:=1 to n do
if x[i]>a then
begin
s:=s+x[i];
k:=k+1;
end;
write('Сумма элементов больших ',a:0:2,'=',s:0:2,' Количество=',k);
end.
"Яспар-Дюрюмгщмт" - как раз потенциальный кандидат на "Санкт-Петербург"
составим правила переноса
я->с
с->а
п->н
а->к
р->т
д->п
ю->е
м->р
г->б
щ->у
р->м
т->г
на основе этого можно расшифровать часть послания
* *а*тра уе**а* * Санкт-Петербург на **е не*е**. пар***: бургун***
очевидно что пар*** - пароль, а *а*тра - завтра.
ы->о
ч->л
з->ь
у->з
ц->в
учитывая это:
* завтра уез*а* в Санкт-Петербург на *ве не*ел*. Пароль: Бургун***.
очевидно что фраза - "Я завтра уезжаю в Санкт-Петербург на две недели. Пароль: Бургундия."
Вот такая программа для горизонтального коридора в одну клетку шириной и для начального положения робота в левом конце коридора.
Если радиации в коридоре не найдено, программа выводит об этом сообщение (без вывода цифровой статистики при этом).
использовать Робот
алг
нач
вещ макс=0 | максимальный найденный уровень радиации
цел счёт=0 | число наиболее заражённых клеток
нц
если радиация>макс то макс:=радиация все
если справа свободно то вправо иначе выход все
кц
если макс=0 то вывод 'радиации в коридоре нет'; выход все
нц
если радиация=макс то закрасить; счёт:=счёт+1 все
если слева свободно то влево иначе выход все
кц
вывод 'макс.уровень радиации= ',макс,нс
вывод 'клеток с таким уровнем= ',счёт
кон