Регистрация
Ytkakiki
22.07.2022 22:58
Информатика
Есть ответ 👍

ЗА ПРАВИЛЬНЫЙ ОТВЕТ! Напишите программу, которая вводит два вещественных числа, a и b ( a < b ), и выводит через пробел 5 случайных вещественных чисел в полуинтервале [ a , b ) .

Входные данные

Входная строка содержит два вещественных числа a и b , разделённых пробелом. Гарантируется, что a < b .

Выходные данные

Нужно вывести в одной строке через пробел 5 случайных вещественных чисел в полуинтервале [ a , b ) с тремя знаками в дробной части.

238
273
Посмотреть ответы 1

Ответы на вопрос:

shlama283
shlama283
4,8(34 оценок)
Var  a, b, c, d: real;   x1, x2: real; begin   write('введите а: '); readln(a);   write('введите b: '); readln(b);   write('введите c: '); readln(c);   d : = sqr(b) - (4 * a * c);   if (d > 0) then   begin     x1 : = (-b + sqrt(d)) / (2 * a);     x2 : = (-b - sqrt(d)) / (2 * a);     writeln('x1=', x1);     writeln('x2=', x2);   end  else     if(d = 0) then   begin     x1 : = b / (2 * a);     write('x1=', x1, 'x2=', x1);   end    else   writeln('корней нет'); end.

Популярно: Информатика