Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ада и другие языки _ Перевод кода

Автор: mitz 28.05.2009 19:43

Помогите, пожалуйста, перевести код Visual Basic в формат Visual C++ 6:

Задача: Разработать программу, осуществляющую оценку физического, эмоционального и интеллектуального состояния человека на основании гипотезы о биоритме. Считать, что начиная со дня рождения, состояние человека изменяется по синусоидальному закону с периодом, соответственно, 23 дня, 28 дней и 33 дня. Процедура должна осуществлять рас-чет синусоидальной функции для заданной текущей календарной даты, даты рождения и для каждого из значений периодов.

Не могу перевести данный код:

Код
ForeColor = RGB(255, 0, 0)
PSet (0, 95)
Print "Физический: " & Format(Sin(2 * 3.14159265358979 * (DateDiff("d", Date0, Date) + (Hour(Time) * 1 / 24) +
  (Minute(Time) * 1 / 60) / 100 + (Second(Time) * 1 / 60) / 10000) / 23.688437), "0.000 000%")
ForeColor = RGB(0, 205, 0)
PSet (0, 90)
Print "Эмоциональный: " & Format(Sin(2 * 3.14159265358979 * (DateDiff("d", Date0, Date) + (Hour(Time) * 1 / 24) +
  (Minute(Time) * 1 / 60) / 100 + (Second(Time) * 1 / 60) / 10000) / 28.426125), "0.000 000%")
ForeColor = RGB(0, 0, 255)
PSet (0, 85)
Print "Интеллектуальный: " & Format(Sin(2 * 3.14159265358979 * (DateDiff("d", Date0, Date) + (Hour(Time) * 1 / 24) +
  (Minute(Time) * 1 / 60) / 100 + (Second(Time) * 1 / 60) / 10000) / 33.163812), "0.000 000%")
ForeColor = RGB(255, 225, 0)
PSet (0, 80)
Print "Интуитивный: " & Format(Sin(2 * 3.14159265358979 * (DateDiff("d", Date0, Date) + (Hour(Time) * 1 / 24) +
  (Minute(Time) * 1 / 60) / 100 + (Second(Time) * 1 / 60) / 10000) / 37.901499), "0.000 000%")

Автор: volvo 28.05.2009 19:51

Куда это все печатается? Консоль? Окно?

Автор: Lapp 28.05.2009 20:08

Может, вот это сгодится?
http://forum.pascal.net.ru/index.php?showtopic=20691

Добавлено через 1 мин.
Упс, сорри. Не досмотрел про С++

Автор: mitz 28.05.2009 20:18

В общем, одну проблему решил, теперь возникла вторая: при открытии не работает график при нажатии кнопки "Расчёт" и не вводится дата рождения mad.gif

Помогите, пожалуйста, исправить ошибку. Файл прилагается.


Прикрепленные файлы
Прикрепленный файл  Projects.zip ( 15.67 килобайт ) Кол-во скачиваний: 197