Напишите программу, которая принимает два вещественных числа, значение для числа десятичных знаков, вычисляет сумму и выводит результат. Попробуйте ввести действительное число для числа знаков после запятой.
skydyrmoldinova:
Можете привести 1 пример
Ответы
Ответ дал:
3
Ответ:
program Real2;
var
a, b, d: Real;
id: Integer;
begin
Write ('Введите два вещественных числа: ');
Read (a, b);
Write ('Введите число знаков после запятой: ');
Read (d);
id := Trunc (d);
WriteLn;
Write ('Сумма = ', a + b :15 :id);
ReadLn;
ReadLn;
end.
Объяснение:
действительное число для количества знаков после запятой вводится в d, затем чтобы использовать его в форматировании вывода преобразуется в целое (id := Trunc (d); ).
var
a, b, d: Real; // объявление а и b будем суммировать, d - для определения с какой точностью выводить результат
id: Integer; // сюда сохраним значение d, т.к. нужно целое число а не Real
begin
Write ('Введите два вещественных числа: ');
Read (a, b); // ввод чисел в a и b
Write ('Введите число знаков после запятой: ');
Read (d); // ввод числа знаков после запятой, Ёклмн - вверху уже написано то же самое
WriteLn;
Write ('Сумма = ', a + b :15 :id); // вывод суммы a + b с точностью "id"
ReadLn;
ReadLn; // а это чтобы окно не сразу закрылось, программа ждет нажатия любой клавиши.
end. // всё конец! не понимаю зачем в школе учат программированию. сложить два числа - что еще проще может быть
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад