Условный оператор. Оператор выбора

1) В треугольнике заданы сторона a, высота hи угол С. Найти стороны 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.

5)Решить систему уравнений по формулам Крамера:
|A1х+B1х = C1
|A2х+B2х = C2

для любых вводимых значений коэффициентов. Предусмотреть анализ решения в случае, когда определитель системы равен нулю.

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.

7) Вычислить значение функции:
           | x-12, при x > 12
{| 5, при x=0
        | x^2, при x < 0
program z7;
var x,z:real;
begin
write(‘введите х= ‘);readln(x);
if x>0 then z:=x-12;
if x=0 then z:=5;
if x<0 then z:=x*x;
writeln(‘значение функции= ‘,z);
readln
end.
8) Написать программу, классифицирующую треугольники (остроугольные, прямоугольные, тупоугольные), если даны углы.
program z8;
var a,b,c:real;
begin
write(‘введите угол a =’);readln(a);
write(‘введите угол b =’);readln(b);
write(‘введите угол c =’);readln(c);
if (a>90) or (b>90) or(c>90) then writeln(‘треугольник тупоугольный’)
else
if (a=90) or (b=90) or(c=90) then writeln(‘треугольник прямоугольный’)
else writeln(‘треугольник остроугольный’);
readln;
end.

Добавить комментарий