Переменные REAL

[Terabit]

Сорри если тема уже поднималась.
Есть переменная типа REAL - результат деления. Вопрос в том, чтобы в результате не было лишних нулей. Что и куда нужно вписать.

[puporev]

writeln('y=',y:0:0). Не будет вообще знаков после запятой. Если вместо второго ноля написать другое число, то столько знаков и будет после запятой.

[Terabit]

puporev это понятно, но мне нужно чтобы оно само определяло скоко нужно знаков после запятой и стоко писало. Возможно ли это?

[puporev]

В Делфи, в модуле Math есть функция по-моему RoundTo. В Паскале такой нет, но можно написать самому. Интересно, а кто это ОНО САМО?

[Terabit]

Ладно, это понятно. Теперь другой вопрос. Есть несколько циклов, один на сложение, другой на вычитание. Нужно чтобы при Х=1 выполнялось ток сложение, а при Х=2 - вычитание. Как это сделать?

[puporev]

Не знаю что у тебя до этого, не телепат, но примерно так:
case x of
1:сложение;
2:вычитание;
end;

[Terabit]

Сообщение от 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.
Можете написать исходный код? Дело в том, что я в програмировании недавно.

[pascal65536]

Сообщение от Terabit

Можете написать исходный код? Дело в том, что я в програмировании недавно.

Давай будем учить самостоятельно разбираться. С книжкой и блокнотом.

[Terabit]

С какой именно книжкой?

[puporev]

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

А если х другое, и почему х:real; если х - целое?
Короче задание давай полностью и точное слово в слово, хватит в угадайку играть.