программирование в среде Visual basic

[xDmitry_x]

Здравствуйте уважаемые программисты! обращаюсь к вам с просьбой о помощи решить задачу.условия таковы:Длина некоторого отрезка пути составляет P километров.Перевести длину в обычную и морскую мили.
1 миля=1,609км
1 морская миля=1,852км
заранее признателен!

[Utkin]

Ну собственно где вопрос-то? Для мили Р/1,609, для морской Р/1,852

[NSvirus]

program abc;
var i:integer;
begin
 write('kol-vo kilom? ');
 readln(i)
 write('v mil9x=',i/1.609,', v morskix mil9x=', i/1.852)
end.

[Utkin]

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

program abc;
var i:integer;
begin
 write('kol-vo kilom? ');
 readln(i)
 write('v mil9x=',i/1.609,', v morskix mil9x=', i/1.852)
end.

Это явно не басик .

[xDmitry_x]

дело в том,что никогда не практиковал в вижуал бейсик =/ незнаю ни операторов ничего другого,Спасибо за предоставленную информацию.NSvirus, это разве не на паскаль?

[Utkin]

Ну так скачай учебник и посмотри учебные примеры. Ты быстро освоишься - это очень простое задание, примерно столько же строк сколько и на паскале будет.

[xDmitry_x]

я читал, но времени уже нет совсем.

за небольшую плату оформите?плз

[.Phoenix]

Добавь на форму 3 компонента Text и кнопку
По нажатт на кнопку напиши:

Dim i as Integer
i=val(Text1.Text) 'преобразуем строку в число
Text2.Text=str(i/1.609)
Text3.Text=str(i/1.852)

Если с выводом результатов будет не получатся попробуй так:

Form1.Print ('v mil9x=',i/1.609,', v morskix mil9x=', i/1.852)

И мой совет, почитай Visual Basic

[New Art]

Здравствуйте, мы готовы вам помочь, сделав как лучше программирование так и дизайн, вы получите интересную программу пишите на маил reaminator88@mail.ru или на сайте:
http://n-art.co.cc

[xNut]

стучите мне в ICQ