Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Tesha
0 / 0 / 0
Регистрация: 16.09.2015
1

Trunc() и Abs() (На вход программе подается вещественное число Х. Получить и вывести на экран целое значение Z)

08.10.2012, 22:01. Просмотров 874. Ответов 2
Метки нет (Все метки)

На вход программе подается вещественное число Х. Получить и вывести на экран целое значение Z:
Z = -1, если Х<0;
Z = 1, если Х>0;
Z = 0, если Х=0;
Для вычисления Sign использовать только оператор присваивания.

Указание. Для всех чисел, отличных от 0, ответ выглядит как Х / |Х| .
(|Х| - модуль Х, / - «вещественное» деление)
Для учета нуля воспользуемся выражением [1 / (1+|Х|)], где [ ] – означает, что нужно взять целую часть выражения. Это выражение равно единице при Х=0 и нулю для всех остальных значений Х. (Почему здесь нельзя вместо «/» воспользоваться операцией div?)
В итоге получаем формулу для вычисления Z:

Х / (|Х| + [1 / (1+|Х|)]

Следует также помнить, что результат должен быть присвоен переменной целого типа!

Запишите эту формулу в виде арифметического выражения по правилам Pascal, с использованием изученных функций Trunc() и Abs().
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2012, 22:01
Ответы с готовыми решениями:

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти значение выражения 1 - A + A^2 - A^3 + ... + (-1)^N*A^N.
Дано вещественное число A и целое число N (&gt; 0). Используя один цикл, найти...

Дано вещественное число A и целое число N (> 0). Используя один цикл, вывести все целые степени числа A от 1 до N.
Дано вещественное число A и целое число N (&gt; 0). Используя один цикл, вывести...

Дано вещественное число А и целое число N (>0). Вывести 1-А+А(в квадрате)-А(в кубе)+...+(-1)(в степени N) А(в степени N).
Дано вещественное число А и целое число N (&gt;0). Вывести 1-А+А(в квадрате)-А(в...

На вход программе подается набор символов (в одной строке), среди которых есть хотя бы одна цифра.
На вход программе подается набор символов (в одной строке), среди которых есть...

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму 1 + A + A^2 + A^3 + ... + A^N.
Дано вещественное число A и целое число N (&gt; 0). Используя один цикл, найти...

2
domovou2.0
Дзæуджыхъæу
231 / 203 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
08.10.2012, 22:33 2
Лучший ответ Сообщение было отмечено как решение

Решение

Так?
Pascal
1
2
3
4
5
6
7
8
9
10
var z:integer; x: real;
begin
readln(x);
if x=0 then
   z:=trunc(x/(abs(x)+trunc(1/(1+abs(x)))))
   else
   z:=trunc(x/abs(x));
writeln(z);
readln;
end.
1
Tesha
0 / 0 / 0
Регистрация: 16.09.2015
09.10.2012, 20:05 3
Спасибо! Тема закрыта!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2012, 20:05

Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N.
1) Дано вещественное число А и целое число N(&gt;0). Используя один цикл, найти...

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму: 1 + A + A2 + A3 + .+ AN. (1+а+(а в степени 2 )+(а в с
Дано вещественное число A и целое число N (&gt; 0). Используя один цикл, найти...

Дано целое число N(>0). Найти сумму 1+1/2+1/3+…+1/N (вещественное число)
Дано целое число N(&gt;0). Найти сумму 1+1/2+1/3+…+1/N (вещественное число). ...


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

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

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