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

Ответ Создать новую тему
 
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)
Форумчанин
Регистрация: 13.10.2011
Сообщений: 228
Репутация: 106 (106)
Лучшие ответы: 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.
Другие темы раздела
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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
VBA: Ввести число x, выяснить что больше : целая часть числа x или его дробная часть умноженная на 10
Ввести число x, выяснить что больше : целая часть числа x или его дробная часть умноженная на 10. Если первое то число разделить на 10 если второе, то дробную часть от него отнять Очень нужно, буду благодарен
VBA Kich 2494 22.12.2013 00:25
C++: Дробная и целая части числа
Определить, равна ли сумма цифр дробной части заданного положительного вещественного числа сумме цифр целой части. Какие варианты господа?:)
С++ для начинающих sergey_viper 13.10.2013 15:27
Turbo Pascal: Целая и дробная части числа Turbo Pascal
Целая и дробная части заданного вещественного числа одинаковы.
Turbo Pascal Denis639 13.10.2013 15:21
Целая и дробная часть от числа - Алгебра, теория чисел
Напишите, пожалуйста, и решение, хотя бы в двух словах.
Алгебра, теория чисел arturjoshi 05.01.2013 14:46
Assembler: Деление двух целых пятизначных чисел(целая и дробная части)
Составить и отладить программу на ассемблере для нахождения результата деления двух целых пятизначных чисел, представленных в десятичном формате. Числа вводятся с клавиатуры. Результат вывести на дисплей в виде Z = xxx.yyy xxx- целая часть ууу - дробная
Assembler, MASM, TASM Bleize 22.11.2011 22:44
Опции темы

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

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