1.
Даны два угла треугольника (в градусах). Определить,
существует ли такой треугольник. Если да, то прямоугольный ли он.
|
var a,b,c:real;
begin
writeln('введите два угла треугольника');
readln(a,b);
if (a+b)>180 then write('треугольник не существует')
else
begin writeln('треугольник существует');
c:=180-(a+b);
if (a=90) or
(b=90) or (c=90) then
writeln('треугольник
прямоугольный')
else
writeln('треугольник не прямоугольный');
end;
end.
|
2.
На плоскости XOY задана
своими координатами точка А. Указать,
где она расположена: на какой оси или в какой координатной четверти.
|
var
x,y:real;
begin
writeln('введите
координаты точки А');
readln(x,y);
if (x=0)and
(y=0) then write('в центре координат')
else if (y=0)
then write('на оси x')
else if (x=0)
then write('на оси y')
else if (x>0)
then
if y>0 then write('в первой четверти')
else
write('в четвертой четверти')
else begin if
y>0 then write ('во второй четверти')
else
write ('в третьей четверти');
end;
end.
|
3.
Грузовой автомобиль выехал из одного города в другой
со скоростью V1
км/ч.
Через t ч
в этом же направлении выехал легковой автомобиль со скоростью v2
км/ч.
Составить программу, определяющую, догонит ли легковой автомобиль грузовой
через t ч
после своего выезда.
|
var
v1,v2,t,t1:real;
begin
writeln('v1=');
read(v1);
writeln('t=');
read(t);
writeln('v2=');
read(v2);
writeln('t1=');
read(t1);
if
(v2*t1>=v1*(t+t1)) then write('догонит') else write ('не догонит');
end.
|
4.
Написать программу нахождения суммы большего и меньшего
из 3 чисел.
|
var
a,b,c,max,min:integer;
begin
write
('введите три числа');
readln(a,b,c);
if
(a>b) and (a>c)
then
max:=a
else if
(b>a) and (b>c) then max:=b
else max:=c;
if (a<b) and (a<c)
then
min:=a
else if
(b<a) and (b<c) then min:=b
else min:=c;
writeln(max+min);
end.
|
5.
Написать программу, распознающую по длинам сторон
среди всех треугольников прямоугольные. Если таковых нет, то вычислить
величину угла С.
|
var
a,b,c,n,uc:real;
f:boolean;
begin
writeln('введите
стороны треугольника');
readln(a,b,c);
if (a>b)
and(a>c) then f:=(a*a=c*c+b*b)
else if (b>c)
and (b>a) then f:=(b*b=a*a+c*c)
else
f:=(c*c=a*a+b*b);
if f=true then
writeln ('Треугольник
прямоугольный')
else begin
writeln
('треугольник не прямоугольный');
n:=(a*a+b*b-c*c)/(2*a*b);
uc:=arctan(sqrt(1+1/n))*180/pi;
writeln('Угол
С равен: ',uc:8:2);
end;
end.
|
6.
Составить программу, осуществляющую перевод величин
из радианной меры в градусную или наоборот. Программа должна запрашивать,
какой перевод нужно осуществить, и выполнять указанное действие.
|
var gr,rad:real;
s:char;
begin
writeln('Перевести
в радианы или градусы р/г:');
read(s);
if (s='р')or (s='r')or
(s='R')or (s='Р') then
begin
writeln ('введите количество градусов');
read (gr);
rad:=gr*pi/180;
Write(gr:3:6,'градусов=',rad:3:6,'радиан');
end
else
begin
write('введите количество радиан:');
read (rad);
gr:=rad*180/pi;
Write(rad:3:6,'радиан=',gr:3:6,'градусов');
end;
end.
|
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.