program ex_1;
var x, y, z: real;
begin
write('Введите три действительных числа:');
readln(x, y, z);
if x < 0 then x:= x*x*x*x else x:=x*x*x;
if y < 0 then y:= y*y*y*y else y:=y*y*y;
if z < 0 then z:= z*z*z*z else z:=z*z*z;
writeln(x:7:2, y:7:2, z:7:2)
end.
program ex_2;
var x1, y1, x2, y2, r1, r2: real;
begin
write('Введите координаты первой и второй точек:');
readln(x1, y1, x2, y2);
r1:= sqrt(x1*x1+y1*y1);
r2:= sqrt(x2*x2+y2*y2);
if r1=r2
then writeln('Точки находятся на одинаковом расстоянии от начала координат')
else if r1>r2
then writeln('Точка B находится ближе к началу координат')
else writeln('Точка A находится ближе к началу координат')
end.
program ex_3;
var A, B: real;
begin
write('Введите два угла (в градусах):');
readln(A, B);
if A+B<180
then begin if (A+B=90) or (A=90) or (B=90)
then writeln ('Треугольник прямоугольный')
end
else writeln ('Треугольник не существует')
program ex_4;
var x, y, a, b: real;
begin
write('Введите два действительных числа, не равных друг другу:');
readln(x, y);
a:=x; b:=y;
if x<y
then begin x:=(a+b)/2; y:=2*a*b end
else begin x:=2*a*b; y:=(a+b)/2 end;
writeln(x:7:2, y:7:2)
program ex_5;
var x, y: real;
begin
write('Введите координаты точки:');
readln(x, y);
if (x=0) and (y=0)
then writeln('Точка располагается в начале координат')
else if (x=0) or (y=0) then begin if (x=0) then writeln('Точка располагается на оси OY');
if y=0 then writeln('Точка располагается на оси OX');
end
else begin
if (x>0) and (y>0) then writeln('I координатная четверть');
if (x>0) and (y<0) then writeln('IV координатная четверть');
if (x<0) and (y>0) then writeln('II координатная четверть');
if (x<0) and (y<0) then writeln('III координатная четверть');
end
end.
program ex_6;
var m, n: integer;
begin
write('Введите два целых числа:');
readln(m, n);
if m=n then begin m:=0; n := 0 end
else if m>n
then n:=m
else m:=n;
writeln(m:6, n:6)
end.
program ex_7;
var a, b, c: real;
s: integer;
begin
write('Введите три числа:');
readln(a, b, c);
s:=0;
if a<0 then s:=s+1;
if b<0 then s:=s+1;
if c<0 then s:=s+1;
writeln(s)
end.
program ex_8;
var a, b, c: real;
s: integer;
begin
write('Введите три числа:');
readln(a, b, c);
s:=0;
if a>0 then s:=s+1;
if b>0 then s:=s+1;
if c>0 then s:=s+1;
writeln(s)
end.
program ex_9;
var a, b, c, k: integer;
begin
write('Введите четыре числа:');
readln(a, b, c, k);
if a mod k = 0 then writeln('Число ', k, ' является делителем числа ', a);
if b mod k = 0 then writeln('Число ', k, ' является делителем числа ', b);
if c mod k = 0 then writeln('Число ', k, ' является делителем числа ', c);
end.
program ex_10;
var a, b, c, k: integer;
begin
write('Введите четыре числа:');
readln(a, b, c, k);
if k<=A then writeln('Ваша сумма к оплате ', B, ' руб.')
else writeln('Ваша сумма к оплате ', B+(k-A)*C, ' руб.')
end.
program ex_11;
var v1, v2, t, t1: real;
begin
write('Введите четыре числа (скорость грузовика и легкового автомобиля и время их движения): ');
readln(v1, v2, t, t1);
if v2*t1>=v1*(t+t1) then writeln('догонит')
else writeln('не догонит')
end.
program ex_12;
var t : real;
begin
write('Введите температуру (в градусах Цельсия): ');
readln(t);
if t>60 then writeln('пожароопасная ситуация')
end.
program ex_13;
var t : integer;
begin
write('Введите возраст: ');
readln(t);
if t<7 then writeln('дошкольник')
else if t<=17 then writeln('ученик')
else if t<60 then writeln ('работник')
else writeln ('пенсионер')
end.
program ex_14;
var a, b, c, m, n : real;
begin
write('Введите параметры квадратичной функциии (a, b, c) и координаты точки: ');
readln(a, b, c, m, n);
if n=a*m*m+b*m+c
then writeln('парабола проходит через заданную точку')
else writeln('парабола не проходит через заданную точку')
end.
program ex_15;
var m1, n1, p1, m2, n2, p2, m3, n3, p3, m : integer;
begin
write('Введите данные Иванова, Петрова, Сидорова (у каждого по три значения): ');
readln(m1, n1, p1, m2, n2, p2, m3, n3, p3);
m:=m1+n1+p1;
if m<m2+n2+p2 then m:=m2+n2+p2;
if m<m3+n3+p3 then m:=m3+n3+p3;
writeln('Победитель набрал ', m, ' баллов')
end.
program ex_16;
var x, y, z, m: real;
begin
write('Введите три числа:');
readln(x, y, z);
m:=x+y+z;
if m<x*y*z then m:=x*y*z;
writeln(m:7:2)
end.
program ex_17;
var x, y, z, m: real;
begin
write('Введите три числа:');
readln(x, y, z);
m:=(x+y+z)/2;
if m>x*y*z then m:=x*y*z;
writeln(m*m+1:7:2)
end.
program ex_18;
var a, b, c, a1, b1, c1, v, v1 : real;
begin
write('Введите измерения первого и второго параллелепипедов: ');
readln(a, b, c, a1, b1, c1);
v:=a*b*c;
v1:=a1*b1*c1;
if v=v1
then writeln('объёмы параллелепипедов равны')
else if v>v1 then writeln('объём первого параллелепипеда больше')
else writeln('объём второго параллелепипеда больше')
end.
program ex_19;
var x, y, z, m, m1: real;
begin
write('Введите три числа:');
readln(x, y, z);
m:=x; m1:=x;
if m<y then m:=y;
if m1>y then m1:=y;
if m<z then m:=z;
if m1>z then m1:=z;
writeln('Сумма минимального и максимального элементов: ', m+m1:7:2)
end.
program ex_20;
var a, b, c, d, m, m1, m2: real;
begin
write('Введите четыре числа:');
readln(a, b, c, d);
if a<b then m:=a else m:=b;
if c<d then m1:=c else m1:=d;
if m<m1 then m2:=m1 else m2:=m;
writeln('Максимальный из минимальных элементов: ', m2:7:2)
end.
program ex_21;
var x1, y1, x2, y2, x3, y3: real;
begin
write('Введите координаты трёх точек:');
readln(x1, y1, x2, y2, x3, y3);
if (x3-x1)/(x2-x1)=(y3-y1)/(y2-y1)
then writeln('точки расположены на одной прямой')
else writeln('точки не расположены на одной прямой')
end.
program ex_22;
var a, b, c: real;
begin
write('Введите три числа:');
readln(a, b, c);
if abs(b-a)=abs(c-a)
then writeln('точки расположены на одинаковом расстоянии от A')
else if abs(b-a)>abs(c-a) then writeln('точка C расположена ближе к A')
else writeln('точка B расположена ближе к A')
end.
program ex_23;
var a, b, c, p: real;
begin
write('Введите три положительных числа:');
readln(a, b, c);
p:=(a+b+c)/2;
if (a<b+c) and (b<a+c) and (c<b+a)
then writeln('числа являются сторонами треугольника, его площадь ', sqrt(p*(p-a)*(p-b)*(p-c)):7:2)
else writeln('числа не являются сторонами треугольника')
end.
program ex_24;
var a, b, c: real;
begin
write('Введите три положительных числа:');
readln(a, b, c);
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b)
then writeln('числа являются сторонами прямоугольного треугольника')
else writeln('числа не являются сторонами прямоугольного треугольника')
end.
program ex_25;
var a, b, c: real;
begin
write('Введите три положительных числа:');
readln(a, b, c);
if (a+b+c=180)
then writeln('числа являются углами треугольника')
else writeln('числа не являются углами треугольника')
end.
program ex_26;
var x1, y1, r, x0, y0, t: real;
begin
write('Введите координаты центра и радиус окружности и координаты точки:');
readln(x1, y1, r, x0, y0);
t:=sqrt(sqr(x1-x0)+sqr(y1-y0));
if t<r
then writeln('точка лежит внутри окружности')
else if t=r then writeln('точка лежит на окружности')
else writeln('точка лежит вне окружности')
end.
program ex_27;
var a, b, c: real;
s: integer;
begin
write('Введите три числа:');
readln(a, b, c);
s:=0;
if a+b>0 then s:=s+1;
if a+c>0 then s:=s+1;
if b+c>0 then s:=s+1;
if s>0 then writeln('Среди сумм пар чисел есть положительные') else writeln('Среди сумм пар чисел нет положительных')
end.
program ex_28;
var a, b, a1, b1, s, s1: real;
begin
write('Задайте длины сторон двух прямоугольников: ');
readln(a, b, a1, b1);
s:=a*b; s1:=a1*b1;
if s=s1 then writeln('Площади равны')
else if s>s1 then writeln('Площадь первого прямоугольника больше')
else writeln('Площадь второго прямоугольника больше')
end.
program ex_29;
var a, b, c, a1, b1, c1, v, v1: real;
begin
write('Задайте измерения двух параллелепипедов: ');
readln(a, b, c, a1, b1, c1);
v:=a*b*c; v1:=a1*b1*c1;
if v=v1 then writeln('Объемы равны')
else if v>v1 then writeln('Объем первого параллелепипеда больше')
else writeln('Объем второго параллелепипеда больше')
end.
program ex_30;
var r, h, r1, h1, v, v1: real;
begin
write('Задайте радиус основания и высоту двух конусов: ');
readln(r, h, r1, h1);
v:=1/3*pi*r*r*h; v1:=1/3*pi*r1*r1*h1;
if v=v1 then writeln('Объемы равны')
else if v>v1 then writeln('Объем первого конуса больше')
else writeln('Объем второго конуса больше')
end.
program ex_31;
var r, h, r1, h1, v, v1: real;
begin
write('Задайте радиус основания и высоту двух цилиндров: ');
readln(r, h, r1, h1);
v:=pi*r*r*h; v1:=pi*r1*r1*h1;
if v=v1 then writeln('Объемы равны')
else if v>v1 then writeln('Объем первого цилиндра больше')
else writeln('Объем второго цилиндра больше')
end.
program ex_32;
var a, b, c, d: real;
begin
write('Введите параметры: ');
readln(a, b);
write('Введите координаты точки: ');
readln(c, d);
if d=a*c+b
then writeln('Точка лежит на прямой')
else writeln('Точка не лежит на прямой')
end.
program ex_33;
var a, b, c, d: real;
begin
write('Введите параметры: ');
readln(a, b, c, d);
if a*d=b*c
then writeln('Пропорция')
else writeln('Не является пропорцией')
end.
program ex_34;
var R1, R2, R: real;
begin
write('Введите параметры: ');
readln(R1, R2, R);
if 1/R=1/R1+1/R2
then writeln('Соединены параллельно')
else writeln('Не соединены параллельно')
end.
program ex_35;
var n: integer;
begin
write('Введите трёхзначное натуральное число (100<=n<=999): ');
readln(n);
if (n div 100+n mod 10) div 2 = n div 10 mod 10
then writeln('Образуют арифметическую прогрессию')
else writeln('Не образуют арифметическую прогрессию')
end.
program ex_36;
var n: integer;
begin
write('Введите трёхзначное натуральное число (100<=n<=999): ');
readln(n);
if (n div 100)*(n mod 10) = sqr(n div 10 mod 10)
then writeln('Образуют геометрическую прогрессию')
else writeln('Не образуют геометрическую прогрессию')
end.
© А.П. Шестаков, 2009