Найдите площадь и периметр треугольника по двум сторонам А, В и углу между ними.Составьте блок-схему.

program qq;

var a,b,s: real; c: integer;

begin

writeln('сторона a и b';)

read (a,b);

writeln ('введите угол в градусах');

read(c);

s:=1/2*a*b*sin(2*PI*c/360);

writeln ('площадь=',s)

end.

Объяснение:

1. program primer; //имя программы вроде(необязательно)
var a: array [1..10] of integer; //Объявление целочисленного массива а размером 10 эл.
i, s: integer; //Объявление двух целочисленных переменных
begin //начало
randomize; //Включает датчик случайных чисел(в PascalABC.NET можно не писать)
for i:= 1 to 10 do //Запускается цикл от 1 до 10
a[i]:=random(15-5+1)+5; //Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
for i:= 1 to 10 do //Запускается цикл от 1 до 10
write (a[i], ' '); //Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
s:=0; //Переменной для суммы присваивается 0
for i:= 1 to 10 do //Запускается цикл от 1 до 10
if a[i] mod 3=0 then //Если текущий элемент массива делится на 3 без остатка тогда
s := s + a[i]; //к сумме прибавляется текущий элемент массива
write('сумма = ',s); //вывод сообщения и значение переменной s
end. //конец

2. Дан массив 16 1 8 2 4 4
к=0
со 2 по 6 делаем
если A[i-1] >=A[i] , делаем к=к+1
1 итерация: если A1>=A2 (A1=16, A2=1, 16>1, значит к=к+1 = 1)
2 итерация: если A2>=A3 (A2=1, A3=8, 1>8? нет, значит к остается прежним)
3 итерация: 8>2? да к=2
4 итерация: 2>4? нет к=2
5: 4>=4? да к=3
выводим к=3

Можно печатать машины                                                                        ну, для начала, стоит упомянуть, что с ее можно печатать машины! создатели последнего фильма о бонде, скайфол, наняли компанию voxeljet, которая специализируется на 3d-печати, для создания трех моделей престижной машины астон мартин db5 масштабом 1: 3 для съемок аварий. но не расстраивайтесь, одна из них уцелела и позднее была продана на аукционе кристис почти за 100 000 фунтов стерлингов.                                                                                            корпуса для мобильных устройств                                                меньше размером, но не менее роскошная, первая в мире модель корпуса nokia lumia 820 была отпечатана мастерами 3d-печати, в компании makerbot. меньше чем за день после того, как были переданы в работу спецификации, специалисты компании при 3d-магии создали эту модель.протезированиеиндустрия медицинского оборудования - один из крупнейших рынков в мире 3d-печати. нужен бедренный сустав? распечатаем! рынок протезирования просто влюблен в 3d-технологию. специалисты бельгийской компании biomedics недавно имплантировали распечатанную на 3d-принтере титановую челюсть 83-летней пациентке. и это только начало! детали машинподполковник авиации энди грин намерен побить рекорд скорости на суше, пилотируя сверхзвуковой автомобиль bloodhound ssc, способный развивать скорость свыше 1600 км/час - автомобиль с внутренностями, выполненными на 3d-принтере. при системы автоматизированного проектирования и глиняного слепка руки грина, титановое рулевое колесо было отпечатано максимально удобным для рук бесстрашного гонщика. на старт, нашему удивлению мы узнали, что еще 3d-принтеры можно использовать в сочетании со сканами системы автоматизированного проектирования для распечатывания клона опухоли перед операцией, с тем чтобы хирурги точно знали, с чем именно им придется иметь дело. удобно! предметыученые из уорикского университета сообщили, что электронная схема может быть неотъемлемой частью 3d-напечатанных предметов, и чтобы доказать это, они изобрели материал, который называли carbomorph, а затем использовали его для создания компьютерного игрового устройства и кружки, которая знает, когда она наполнена.космоснаса и исследователи вашингтонского государственного университета работают над 3d-печатью лунной пылью. с этой технологией мы могли бы в будущем рассматривать возможность изготовления лунной базы непосредственно на месте, целиком из материалов доступных на луне. в то же время космонавты могли бы использовать эту технологию для починки и замены сломанного оборудования. хьюстон, есть идея! почтаполагаете, что посылки идут слишком медленно? файлообменник pirate bay недавно открыл новый раздел на своем сайте под названием "physibles", для того, что они описывают как "объекты данных, которые могут стать осязаемыми". другими словами, достаточно загрузить свои 3d-чертежи, и любой, кто получит этот файл сможет распечатать реальный предмет. вот это называется делиться! компьютерные героино будьте осторожны: несколько любителей компьютерных игр нажили неприятности с законом когда стали использовать свои принтеры для воспроизводства фигурок из warhammer 40000. games workshop - создатели warhammer - быстро вмешались в их деятельность, волнуясь о своих правах на патенты. похоже, что следующей битвой на поле авторских прав на цифровые изделия будет борьба за видите, 3d-печать уже преподносит нам не мало сюрпризов, но, очевидно, самое интересное еще впереди. а если бы вы были ограничены лишь вашим воображением, что бы вы напечатали в первую очередь?