1) Точность вычисления в программе не задается. Указано только количество цифр дробной части (3), которое требуется вывести на экран. var x,y,a:real; begin write('x = '); readln(x); write('y = '); readln(y); if x*x-x-4>=0 then begin a:=((x*y)/(x+y))/(1+sqrt(x*x-x-4)); writeln('a = ',a:5:3); end else writeln('Корень из отрицательного числа'); end.
2) var a,b,c,d:real; begin writeln('Введите a, b, c, d:'); readln(a,b,c,d); if (a=d) then if (c=b) then writeln('Бесконечно много решений') else writeln('Решения нет') else writeln('x = ',(c-b)/(a-d)); end.
Program egor_sasha; var num_eg, num_sash,pri,pri1: real; var mes_eg,mes_sash: real; beginwriteln('numer egora'); readln(num_eg); writeln('numer sashi'); readln(num_sash); writeln('mesto egora (verkh=1,vniz=0)'); readln(mes_eg); writeln('mesto sashi (verkh=1,vniz=0)'); readln(mes_sash); pri: =num_sash+1; pri1: =num_eg+1; if num_eg=pri then writeln('yes') else writeln('no'); if num_sash=pri1 then writeln('yes') else writeln('no'); if mes_eg=1 then writeln('egor-high')else writeln('egor-low'); if mes_sash=1 then writeln('sasha-high')else writeln('sasha-low'); end.
var x,y,a:real;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
if x*x-x-4>=0 then
begin
a:=((x*y)/(x+y))/(1+sqrt(x*x-x-4));
writeln('a = ',a:5:3);
end
else writeln('Корень из отрицательного числа');
end.
2)
var a,b,c,d:real;
begin
writeln('Введите a, b, c, d:');
readln(a,b,c,d);
if (a=d)
then if (c=b) then writeln('Бесконечно много решений')
else writeln('Решения нет')
else writeln('x = ',(c-b)/(a-d));
end.
Пример:
Введите a, b, c, d:
2 1 4 3
x = -3