Задача 1: Строка Туе-Морса Строка Туе–Морса — бесконечная последовательность из нулей и единиц, которая получается следующим образом. В начале последовательности записана цифра 0. Затем повторяются следующие действия: к уже выписанной части последовательности дописывается столько же символов, сколько уже выписано до этого, при этом цифры 0 меняются на 1, цифры 1 меняются на 0. То есть к последовательности 0 будет дописана 1, получится 01. Затем к последовательности 01 будет дописана последовательность 10, получится 0110. Затем к ней будет дописано 1001, получится 01101001. Затем получится последовательность 0110100110010110 и т. д. Выполните задания. Выпишите 5 символов последовательности, начиная с 17-го символа (т.е. символы с 17-го по 21-й Выпишите 5 символов последовательности, начиная с 60-го. Выпишите 5 символов последовательности, начиная с 100-го. Выпишите 5 символов последовательности, начиная с 200-го. Выпишите 5 символов последовательности, начиная с 2050-го. ответом на это задание является пять строк, каждая содержит ровно 5 символов «0» или «1» — ответы на задания 1–5. Если вы не можете дать ответ на какое-то задание, напишите в соответствующей строке пять любых символов «0» или «1».
Ответы
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны.
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует
//Pascal ABC.NET v3.0 сборка 1111
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Даны 3 числа a, b, c определить: являются ли они углами прямоугольного треугольника
Автор: СергейНиколаевич
Для чего предназначен оператор readln (a)?
Автор: Елена Ирина
1. 10010
2.01101
3.
4. cам решаю не знаю как дальше)
5.
Объяснение: