Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Pascal ABC
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 13.10.2011, 21:25   #1
Encoded
Новичок
 
Регистрация: 13.10.2011
Сообщений: 2
Репутация: 0 (0)
Дробная и целая части вещественного числа / Pascal ABC

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

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

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

Похожие темы
Тема Автор
Assembler, MASM, TASM Деление двух целых пятизначных чисел(целая и дробная части)
Составить и отладить программу на ассемблере для нахождения результата деления двух целых пятизначных чисел, представленных в десятичном формате. Числа вводятся с клавиатуры. Результат вывести на дисплей в виде Z = xxx.yyy xxx- целая часть ууу - дробная
Bleize
Delphi для начинающих Порядок дробной части вещественного числа.
Здравствуйте, уважаемые программисты всея форума! Доброго вам времени суток! У меня случилось умственное помутнение. Не могу правильно определить порядок дробной части вещественного числа. Ну, а точнее, количество цифр в ней. Делал так: while(d > 0) do begin d:= d*10; k:=k+1;
Ztrel
C++ Определения, равна сумма цифр целой части вещественного числа сумме такого же количества цифр в дробной части
Нада написать 2 программки 1. Определения, равна сумма цифр целой части вещественного числа сумме такого же количества цифр в дробной части.(ориг. Визначення, чи дорівнює сума цифр цілої частини дійсного числа сумі такої ж кількості цифр в дробовій частині.) ...
Infikkk
Pascal (Паскаль) Найти первую цифру дробной части вещественного числа.Например для числа 23,109-это цифра 1
Найти первую цифру дробной части вещественного числа.Например для числа 23,109-это цифра 1
Shady
Pascal (Паскаль) Найти сумму первых трех цифр дробной части вещественного числа.например для числа 23,16809 она равна 15
Найти сумму первых трех цифр дробной части вещественного числа.например для числа 23,16809 она равна 15
Shady
Опции темы

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

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