К тем, кто разбирается в Труботаскале:
Помогите, плиз, кто знает, как отбросить экспонент в вещественных переменных паскаля. А то меня этот 1.000000000Е0 вместо элементарной единички уже достал. А Гугл по этому поводу либо молчит, либо выдаёт вещи столь ужасные, что найти там именно убийцу экспонента просто невозможно. Округление и целая часть не нужны - с десятичными дробями это не провернёшь. Может быть, есть округление до значащей цифры номер n?
Возможно, это будет не последний вопрос.
ЗЫ - Может быть, дабы не плодить кучу лишних тем, все будут подобные вопросы сюда скидывать?

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

Цитата :

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

Т.е.:

Код:

var
  num : real;

....
num = 10/3;
writeln(num:2:2);
...

Должно вывести 3,33 (3,34?), вроде бы.

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

Код:

...;
writeln(10/3:5:3)

Я до паскаля не дотрагивался уже месяца три

А у нас он каждый день(

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 обойтись можно?

Qimaen_1995 пишет:

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

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

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

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

Код:

var
  key: char;

...

repeat
...
key:= ReadKey
until key <> 'a';

Нене, не работает - всё равно выпадает на эникей. Исходники кинуть?

Qimaen_1995 пишет:

Нене, не работает - всё равно выпадает на эникей. Исходники кинуть?

Давай, поглядим-с)

Райз, Ошибка в формировании условия
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.

- Случай когда прога тупо не выпустит без нужной Клавиши. Но прога выполнится один раз. После школы приду - проверю

А цикл Рипит Унтил я принципиально не юзаю.)

А чем он хуже Do-While'a?

Qimaen_1995 пишет:

А чем он хуже Do-While'a?

Я честно говоря вообще код с гугла запостил, я его не проверял.
Кстати, действительно, чем он плох?

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

Код то работает?

Falcon пишет:

Код то работает?

Работает.

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

Код:

var
  key: char;

...

repeat
...
key:= ReadKey
until key = 'a';

Я про это и говорил

Утоппающий спасён? >=)

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