Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.11.2008, 13:24   #1
Terabit
 
Регистрация: 03.11.2008
Сообщений: 5
Восклицание Переменные REAL

Сорри если тема уже поднималась.
Есть переменная типа REAL - результат деления. Вопрос в том, чтобы в результате не было лишних нулей. Что и куда нужно вписать.
Terabit вне форума Ответить с цитированием
Старый 03.11.2008, 13:38   #2
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

writeln('y=',y:0:0). Не будет вообще знаков после запятой. Если вместо второго ноля написать другое число, то столько знаков и будет после запятой.
puporev вне форума Ответить с цитированием
Старый 03.11.2008, 13:49   #3
Terabit
 
Регистрация: 03.11.2008
Сообщений: 5
По умолчанию

puporev это понятно, но мне нужно чтобы оно само определяло скоко нужно знаков после запятой и стоко писало. Возможно ли это?
Terabit вне форума Ответить с цитированием
Старый 03.11.2008, 13:53   #4
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

В Делфи, в модуле Math есть функция по-моему RoundTo. В Паскале такой нет, но можно написать самому. Интересно, а кто это ОНО САМО?
puporev вне форума Ответить с цитированием
Старый 03.11.2008, 19:58   #5
Terabit
 
Регистрация: 03.11.2008
Сообщений: 5
По умолчанию

Ладно, это понятно. Теперь другой вопрос. Есть несколько циклов, один на сложение, другой на вычитание. Нужно чтобы при Х=1 выполнялось ток сложение, а при Х=2 - вычитание. Как это сделать?
Terabit вне форума Ответить с цитированием
Старый 03.11.2008, 20:11   #6
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Не знаю что у тебя до этого, не телепат, но примерно так:
case x of
1:сложение;
2:вычитание;
end;
puporev вне форума Ответить с цитированием
Старый 03.11.2008, 20:38   #7
Terabit
 
Регистрация: 03.11.2008
Сообщений: 5
По умолчанию

Цитата:
Сообщение от puporev Посмотреть сообщение
Не знаю что у тебя до этого, не телепат...
VAR
A, B, C, X: REAL;
BEGIN
READ (X);
READ (A);
READ (B);

C:=A+B;{при Х=1}
C:=A-B;{при Х=2}

WRITELN (C);
END.
Можете написать исходный код? Дело в том, что я в програмировании недавно.
Terabit вне форума Ответить с цитированием
Старый 03.11.2008, 20:51   #8
pascal65536
Пользователь
 
Регистрация: 03.09.2007
Сообщений: 42
По умолчанию

Цитата:
Сообщение от Terabit Посмотреть сообщение
Можете написать исходный код? Дело в том, что я в програмировании недавно.
Давай будем учить самостоятельно разбираться. С книжкой и блокнотом.
pascal65536 вне форума Ответить с цитированием
Старый 03.11.2008, 21:06   #9
Terabit
 
Регистрация: 03.11.2008
Сообщений: 5
По умолчанию

С какой именно книжкой?
Terabit вне форума Ответить с цитированием
Старый 03.11.2008, 21:26   #10
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
C:=A+B;{при Х=1}
C:=A-B;{при Х=2}
А если х другое, и почему х:real; если х - целое?
Короче задание давай полностью и точное слово в слово, хватит в угадайку играть.
puporev вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Форматировние real MasterofCDM Общие вопросы Delphi 2 23.09.2008 10:02
real to string terminadoor Помощь студентам 6 28.07.2008 09:27
StringGrid to Real Nemesisking Помощь студентам 5 06.11.2007 13:00
как перевести из integer в real(и обратно), и из real в string(и обратно) Ga-sergey Общие вопросы Delphi 2 08.06.2007 21:13
Конвертация real > integer Viteef Общие вопросы Delphi 2 03.05.2007 18:45