5 - 9 классы Информатика 5+3 б 3. Екі скриптіні салыстырыңыз. Ұқсастығы мен айырмашылығы неде екенін жазыңыз.1-ссурет идти 10 шагов если край оттолкнутся 2-сурет идти 10 шагов повернуть в направление 90
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016 // Внимание! Если программа не работает, обновите её версию!
function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));
var x,y,L:array[1..4] of real; begin Writeln('Введите координаты четырех точек (парами х,y)'); for var i:=1 to 4 do Read(x[i],y[i]); for var i:=1 to 3 do L[i]:=Len(x[i],y[i],x[i+1],y[i+1]); L[4]:=Len(x[4],y[4],x[1],y[1]); var s:=0.0; for var i:=1 to 4 do s+=L[i]; Writeln('P=',s) end.
Пример Введите координаты четырех точек (парами х,y) -5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13 P=46.7405707422041
Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.
// PascalABC.Net
// Первая программа, если необходимо выбрать нечетные элементы и их отсортировать.
begin
var a := ArrRandom(10);
writeln('Исходный массив: ');
a.PrintLn(', ');
writeln('Отсортированный массив нечетных элементов: ');
a.Where(e -> e mod 2 <> 0).OrderBy(e -> e).Print(', ');
end.
// Вторая программа, если необходимо в исходном массиве отсортировать нечетные значения
begin
var a := ArrRandom(10);
writeln('Исходный массив: ');
a.PrintLn(', ');
writeln('Отсортированный массив нечетных элементов: ');
var odd := a.Select((e, i) -> (i, e)).Where(e -> e[1] mod 2 <> 0).OrderBy(e -> e[1]);
var sortedOdd := odd.Zip(odd.Select(e -> e[0]).OrderBy(e -> e), (f, s) -> (s, f[1]));
foreach var e in sortedOdd do
a[e[0]] := e[1];
a.PrintLn(', ');
end.