Напишите программу для следующей задачи: Компьютер спрашивает названия двух планет, радиусы их орбит (в миллионах километров) и скорости движения по орбите (в миллионах километров в сутки). Компьютер вычисляет продолжительность года на планетах и выдает результат в таком виде: Продолжительность года на планете Земля – 365 суток.
в общем я её написал и роде бы всё правильно сдела. Но начались проблеммы с отображением чисел.
Код
VAR imya,otvet,plan :String;
R,V,S :Real;
BEGIN
WriteLn('скажите название планеты');
ReadLn('plan');
WriteLn('Какой радиус орбиты планеты?');
ReadLn(R);
WriteLn('какая скорость планеты км/сутки');
ReadLn(S);
V:=2*Pi*R/S);
WriteLn('Продолжительность года на планете ',plan,' – ',V,' суток');
ReadLn
END.
R,V,S :Real;
BEGIN
WriteLn('скажите название планеты');
ReadLn('plan');
WriteLn('Какой радиус орбиты планеты?');
ReadLn(R);
WriteLn('какая скорость планеты км/сутки');
ReadLn(S);
V:=2*Pi*R/S);
WriteLn('Продолжительность года на планете ',plan,' – ',V,' суток');
ReadLn
END.
в общем R=150000000
S=2609280
а в итоге мне почему то выдаётся ответ
Цитата
3.61202245859754Е+0002
я всё могу понять но не могу понять почему происходит какая то непонятка а именно стоит точка после трёх(т.е. наша земля вращается за трое суток!) уже два дня сижу над этой ошибкой думаю что я не так делаю подскажите это моя первая прога вообще.