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.
Все программы - список всех установленных программ, приложений и игр Окно поиска найти в компьютере любую информацию или файл, соответствующий параметрам поиска User - вся информация о пользователе компьютера и его файлах, программах и т.д. Документы - папка в которой вы можете хранить любые документы, например из Office Microsoft Word с разрешение .docx Изображения - папка, в которой хранятся стандартные изображения Windows или образцы изображений, сюда же можно помещать свои фотографии, например с разрешением .jpg и .jpeg Музыка - папка, в которой хранится стандартная музыка Windows, сюда же можно помещать свою музыку, например файлы с расширением .mp3 Компьютер (или Мой компьютер) - окно, в котором можно увидеть информацию о дисках и внешних носителях, используется для перехода к каким-либо нужным файлам или получении информации о жестких дисках и внешних носителях Панель управления - эта панель включает в себя все необходимые средства для управления компьютером. Например раздел "Экран" отвечает за разрешение и другие настройки экрана монитора Устройства и принтеры - один из разделов "Панели управления", отвечающий за управление и настройку принтеров и всех подключенных к компьютеру устройств, также в этом разделе можно просмотреть информацию об устройствах и принтерах Программы по умолчанию - список всех заводских программ, установленных вместе c Windows, а также их управление и настройка Справка и поддержка - раздел "Панели управления", который сможет ответить на какие-либо вопросы, возникшие при работе с компьютером
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