При вычитании чисел появляется остаток - PascalABC.NET


textual

Код к задаче: «При вычитании чисел появляется остаток - PascalABC.NET»

begin
  var НомерЗвена        := 'A3';
  var Тип               := 3;
  var РазмерЗвена       := 200.06 + 1e-8;
  var ВерхнееОтклонение := 0.01 - 1e-8;
 
  // Без форматирования - как есть
  WriteLn('-'*57);
  WriteLn('| Номер звена | Тип | Размер звена | Верхнее отклонение |');
  WriteLn('|    ', НомерЗвена, '     | ', Тип, '  | ', РазмерЗвена,
          ' |   ', ВерхнееОтклонение, '     |');
  WriteLn('-'*57, NewLine);
  
  // Способ c использованием формата вывода
  WriteLn('-'*57);
  WriteLn('| Номер звена | Тип | Размер звена | Верхнее отклонение |');
  WriteLn('|    ', НомерЗвена:4, '     | ', Тип:2, '  | ', РазмерЗвена:12:4,
          ' |   ', ВерхнееОтклонение:12:4, '     |');
  WriteLn('-'*57, NewLine);
  
  // Cпособ с использованием форматной строки
  WriteLn('-'*57);
  WriteLn('| Номер звена | Тип | Размер звена | Верхнее отклонение |');
  WriteLnFormat('|     {0,3}     | {1,2}  | {2,12:f4} |   {3,12:f4}     |',
                НомерЗвена, Тип, РазмерЗвена, ВерхнееОтклонение);
  WriteLn('-'*57, NewLine);
end.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.364 из 5



Похожие ответы
  1. Напишите программу, которая вычисляет выражение, состоящее из трех чисел (допускаются знаки «+», «–», «*» и «/» ) Пример: Введите выражение: 12*3+45 Ответ: 81

  1. Даны натуральные числа n, a1......an где n<=3000. Отсортировать последовательность a1.....an в порядке возрастания, найти элементы ak последовательности, являющимся квадратами четных чисел, и определить их количество. Помогите пожалуйста Сортировать надо методом пузырька.Добавлено через 2 часа 51 минуту Допишите пожалуйста

  1. Заданы два натуральных числа. Определить, являются ли среднее арифметическое этих чисел целым числом ЧЕРЕЗ ОПЕРАТОР CASE

  1. Составить программу на Паскале, содержащую минимум 4 подпрограммы. Дан одномерный массив, выполнить следующие действия: -вычислить произведение отрицательных элементов P1 произведение положительных элементов P2, сравнить модуль P2 с модулем P1, указать какое из произведений по модулю больше. -найти произведение только тех чисел,которые больше заданного числа m. -подсчитать,сколько в нем положительных элементов. -поменять местами соседние элементы, стоящие на четырех местах,с элементами, стоящими на нечетных местах.

  1. Сложение (вычитание) двоичных чисел в дополнительном коде.Можно не писать нахождение дополнительного кода

  1. Найти произведение модулей чисел от a до b (a и b вводятся с клавиатуры).

  1. Помогите сделать, пожалуйста: сформируйте массив, содержащий n элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен среднему арифметическому элементов, стоящих до и после него в исходном массиве. Выведите на экран исходные и полученные результаты Заранее спасибо!

  1. Доброе время суток! Помогите с матрицей , не могу решить . Условие задачи :Даны целые положительные числа M, N, число D и набор из M чисел. Сформировать матрицу размера M × N, у которой первый столбец совпадает с исходным набором чисел, а элементы каждого следующего столбца равны сумме соответствующего элемента предыдущего столбца и числа D (в результате каждая строка матрицы будет содержать элементы арифметической прогрессии). Исходные данные : d=2.92. m=3 , n=4. Числа первого столбца :4.98, 0.19, 6.88. Вот мои попытки решения ...

  1. Найти количество чисел больших Х(Х лежит в диапазоне от -А до А), в последовательности из N случайных чисел, сгенерированных в диапазоне от -А до А включительно. Х,N,А - вводить с клавиатуры. Сгенерированные числа и результат расчета вывести на экран.