Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Есть какие-нибудь эквиваленты FloatToStr? https://www.cyberforum.ru/ turbo-pascal/ thread794175.html
В Turbo Pascal нет процедуры FloatToStr. Есть какие-нибудь эквиваленты?
Выбрать алгоритм, составить блок-схему и программу для вычисиления в точках наибольшего и среднего значений функции Turbo Pascal
Выбрать алгоритм, составить блок-схему и программу для вычисления в точках х, = а + i-h, i = 0, 1, 2..., n, h - (b - а)/п промежутка наибольшего и среднего значений функции y=((sin^2 (abs(x))/2)+(3^(1/(x-1))))/(((x^4)-16)^(1/6))*((1-ln(x))^(1/2)) где x∈,n=4 Для выполнения задания воспользоваться оператором цикла FOR.
Turbo Pascal Все элементы матрицы, лежащие на второстепенной диагонали заменить суммой элементов, стоящих в четных строках и имеющих дробную часть https://www.cyberforum.ru/ turbo-pascal/ thread794089.html
Все элементы матрицы X (n x n), лежащие на второстепенной диагонали заменить суммой элементов, стоящих в четных строках и имеющих дробную часть.
Turbo Pascal Сформировать одномерный массив, состоящий из положительных элементов, располагающихся в нечетных столбцах матрицы Сформировать одномерный массив, состоящий из положительных элементов, располагающихся в нечетных столбцах матрицы X (n x m). https://www.cyberforum.ru/ turbo-pascal/ thread794088.html
Turbo Pascal Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов
Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов.
Turbo Pascal программа на подобие справочника нужно написать программу, опишу примерно ее функционал. при запуске нужно ввести полную дату рождения нажать ввод программа выведет из файла информацию из различных гороскопов https://www.cyberforum.ru/ turbo-pascal/ thread794076.html
Turbo Pascal Сортировка.Самый издаваемый автор https://www.cyberforum.ru/ turbo-pascal/ thread794019.html
Здравствуйте!Помогите сделать сортировку в типизированном файле.Нужна сортировка самый издаваемый автор,как я понял это какой автор чаще всего повторяется в базе данных в колонке автор такого и выводим.Очень нужна ваша помощь.Заранее благодарен. Type TRec = record Code : longint; {Код издания} Autor : string; {Авторы} Name : string; {Название} Size : longint; {Объем в печатных листах}...
Таблица шифрования Азбука Морзе Turbo Pascal
Собственно нужна данная таблица шифрования.. Желательно, конечно со звуками, но можно и без них. Спасибо.
Turbo Pascal Устранение ошибок https://www.cyberforum.ru/ turbo-pascal/ thread794007.html
Доброго вечера. Люди, подскажите пожалуйста. Если у меня переменная типа integer, то если при вводе будет считана хоть 1 буква выкидывает из программы, обратно в программный код. Как устранить вылет из программы. Заранее благодарю.
Turbo Pascal Функция переписывает строку. Если она находит в строке число https://www.cyberforum.ru/ turbo-pascal/ thread794005.html
Функция переписывает строку. Если она находит в строке число, то вместо него переписывает в выходную строку соответствующее по счету слово из входной строки (например, «ааа bblbbсс2сс» - «ааа bbaaabb ccbb1bbcc»).
Turbo Pascal Шифр двойной перестановки столбцов и строк
Здравствуйте. Собственно нужна программа, сделанная в Delphi/ Pascal. Спасибо.
Turbo Pascal Динамический массив. Минимум, максимум. https://www.cyberforum.ru/ turbo-pascal/ thread793991.html
В матрице все числа различны. В каждой строке находится минимальный элемент, затем среди этих чисел выбирается максимальное. Напечатать номер вводится с клавиатуры. Элементы матрицы размещаются в памяти строки матрицы, в которой расположено выбранное число. Размер матрицы динамически.
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 54
25.02.2013, 16:22  [ТС] 0

Количество знаков после точки - Turbo Pascal - Ответ 4178313

25.02.2013, 16:22. Показов 13796. Ответов 5
Метки (Все метки)

Ответ

Написал такую функцию:
Pascal
1
2
3
4
5
6
7
8
9
{Функция определения количества знаков
после точки в числах с плавающей точкой}
function SignsOfFract (var s: string): integer;
begin
  if Pos('.',s)<>0 then
    SignsOfFract:=Length(s)-Pos('.',s)
  else
    SignsOfFract:=0;
end;
К сожалению, пришлось использовать в качестве входных данных строку. Пытался использовать на входе вещественное число и с использованием Str конвертировать в строку, но в дальнейшем не получается корректно определить количество знаков после запятой, так как число записывается в строку в примерно таком виде "-3.2648375386Е-01". Есть ли какие-нибудь другие пути?

Вернуться к обсуждению:
Количество знаков после точки Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2013, 16:22
Готовые ответы и решения:

Выведите все корни квадратного уравнения с точностью ровно 7 знаков после десятичной точки
на вход даны действительные числа a,b,c. выведите все корни квадратного уравнения с точностью...

Количество знаков после запятой
Как ограничить кол-во знаков после запятой в процедуре вывода ? и как поместить функцию в модуль ?...

Ограничить количество знаков после запятой
Ребят, что нужно поменять чтобы после запуска в массиве получались числа с меньшим количеством...

Подсчитать количество символов до точки и после нее
1)В ряду есть одна точка с запятой(;) Подсчитать количество символов до точки и после нее....

5
25.02.2013, 16:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2013, 16:22
Помогаю со студенческими работами здесь

Подсчитать количество символов до точки с запятой и после нее
в строке имеется точка с запятой (;). Подсчитать количество символов до точки с запятой и после...

Подсчитать количество символов до точки с запятой и после нее.
В строке имеется одна точка с запятой (;). Подсчитать количество символов до точки с запятой и...

Дан текст из букв и знаков. Подсчитать общее количество цифр и знаков ‘+’,’-‘,’*’, входящих в текст.
Дан текст из букв и знаков. Подсчитать общее количество цифр и знаков ‘+’,’-‘,’*’, входящих в текст.

Выведите в выходной файл округленное до n знаков после десятичной точки число E
Выведите в выходной файл округленное до n знаков после десятичной точки число E. В данной задаче...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru