Комплексные числа, нужен мидлет Поделиться Опции

[Serg___]

Ув. разработчики приложений для телефона, огромная просьба помочь!
Завтра экзамен по ТОЭ, нужна программа для перевода комплексных чисел. Паскаль аналог:

Код

Var a,b:real;
BEGIN
Writeln('Enter a,b');
Readln(a,b);
Writeln(SQRT(a*a+b*b),' e^(j ',arctan(b/a)/Pi*180,' )');
Writeln(a*cos(b*Pi/180),'   +j ',a*sin(b*Pi/180));
Readln
END.

Программа должна запрашивать 2 числа и выводить ответ и так желательно в цикле.
Может кто-то сделать такое для телефона?

[grafmoto]

Serg___,
за день до экзамена о таких весчах не просят:
SQRT(a*a+b*,' e^(j ',arctan(b/a)/Pi*180
a*cos(b*Pi/180),' +j ',a*sin(b*Pi/180)
хотя вроде был какой-то супер-пупер кулькулятор, но за ненадобностью я о нем ничего не знаю
ЗЫ. кста, я тожа когда-то ТОЭ сдавал, меж прочим на пять баллов (на последнем курсе телеграфные уравнения вроде был билет) ))

[Stalker.mg]

Serg___,
хм, знаешь паскаль но не знаешь яву, MidletPascal тебе в помощь

[Serg___]

Stalker.mg,
СПАСИБО!!!
Сейчас сижу, разбираюсь в этой супер-программе! Даже не думал, что такая программа возможна

[Serg___]

Вот что получилось:

Код

program TOE;
var  
 stringID, a, b, ID: integer;
 a1, b1:real;
 S:String;
 cmdQuit, cmdExe, clicked : command;
begin
 ShowForm;
 // add some elements    
 stringID := FormAddString('Комплексные числа');
 a := FormAddTextField('Enter a', '', 10, TF_ANY);
 b := FormAddTextField('Enter b', '', 10, TF_ANY);
 ID:= FormAddString('Ты сдашь экзамен по ТОЭ на ПЯТЬ! Удачи!!!');
 // create commands
 cmdQuit := CreateCommand('Quit', CM_EXIT, 1);
 AddCommand(cmdQuit);
 cmdExe := CreateCommand('Exe', CM_SCREEN, 1);
 AddCommand(cmdExe);
 repeat
   clicked := GetClickedCommand;
   a1:=StringToReal(FormGetText(a),10);
   b1:=StringToReal(FormGetText(b),10);
   if clicked = cmdExe then
     Begin
       ShowCanvas;
       SetColor(255, 255, 255);              // set the drawing color to white
       FillRect(0, 0, GetWidth, GetHeight);  // erase the screen by drawing a
                                             // rectangle as big as display
       SetColor(0, 0, 0);                    // set the drawing color to black
       S:=' '+(SQRT(a1*a1+b1*b1))+' e^(j ';
       DrawText(S,0,0);
       S:='  '+(atan(b1/a1)/3.1415926535897932384626433832795*180)+' )';
       DrawText(S,0,20);
       S:=' '+(cos(b1*3.1415926535897932384626433832795/180)*a1);
       DrawText(S,0,60);
       S:='  '+'+j '+(a1*sin(b1*3.1415926535897932384626433832795/180));
       DrawText(S,0,80);
       while GetKeyClicked <> KE_STAR do Repaint;
       ShowForm;
     End;                              
 until clicked = cmdQuit;
End.

Ещё раз спасибо Stalker.mg за облегчение экзамена

Выложу, а вдруг кому-то пригодится=)

[grafmoto]

млин, парни, круть чё раньше не сказали, кто кодит на ява-паскале, что там есть класс Real.class для работы с вещественными числами?

[Valleo]

странно что ты этого не знал =)
тема закрыта =)