Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
13.10.2011, 21:25   #1
Encoded
Гость
Сообщений: n/a
Дробная и целая части вещественного числа / Pascal ABC

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

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

Только начинаю учить этот язык...
13.10.2011, 21:25
AdAgent
Объявления
13.10.2011, 23:50   #2
log(n)
Форумчанин
106 / 106 / 2
Регистрация: 13.10.2011
Сообщений: 228
Дробная и целая части вещественного числа

Цитата Сообщение от 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.
Другие темы раздела
Pascal ABC Найти количество отрицательных элементво массива
Задача - Дан массив целых чисел Найти количество отрицательных элементво массива. Как всё это решить с помощью генератора случайных чисел. var a,b:array of integer; g,i,n:integer; begin writeln ('Введите N'); readln (n);
Поворот квадрата с помощью клавиш клавиатуры. Pascal ABC
Приветствую! Ребят,имеется код крутящегося квадрата, но надо чтобы вращался он при нажатии клавиши R по часовой, L против. Прошу, о мудрейшие из мудрейших, вашей помощи. Если не трудно укажите комментариями. uses crt,GraphABC; var a,b: integer; x0,y0,x1,y1,x2,y2,x3,y3,x4,y4: integer;...
14.10.2011, 08:24   #3
Encoded
Гость
Сообщений: n/a
Дробная и целая части вещественного числа / Pascal ABC

Цитата Сообщение от 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.
Спасибо огромное.
14.10.2011, 08:24
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C++ Дробная и целая части числа
Определить, равна ли сумма цифр дробной части заданного положительного вещественного числа сумме цифр целой части. Какие варианты господа?:)
С++ для начинающих sergey_viper 13.10.2013 15:27
Turbo Pascal Целая и дробная части числа Turbo Pascal
Целая и дробная части заданного вещественного числа одинаковы.
Turbo Pascal Denis639 13.10.2013 15:21
Pascal ABC Ввести число х, выяснить что больше: целая часть х, или его Дробная часть, умноженная на 10. Если первое, то число умножить на 10, если второе, то выч
Ввести число х, выяснить что больше: целая часть х, или его Дробная часть, умноженная на 10. Если первое, то число умножить на 10, если второе, то вычесть из него дробную часть. Срочно плиз
Pascal ABC DieCasT 14.05.2013 22:47
Pascal ABC присвоить целой переменной d первую цифру из дробной части положительного вещественного числа х
присвоить целой переменной d первую цифру из дробной части положительного вещественного числа х
Pascal ABC kurdovivan 08.01.2013 14:12
Pascal ABC Найти произведение первой цифры целой части и третьей цифры дробной части вещественного числа
Помогите написать программу в Паскале Найти произведение первой цифры целой части и третьей цифры дробной части вещественного числа Примечание: цифры в числе нумеруются следующим образом: в целой части - начиная с раздела единиц, в дробной части - начиная с десятых долей
Pascal ABC Аделька 07.10.2012 11:06
Pascal ABC Дробная часть неотрицательного числа
Как можно выделить дробную часть неотрицательного числа в pascalABC? Frac использовать не прокатит. Например, есть число 256.201. Как получить это 201? Или число 26251,306910. Как получить 306910?
Pascal ABC William Blake 04.12.2011 16:50
Assembler Деление двух целых пятизначных чисел(целая и дробная части)
Составить и отладить программу на ассемблере для нахождения результата деления двух целых пятизначных чисел, представленных в десятичном формате. Числа вводятся с клавиатуры. Результат вывести на дисплей в виде Z = xxx.yyy xxx- целая часть ууу - дробная
Assembler, MASM, TASM Bleize 22.11.2011 22:44
Опции темы

Текущее время: 09:30. Часовой пояс GMT +4.

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