1) В треугольнике заданы сторона a, высота ha и угол С. Найти стороны b,с и площадь S.
program z1;
var a,h,cc,b,c,s:real;
begin
write('сторона а= ');readln(a);
write('высота h= ');readln(h);
write('угол c= ');readln(cc);
b:=h/(sin(180/(pi*cc)));
c:=sqrt(a*a+b*b-2*a*b*cos(180/(pi*cc)));
s:=(h*a)/2;
writeln('сторона b=',b:6:2);
writeln('сторона c=',c:6:2);
writeln('площадь s=',s:6:2);
readln
end.
2) Определить силу притяжения F между телами массы m1 и m2, находящимися на расстоянии r друг от друга.
program z2;
var g,f,m1,m2,r:real;
begin
g:=6.67384;
write('Масса первого тела m1= ');readln(m1);
write('Масса второго тела m2= ');readln(m2);
write('Расстояние r= ');readln(r);
f:=(g*m1*m2)/r*r;
writeln('f= ',f:6:3);
end.
3) Написать программу вычисления площади треугольника, если известна длина основания и высота.
program z3;
var s,a,h:real;
begin
write('сторона a=');readln(a);
write('высота h=');readln(h);
s:=0.5*a*h;
writeln('площадь треугольника s= ',s);
readln;
end.
4) Написать программу пересчета расстояния из верст в километры (1 верста равняется 1066,8 м).
program z4;
var v,km:real;
begin
write('кол-во верст = ');readln(v);
km:=v*1066.8;
writeln(v,' верст =',km,' km');
readln;
end.
для любых вводимых значений коэффициентов. Предусмотреть анализ решения в случае, когда определитель системы равен нулю.
program z5;
var a1,a2,b1,b2,c1,c2,x,y:real;
d,dx,dy:real;
//d - общий определитель
begin
write('введите a1= '); readln(a1);
write('введите a2= '); readln(a2);
write('введите b1= '); readln(b1);
write('введите b2= '); readln(b2);
write('введите c1= '); readln(c1);
write('введите c2= '); readln(c2);
d:=a1*b2-b1*a2;
dx:=c1*b2-b1*c2;
dy:=a1*c2-c1*a2;
x:=dx/d;
y:=dy/d;
writeln('x= ',x:6:2,', y= ',y:6:2);
end.
6) Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три варианта ответа. Пользователь должен выбрать правильный ответ и ввести его номер.
program z6;
var a:integer;
begin
writeln('Кто является создателем Софийского собора В Венеции');
writeln('1- Л. Давинчи');
writeln('2- С. Боттичелли');
writeln('3- Н. Макиавелли');
write('ваш ответ: ');readln(a);
case a of
1: write('неверно');
2: write('верно');
3: write('неверно');
else writeln('Ошибка! введите ответ от 1 до 3');
end;
end.