ФорумПорталГалереяЧаВоПоискПользователиГруппыРегистрацияВход
Принимаем поздравления! До завершения работы над следующим проектом осталось менее 12 лет!

Поделиться | 
 

 Утопающий просит помощи!

Предыдущая тема Следующая тема Перейти вниз 
АвторСообщение
Qто-то
Raw Byte Interactive
Raw Byte Interactive
avatar

Сообщения : 619
Дата регистрации : 2010-07-29
Откуда : Прага



СообщениеТема: Утопающий просит помощи!   Вт 15 Мар - 18:23

К тем, кто разбирается в Труботаскале:
Помогите, плиз, кто знает, как отбросить экспонент в вещественных переменных паскаля. А то меня этот 1.000000000Е0 вместо элементарной единички уже достал. No А Гугл по этому поводу либо молчит, либо выдаёт вещи столь ужасные, что найти там именно убийцу экспонента просто невозможно. Округление и целая часть не нужны - с десятичными дробями это не провернёшь. Может быть, есть округление до значащей цифры номер n?
Возможно, это будет не последний вопрос. Rolling Eyes
ЗЫ - Может быть, дабы не плодить кучу лишних тем, все будут подобные вопросы сюда скидывать? bounce
Вернуться к началу Перейти вниз
Посмотреть профиль
RaZeR
base.Spawn(new RaZeR(1.0f));
avatar

Сообщения : 1316
Дата регистрации : 2010-07-28
Откуда : null
0 1 0
0 0 1
1 1 1

СообщениеТема: Re: Утопающий просит помощи!   Вт 15 Мар - 19:10

В паскале вроде есть форматирование чисел.
Делается так:
Цитата :

число:колвоцифрпередзапятой:колвопосле

Т.е.:
Код:

var
  num : real;

....
num = 10/3;
writeln(num:2:2);
...
Должно вывести 3,33 (3,34?), вроде бы.
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
Falcon
RaZeR.Drop_ob_table(Golovoy);
avatar

Сообщения : 1435
Дата регистрации : 2010-07-28
Откуда : Хабаровск
Totally approved.

СообщениеТема: Re: Утопающий просит помощи!   Вт 15 Мар - 21:28

Previous post lies
Нум:Колвоваапще:Колво после запятой
Вроде
Код:

...;
writeln(10/3:5:3)
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
RaZeR
base.Spawn(new RaZeR(1.0f));
avatar

Сообщения : 1316
Дата регистрации : 2010-07-28
Откуда : null
0 1 0
0 0 1
1 1 1

СообщениеТема: Re: Утопающий просит помощи!   Ср 16 Мар - 11:34

Я до паскаля не дотрагивался уже месяца три Wink
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
Falcon
RaZeR.Drop_ob_table(Golovoy);
avatar

Сообщения : 1435
Дата регистрации : 2010-07-28
Откуда : Хабаровск
Totally approved.

СообщениеТема: Re: Утопающий просит помощи!   Ср 16 Мар - 11:37

А у нас он каждый день(
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
Qто-то
Raw Byte Interactive
Raw Byte Interactive
avatar

Сообщения : 619
Дата регистрации : 2010-07-29
Откуда : Прага



СообщениеТема: Re: Утопающий просит помощи!   Ср 16 Мар - 13:48

Danke schön!) Отплюсовал. Родилось ещё два вопроса:
№1
Код:

...
var x,y: single;(/real/double/extended, всё перепробовал)
...
x:=(x+y)/2;
...
Выдаёт кривой результат, тогда как
Код:

...
var x,y,z: single;
...
z:=x+y;
...
x:=z/2
...
Решает всё верно. Дело в индусисме сборщика?

№2
Как заставить программу выходить (продолжать работу) при нажатии ОПРЕДЕЛЁННОЙ клавиши (Any key и Enter уже освоил)) )?
Модуль WinCrt нужен или простым Crt обойтись можно?
Вернуться к началу Перейти вниз
Посмотреть профиль
RaZeR
base.Spawn(new RaZeR(1.0f));
avatar

Сообщения : 1316
Дата регистрации : 2010-07-28
Откуда : null
0 1 0
0 0 1
1 1 1

СообщениеТема: Re: Утопающий просит помощи!   Ср 16 Мар - 15:04

Qimaen_1995 пишет:

Решает всё верно. Дело в индусисме сборщика?

№2
Как заставить программу выходить (продолжать работу) при нажатии ОПРЕДЕЛЁННОЙ клавиши (Any key и Enter уже освоил)) )?
Модуль WinCrt нужен или простым Crt обойтись можно?

Проверил в FPC 2.4.2 - всё корректно работает. Значит, дело в сборщике ТурбоПаскаля. Флаги оптимизации какие-либо выставлены?

№2
Можно обойтись и crt.
Код:

var
  key: char;

...

repeat
...
key:= ReadKey
until key <> 'a';
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
Qто-то
Raw Byte Interactive
Raw Byte Interactive
avatar

Сообщения : 619
Дата регистрации : 2010-07-29
Откуда : Прага



СообщениеТема: Re: Утопающий просит помощи!   Ср 16 Мар - 17:17

