Chefranov
@Chefranov
Front-End, Back-End

Как корректно перенести код с qBasic на VB.NET?

Имеется код
10 T1=2343:T2=2403:T3=1808:T4=1820
20 N1=9:N2=7:N3=11:N4=34
205 X2=0:PP=1:EEE=.0001
215 PP=PP/10
220 X2=X2-PP
230 X3=EXP(N3*(1-T3*(1-LOG(X2)/N2)/T2))
240 X1=EXP(N1*(1-T1*(1-LOG(X2)/N2)/T2))
245 X4=EXP(N4*(1-T4*(1-LOG(X2)/N2)/T2))
250 Y=X1+X2=X3+X4-1
260 IF ABS(Y)<EEE THEN GOTO 355 ELSE 270
270 IF Y<0 THEN GOTO 220 ELSE 290
290 X2=X2-PP:GOTO 215
355 TT1=T1/(1-LOG(X1)/N1)
372 PRINT TAB(12);"X1";:PRINT TAB(22); "X2";:PRINT TAB(32);"X3";:PRINT TAB(42);"X4";:PRINT TAB(54);"Тэвт.4"
375 PRINT TAB(12);:PRINT USING "#.####";X1;
377 PRINT TAB(22);:PRINT USING "#.####";X2;
379 PRINT TAB(32);:PRINT USING "#.####";X3;
381 PRINT TAB(42);:PRINT USING "#.####";X4;
385 PRINT TAB(54);:PRINT USING "#.####";TT1;
400 END

Есть необходимость переписать на VB.NET. Смущают строки с GOTO я в них путаюсь, я так понимаю должны быть циклы (один или два).
  • Вопрос задан
  • 22 просмотра
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы