СРОЧНО! ПОМОГИТЕ!

[fantomkiller]

Надо чтобы программа считала определенную функцию, ну там вводишь переменную А потом В и получаешь результат. будь это в паскале или С++ 5 минут бы заняло а так ищу инфу уже битй час и ничего вразумительного найти не могу. Напишите плиз исходник к А+В=С естественно чтобы А и В вводить при запуске программы и она выдавала С. Нужную функцию и кол-во переменных я уж сам поставлю. ПОМОГИТЕ плиз к утру надо((

[IGR]

программист, пресни ф1 !!

[Trazzy]

этот код можно значительно упростить, но все же:

program ProjectAZ;
var fld1, fld2, resl, rez, last1, last2: integer; 
    OKbtn, clicked: command;
 
procedure slozhenie;
begin
  ClearForm;
  ShowForm;
  OKbtn:=CreateCommand('OK', CM_SCREEN, 1);
  AddCommand(OKbtn);  
  SetFormTitle('Сложение'); 
  fld1:=formAddTextField('Введите A: ', integertostring(last1), 3, TF_NUMERIC);
  fld2:=formAddTextField('Введите B: ', integertostring(last2), 3, TF_NUMERIC);
  resl:=FormAddString('A+B='+integertostring(rez));
  repeat 
   clicked := GetClickedCommand; 
  until clicked <> EmptyCommand;
  last1:=stringtointeger(FormGetText(fld1));
  last2:=stringtointeger(FormGetText(fld2));
  rez:=last1+last2;
  slozhenie;
end;
 
begin
  slozhenie;
end. 


[fantomkiller]

Спасибо большое! Все сделал. У меня девушка просто работает в магазине, продает потолочные плитки. И ей сложно расчитывать сколько плиток надо на М2. Вот я и решил ей сделать програмку которая бы считала)

[impersonalis]

блджад, раньше подвиги совершали для девушек, а теперь даже прогу не могут сами написать (да и ТЗ сформулировать). Напрягись - и RTFM

[Tadeus]

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

блджад, раньше подвиги совершали для девушек, а теперь даже прогу не могут сами написать (да и ТЗ сформулировать). Напрягись - и RTFM

"Проблема с подвигами во имя женщин в том, что пока ты их совершаешь — женщину трахает кто–то другой." © am_baal [#263483]

Причем, видел эту цитату таки у тебя, да