Нене, не работает - всё равно выпадает на эникей. Исходники кинуть?
Вернуться к началу Перейти вниз
Посмотреть профиль
RaZeR
base.Spawn(new RaZeR(1.0f));
avatar

Сообщения : 1316
Дата регистрации : 2010-07-28
Откуда : null
0 1 0
0 0 1
1 1 1

СообщениеТема: Re: Утопающий просит помощи!   Ср 16 Мар - 19:11

Qimaen_1995 пишет:
Нене, не работает - всё равно выпадает на эникей. Исходники кинуть?
Давай, поглядим-с)
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
Falcon
RaZeR.Drop_ob_table(Golovoy);
avatar

Сообщения : 1435
Дата регистрации : 2010-07-28
Откуда : Хабаровск
Totally approved.

СообщениеТема: Re: Утопающий просит помощи!   Ср 16 Мар - 21:21

Райз, Ошибка в формировании условия
Until <Верное_условие>
А у тебя
a<>c
Т.е.
Повторяем
Считали букву Е
а<>е? Да - Выходим


Код:
Program Indusachim;
uses crt;
Var
    key:char;
Begin
      while key<>'c' do
            begin
                writeln('Здесь могла быть ваша программа');
                key:=readkey;
            end;
End.

- Случай если, при нажатии не той кнопки, программа начнёт работу заново.

Код:
Program Indusachim;
uses crt;
Var
    key:char;
Begin
        Writeln('Здесь могла быть ваша программа');
        key:='o'; \\WTF!
        while key<> 'c' do
        key:=readkey;
End.
- Случай когда прога тупо не выпустит без нужной Клавиши. Но прога выполнится один раз. После школы приду - проверю

А цикл Рипит Унтил я принципиально не юзаю.)
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
Qто-то
Raw Byte Interactive
Raw Byte Interactive
avatar

Сообщения : 619
Дата регистрации : 2010-07-29
Откуда : Прага



СообщениеТема: Re: Утопающий просит помощи!   Чт 17 Мар - 14:37

А чем он хуже Do-While'a?
Вернуться к началу Перейти вниз
Посмотреть профиль
RaZeR
base.Spawn(new RaZeR(1.0f));
avatar

Сообщения : 1316
Дата регистрации : 2010-07-28
Откуда : null
0 1 0
0 0 1
1 1 1

СообщениеТема: Re: Утопающий просит помощи!   Чт 17 Мар - 17:37

Qimaen_1995 пишет:
А чем он хуже Do-While'a?
Я честно говоря вообще код с гугла запостил, я его не проверял.
Кстати, действительно, чем он плох?
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
Falcon
RaZeR.Drop_ob_table(Golovoy);
avatar

Сообщения : 1435
Дата регистрации : 2010-07-28
Откуда : Хабаровск
Totally approved.

СообщениеТема: Re: Утопающий просит помощи!   Чт 17 Мар - 21:17

рипит унтил ВСЕГДА выполнится хотя бы один раз, что не всегда нужно. К нему сложнее формировать условие. К тому же Вайл гораздо понятнее при поиске ошибок.

Код то работает?
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
RaZeR
base.Spawn(new RaZeR(1.0f));
avatar

Сообщения : 1316
Дата регистрации : 2010-07-28
Откуда : null
0 1 0
0 0 1
1 1 1

СообщениеТема: Re: Утопающий просит помощи!   Пт 18 Мар - 8:45

Falcon пишет:
Код то работает?
Работает.

Мой тоже работает - там вместо <> надо было = написать:
Код:

var
  key: char;

...

repeat
...
key:= ReadKey
until key = 'a';
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
Falcon
RaZeR.Drop_ob_table(Golovoy);
avatar

Сообщения : 1435
Дата регистрации : 2010-07-28
Откуда : Хабаровск
Totally approved.

СообщениеТема: Re: Утопающий просит помощи!   Пт 18 Мар - 9:12

Я про это и говорил
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
Falcon
RaZeR.Drop_ob_table(Golovoy);
avatar

Сообщения : 1435
Дата регистрации : 2010-07-28
Откуда : Хабаровск
Totally approved.

СообщениеТема: Re: Утопающий просит помощи!   Сб 19 Мар - 6:29

Утоппающий спасён? >=)
Вернуться к началу Перейти вниз
Посмотреть профиль http://rawbyte.forum2x2.ru/
Qто-то
Raw Byte Interactive
Raw Byte Interactive
avatar

Сообщения : 619
Дата регистрации : 2010-07-29
Откуда : Прага



СообщениеТема: Re: Утопающий просит помощи!   Сб 19 Мар - 19:28

Спасение утопающих - дело рук самих утопающих (с). А вообще наверняка будут ещё вопросы, так что тред пока лучше не закрывать
Вернуться к началу Перейти вниз
Посмотреть профиль
Спонсируемый контент




СообщениеТема: Re: Утопающий просит помощи!   

Вернуться к началу Перейти вниз
 

Утопающий просит помощи!

Предыдущая тема Следующая тема Вернуться к началу 
Страница 1 из 1

Права доступа к этому форуму:Вы не можете отвечать на сообщения
RawByte Interactive :: Беседка :: Offtopic-
Перейти:  
Создать форум | © phpBB | Бесплатный форум поддержки | Контакты | Сообщить о нарушении | Blog2x2.ru