Что может служить причиной, которая не дает добиться сходства рисунка с объектом? Образное мышление Творческое мышление Аналитическое мышление Категоричное мышление
Площадь квадрата находится по формуле s=a², где a - сторона квадрата, длина диагонали квадрата d равна a√2. Периметр квадрата Р равен 4a, откуда a=P/4 Среднее арифметическое площади и диагонали (какой все же бред: соединять меры площади и длины!) может быть определено следующим образом.
var P,m:real; begin Write('Введите периметр квадрата: '); Read(P); Writeln('Среднее площади и диагонали равно ',P/8*(P/4+sqrt(2))) end.
Тестовое решение: Введите периметр квадрата: 45 Среднее площади и диагонали равно 71.2362012883487
Само собой, числа a1..an надо поместить в массив. Если его упорядочить по возрастанию (или убыванию), то элементы с одинаковыми значениями окажутся рядом и их легко будет пропустить.
var a:array[1..n] of integer; i,j,t:integer; begin { инициализация массива } Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i]:=Random(10); Write(a[i]:3); end; Writeln; { сортировка по возрастанию методом пузырька } for i := 1 to n-1 do for j := 1 to n-i do if a[j] > a[j+1] then begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end; { вывод неповторяющихся значений } Writeln('Уникальные значения элементов'); t:=a[1]; Write(t:3); for i:=2 to n do if a[i]<>t then begin t:=a[i]; Write(t:3) end; Writeln end.
длина диагонали квадрата d равна a√2.
Периметр квадрата Р равен 4a, откуда a=P/4
Среднее арифметическое площади и диагонали (какой все же бред: соединять меры площади и длины!) может быть определено следующим образом.
var
P,m:real;
begin
Write('Введите периметр квадрата: '); Read(P);
Writeln('Среднее площади и диагонали равно ',P/8*(P/4+sqrt(2)))
end.
Тестовое решение:
Введите периметр квадрата: 45
Среднее площади и диагонали равно 71.2362012883487