VB + Real + pascal

[5190]

Знаете в VB есть всё: есть integer, double, single... НО в нём нету real'a, почему и как исправить? Мне нужно простенькую задачку из паскаля в VB перевести и ничего путного из-за отсутствия real'a не получается.

паскаль:

Код: Выделить всё

   var
      x, y :real;

begin
   writeln('enter X:');
   readln(x);
   y := sin(x);
   writeln('sin x = ',y:40);
readln;


PS никто не знает как истолковать y:40 в бэйсике?

[tyomitch]

замени real на Double, и всё у тебя получится

[5190]

хорошо, а как быть с y:40 - это отвечает за то, что для вывода переменной y отводится 40 позиций, хотелось бы также красиво, как и в паскале.

[5190]

Ничего путного не полцчилось кстате, я пробовал уже и doouble и прочие варианты. Например лёгкий код на паскале:

Код: Выделить всё

   var
      x, y :real;

begin
   writeln('enter X:');
   readln(x);
   y := sin(x);
   writeln('sin x = ',y);
readln;


(я убрал y:40, оставил просто y)

теперь переписал его на VB

Код: Выделить всё

Dim x, y As Double
x = CDbl(Text1.Text)
y = Sin(x)
Text2.Text = CStr(y)


Результаты работы: вводим 1 в откомпилированную паскалевскую прогу, получаем:
8,41470984807529E-0001


ввожим 1 в откомпилированную VB прогу, получаем:
0,841470984807897

[GB826]

Результаты работы: вводим 1 в откомпилированную паскалевскую прогу, получаем:
8,41470984807529E-0001


ввожим 1 в откомпилированную VB прогу, получаем:
0,841470984807897

А в чем разница? Кроме представления, да и вообще второй вариант мне больше нравицца.

Если у тя оконное приложение, зачем тут форматированный вывод?

[5190]

GB826, понимаешь в чём прикол, не мне это нужно если б себе я бы оставил всё как есть, но необходимо получить результат в точности повторяющий результат работы ппаскалевской проги.

[Faust]

real - отстой! Результат, который тебе выдал VB, просто точнее.
ЗЫ. Правда, насколько я помню, стандартные тригонометрические ф-ции Паскаля используют именно real... Но если найдешь варианты, работающие с типом extended, используй его.

[tyomitch]

хорошо, а как быть с y:40 - это отвечает за то, что для вывода переменной y отводится 40 позиций, хотелось бы также красиво, как и в паскале.

Вопрос-то в чём? Как добить пробелами строку до 40 символов?

Код: Выделить всё

Text2.Text = Right(Space(40) & y, 40)


[5190]

Господа, я так понимаю, что никто не знает способа превращения числа в необходимый мне вид? Это же ужас, я не верю в такое. Почему pascal высчитывает это чило так, а VB по другому...

[Viper]

На один пост выше своего последнего посмотри+глянь на справку функции Format. С ее помощью число можно вывести в любом виде, хоть с вышивкой цветочками вокруг

[5190]

Да нет же, тут дело уже даже не в сорока символах. Просто дело в том, как мне выше объяснили, что VB считает мой синус точнее и у него получается просто какое-то большое число. А вот паскаль, выдаёт со степенью 8.4 .... E-0001. Вот в этом и заключается тупость, я не понимаю, почему VB не может выдать в паскалевском формате? Неужто такие проблемы только у меня.

[Viper]

Тебе надо чтоб было выведоно в виде 8.4...E-0001? Ессли да, то команда Format. Представление числа в памяти не меняется от того как его выести на экран...

А вот если тебе надо чтоб число вычислялось с паскалевской точностью то тогда не судьба...

[tyomitch]

Код: Выделить всё

Debug.Print Format(Sin(1), "0.00000000000000E-0000")

[alibek]

* с ностальгией вспоминая PRINT USING... *

[Faust]

Вот в этом и заключается тупость, я не понимаю, почему VB не может выдать в паскалевском формате?

real - отстой!

Не иначе, Вирту было божественное откровение, когда он решил включить в состав поддерживаемых Паскалем типов данных этого монстра (чтобы понять, почему я так отношусь к этому формату, можешь почитать, как он устроен). Я не знаю других языков, где бы поддерживался его аналог. VB - не исключение. Так что "дословно" перевести твой код с Pascal на VB не удастся.