1. известны длины сторон треугестны длины сторон треугольника a, b, c. напишите программу, начисля зошую площад.этого треугольника.нанти площадь треугольника можно различными способами.основном, для нахождения площади треугольника применяется формула герона.s=урх (р-а)х(p-b) х (р-с)где: р — полупериметр треугольника, a, b, c — длины сторон треугольника.периметр — это сумма длин всех сторон треугольника, соответственно полупериметр - это сумма длиннеесторон разделенная на 2a+b+c) 2.известны координаты вершин. a, b, стреугольника. напишите программу, нічислиодуюплощадь этого треугольника.если треугольник задан координатами вершин (xi.y), (x2, y2), (x1, ya), его площадь можно найти по формуле: ха-х.)*(у-у-ха-х)*(y-уs = 22 3. напишите программу ввода трёх произвольных чисел х, үнzс клавиатуры.если x больше z, то вывести на экран сумму x и y, иначе вывести на экран значение z.дача 4. по заданным координатам точек ан в вычислите длину отрезка abдсказка: расстояние d между точками а (xa, ya) и в (xb, yb) выражается формулой(хъ – а)2 + (у – уа)? ча 5. мальчик купил несколько тетрадей по сто рублей и несколько обложек по 50 рублей.авить программу, которая могла бы подсчитать стоимость всей покупки.
Ответы
// f# [< entrypoint> ] let main argv = let getrandomcollection n = let rand = new system.random() array.map (fun x -> rand.next(-10, 10)) [| 1..n |] let input = getrandomcollection 15 let reverse = input |> array.rev let notchangedcount = array.map2 (fun x y -> x = y) input reverse |> array.filter (fun x -> x) |> array.length let maxabsnotpositiveelem = input |> seq.where (fun x -> x < = 0) |> seq.maxby (fun x -> system.math.abs x) system.console.writeline (input |> array.map (fun x -> sprintf "%d" x) |> string.concat " ") system.console.writeline (reverse |> array.map (fun x -> sprintf "%d" x) |> string.concat " ") system.console.writeline (notchangedcount |> sprintf "not changed: %d") system.console.writeline (maxabsnotpositiveelem |> sprintf "max min element: %d") system.console.readkey true |> ignore 0
Const n = 15; var mas: array[1..999] of integer; counter, c, max, i: integer; begin max: =-maxint; counter: =0; randomize; write('старый массив: '); for i: =1 to n do begin mas[i]: =random(101)-50; //случайные числа от -50 до 50 write(mas[i],' '); end; writeln; for i: =1 to n div 2 do begin if mas[i] = mas[n-i+1] then counter: =counter+1; if (mas[i]< 0) and (mas[i]> max) then max: =mas[i]; c: =mas[i]; mas[i]: =mas[n-i+1]; mas[n-i+1]: =c; end; if n mod 2 = 1 then counter: =counter+1; write('новый массив: '); for i: =1 to n do write(mas[i],' '); writeln; writeln('кол-во не изменившихся элементов: ', counter); writeln('максимальный отрицательный элемент: ', max); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос: