Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 38, средняя оценка - 4.63
Encoded
0 / 0 / 0
Регистрация: 10.10.2011
Сообщений: 2
#1

Вывести дробную и целую части вещественного числа - Pascal ABC

13.10.2011, 21:25. Просмотров 7762. Ответов 2
Метки нет (Все метки)

Учитель с Информатики дал задачу.
Дано действительное число p. В первой строке вывести его закругленное целое значение, во втором - его целую часть, в третьем - его дробную часть (один знак после запятой).
Входные данные.
3.5
Исходные данные.
4
3
0.5

Очень хочу ее решить но не получается.

Только начинаю учить этот язык...
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.10.2011, 21:25
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывести дробную и целую части вещественного числа (Pascal ABC):

Вывести целую часть заданного положительного вещественного числа А - Pascal ABC
Казалось бы легкие задачи, а не получается... Заранее огромное спасибо... 2. Вывести целую часть заданного положительного вещественного...

Найти произведение первой цифры целой части и третьей цифры дробной части вещественного числа - Pascal ABC
Помогите написать программу в Паскале Найти произведение первой цифры целой части и третьей цифры дробной части вещественного числа ...

Определить первую цифру дробной части заданного вещественного числа - Pascal ABC
Помогите пожалуйста решить Написать алгоритм, определяющий первую цифру дробной части заданного вещественного числа. Это нужно...

Введите дробное число. Вывидите отдельно дробную и целую часть - Pascal ABC
Введите дробное число. Вывидите отдельно дробную и целую часть program n1; Var x: Real; begin Writeln:('Введите дробное число'); ...

Выяснить, что целая и дробная части заданного вещественного числа одинаковы - Pascal ABC
Задание:Pascal ABS Для каждой задачи составить программу, выводящую значение TRUE, если указанное высказывание является истинным, и...

Найти произведение двух первых цифр из дробной части положительного вещественного числа - Pascal ABC
Найти произведение двух первых цифр из дробной части положительного вещественного числа (Х=45,328, то У=3*2=6)

2
log(n)
107 / 107 / 32
Регистрация: 13.10.2011
Сообщений: 227
13.10.2011, 23:50 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  p: real;
 
begin
  p := round(3.5);
  Writeln(p);
  p := trunc(3.5);
  Writeln(p);
  p := frac(3.5);
  Writeln(p);
end.
либо так :

Pascal
1
2
3
4
5
6
7
8
9
10
var
  p,p1,p2,p3: real;
 
begin
  p:=3.5;
  p1 := round(p);
  p2 := trunc(p);
  p3 := frac(p);
  writeln('Округленное число: ',p1, ' Целая часть числа: ' ,p2 ,' Дробная часть числа: ' ,p3);
end.
1
Encoded
0 / 0 / 0
Регистрация: 10.10.2011
Сообщений: 2
14.10.2011, 08:24 #3
Спасибо огромное.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.10.2011, 08:24
Привет! Вот еще темы с ответами:

Присвоить целой переменной d первую цифру из дробной части положительного вещественного числа х - Pascal ABC
присвоить целой переменной d первую цифру из дробной части положительного вещественного числа х

Поменять местами дробную и целую части числа и вывести полученное значение числа. - Pascal
19. Дано действительное число R вида nnn. ddd (три цифровых разряда в дробной и целой частях). Поменять местами дробную и целую части числа...

Найти дробную часть вещественного числа х, если целые числа вводимые с экрана положительные; х=y/z - Pascal
Hужно использовать оператор "если". Застрял на ней. Помогите чем сможете.

Найти дробную часть вещественного числа - Pascal
Уважаемые, срочно нужна помощь! 2) Найти дробную часть вещественного числа Х, если целые числа вводимые с экрана положительные: Х=Y/Z. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.