Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
Encoded
Гость
Сообщений: n/a
13.10.2011, 21:25     Дробная и целая части вещественного числа
  #1
Учитель с Информатики дал задачу.
Дано действительное число p. В первой строке вывести его закругленное целое значение, во втором - его целую часть, в третьем - его дробную часть (один знак после запятой).
Входные данные.
3.5
Исходные данные.
4
3
0.5

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

Только начинаю учить этот язык...
AdAgent
Объявления
13.10.2011, 21:25
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.10.2011, 21:25

Посмотрите здесь:

Pascal ABC Процедуры. Даны три вещественных числа. Составить процедуру нахождения целой части числа

Pascal ABC Создайте программу исследования положительного вещественного числа

Pascal ABC Ввести число х, выяснить что больше: целая часть х, или его Дробная часть, умноженная на 10. Если первое, то число умножить на 10, если второе, то выч

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

Pascal ABC Вывести абсолютное значение заданного вещественного числа А

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

Pascal ABC Дробная часть неотрицательного числа

Pascal ABC Как задать формат вещественного числа в массиве?

log(n)
Форумчанин
106 / 106 / 2
Регистрация: 13.10.2011
Сообщений: 228
13.10.2011, 23:50
  #2
Цитата Сообщение от Encoded Посмотреть сообщение
Учитель с Информатики дал задачу.
Дано действительное число p. В первой строке вывести его закругленное целое значение, во втором - его целую часть, в третьем - его дробную часть (один знак после запятой).
Входные данные.
3.5
Исходные данные.
4
3
0.5

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

Только начинаю учить этот язык...
Код 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.
Encoded
Гость
Сообщений: n/a
14.10.2011, 08:24     Дробная и целая части вещественного числа
  #3
Цитата Сообщение от log(n) Посмотреть сообщение
Код 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.
Спасибо огромное.
Yandex
Объявления
14.10.2011, 08:24
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 08:03. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.