Паскаль. составить программу вычисления площади треугольника по любой из 3 известных формул(в программе должны использоваться все 3 на выбор). сами формулы пишу уже 2-ой раз!
var S,a,b,c,p,p1,h:real; k:integer; begin write('Kakoy sposob viberem(1,2,3)?'); read(k); if k=1 then begin writeln('Vvedite a,h'); read(a,h); S:=(a*h)/2; end; if k=2 then begin writeln('Vvedite a,b,c'); read(a,b,c); S:=(Sin(c*Pi/180)*a*b)/2; end; if k=3 then begin writeln('Vvedite a,b,c'); read(a,b,c); p1:=1/2*(a+b+c); S:=sqrt(p1*(p1-a)*(p1-b)*(p1-c)); end; writeln(S); end.
Алг нач цел число элементов, позиция, максимум, минимум число элементов:=10 целтаб a[1:число элементов] максимум:=-10000 минимум:=10000 нц для позиция от 1 до число элементов ввод a[позиция] если максимум<a[позиция] то максимум:=a[позиция] иначе если минимум>a[позиция] то минимум:=a[позиция] все все кц вывод "максимум=",максимум,", минимум=",минимум кон
Тестовое решение: >> 15:26:57 - Новая программа* - Выполнение начато 5 15 4 8 -2 7 2 9 11 10 максимум=15, минимум=-2 >> 15:27:49 - Новая программа* - Выполнение завершено
Например потому, что в матричный принтер можно заправить документ, который нельзя вставить ни в какой другой принтер. Таким документом может быть сберегательная книжка, в которую впечатывается текущее состояние счета. Матричный принтер не требует для печати качественной бумаги. Матричный принтер позволяет печатать под копирку до 6-7 экземпляров. Матричный принтер с широкой кареткой позволяет печатать документы большого формата. А еще - есть дорогие специализированные матричные принтеры, которые "с удара" печатают сразу целую строку - у них не одна печатающая головка, а набор по числу символов в строке. Скорость печати у таких принтеров очень высока, а стоимость печати - низкая.
var S,a,b,c,p,p1,h:real;
k:integer;
begin
write('Kakoy sposob viberem(1,2,3)?');
read(k);
if k=1 then begin
writeln('Vvedite a,h');
read(a,h);
S:=(a*h)/2;
end;
if k=2 then begin
writeln('Vvedite a,b,c');
read(a,b,c);
S:=(Sin(c*Pi/180)*a*b)/2;
end;
if k=3 then begin
writeln('Vvedite a,b,c');
read(a,b,c);
p1:=1/2*(a+b+c);
S:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
end;
writeln(S);
end.