Билет 17
Напишите программу на языке программирования (или составьте алгоритм). Треугольник задан длинами сторон (считая, что треугольник существует). Найдите длину описанной около треугольника окружности.
Примечание. Длина
окружности находится по формуле L=2πR,
где R - радиус окружности. Таким образом,
задача нахождения длины сводится к
задаче нахождения радиуса окружности.
Формула радиуса описанной окружности
треугольника,
(R):
R=a*b*c/(4*S), площадь вычисляется по формуле
Герона
(
p(p-a)(p-b)(p-c)), где a,
b, c
- стороны
треугольника, p - полупериметр, p=
(a+b+c)/2
Program z3_b17; var a,b,c: integer; L,r,s: real;
Procedure Geron (x,y,z:integer; var Sg: real);
Var p: real;
Begin
p:=(x+y+z)/2;
Sg:= sqrt(p*(p-x)*(p-y)*(x-z));
End;
begin
writeln (‘введите стороны треугольника’);
readln (a,b,c);
Geron (a,b,c,s);
R:=(a*b*c)/(4*s);
L:=2*π*r;
Writeln(‘Длина окружности = ’, L:5:2);
End.
Алг z3_b17 ( цел a,b,c, вещ L)
арг а,b,c
рез L нач вещ r,s
Geron (a,b,c,s);
R:=(a*b*c)/(4*s);
L:=2*π*r;
кон
алг Geron (цел x,y,z; вещ Sg)
арг x,y,z
рез Sg
нач вещ p
p:=(x+y+z)/2
Sg:= sqrt(p*(p-x)*(p-y)*(x-z))
кон
Билет 18
Напишите программу на языке программирования (или составьте алгоритм). Проверить – совершенное ли число, введенное с клавиатуры. Совершенное число – число, равное сумме своих делителей (не считать делителем числа само число, например число 6 – совершенное : 1+2+3=6).
Program z3_b18; var n,i,s: integer;
begin
writeln ('введите число');
readln (n);
s:=0;
{==нахождение суммы делителей==}
for i:=1 to (n div 2) do
if n mod i=0 then s:=s+i;
if s=n then writeln ('число совершенное)
else writeln ('число не совершенное);
end.
Алг z3_b18 (цел n, лит z)
арг n
рез z
нач цел i,s
s:=0;
для i от 1 до div (n ,2)
нц
если mod (n ,i) =0
то s:=s+i
все
кц
если s=n
то z :='число совершенное‘
иначе z :='число не совершенное’
все
кон
Билет 19
Напишите программу на языке программирования (или составьте алгоритм). У Вас имеется в наличии 2000 рублей. Вам необходимо купить в общей сложности 200 предметов по следующим ценам: фломастеры - 20 рублей за упаковку, тетради общие - 10 рублей за штуку, стержни - 1,5 рубля за штуку. Вы должны потратить все деньги.
Program z3_b19;
var
x,y,z,kol:integer;
sum:real;
Begin
for x:=1 to 200 do
begin
for y:=1 to 200 do
begin
for z:=1 to 200 do
begin
sum:=20*x+10*y+1.5*z;
kol:=x+y+z;
if (sum=2000) and (kol=200) then writeln('фломастеры -',x,' тетради -', y, ' стержни -', z);
end;
end;
end;
end.
Алг z3_b19 (цел x,y,z)
рез x,y,z
нач цел kol. вещ sum
для x от 1 до 200
нц
для y от 1 до 200
нц
для z от 1 до 200
нц
sum:=20*x+10*y+1.5*z;
kol:=x+y+z;
если (sum=2000) и (kol=200)
то вывод('фломастеры -',x,' тетради -', y, ' стержни -', z)
все
кц
кц
кц
кон