Вниз
Скачать: CL | DM;

Срочно   Найти похожие ветки 

← →
Ильдар ©   (2007-09-24 19:23) [0]

Люди нужна помощь срочно до завтра. Вопрос такой есть 2 переменные типа Strung первая "100" вторая "M" надо каким то образом их перемножить чтобы результат был 100M


← →
Anatoly Podgoretsky ©   (2007-09-24 19:33) [1]

> Ильдар  (24.09.2007 19:23:00)  [0]

Числа на буквы умножать нельзя.


← →
Ильдар ©   (2007-09-24 19:42) [2]

Я понимаю но может как то можно обойти дело в том что делаю программу решения симплекс метода и при вычислении M+1 строки нужно M переумножать с числом


← →
Kolan ©   (2007-09-24 20:05) [3]

> "100" вторая "M"


> чтобы результат был 100M

S := "100" + "M";


← →
Ильдар ©   (2007-09-24 20:25) [4]

Дело в том что это всё идет по циклу и вместо М может попасться число и их надо будет перемножить


← →
Kolan ©   (2007-09-24 20:30) [5]

> [4] Ильдар ©   (24.09.07 20:25)
> Дело в том что это всё идет по циклу и вместо М может попасться
> число и их надо будет перемножить

var
 I, Val: Integer;
begin  
 for I := 0 to 10 do
   if TryStrToInt(Val) then
     100*Val;
&#133


ЗЫ
 Очередной идиотизм&#133


← →
Однокамушкин   (2007-09-24 20:31) [6]

Сначала с помощью TryStrToInt (или TryStrToFloat, если числа могут быть нецелыми) проверяете, являютлся ли строки числами, и если да, перемножаете числа и получаете из результата строку с помощью IntToStr, если же хотя бы одно из них не число, то просто складываете строки


← →
ggg   (2007-09-24 20:33) [7]

>> [1]
А что за тип такой "Strung"? о_О


← →
Юрий Зотов ©   (2007-09-25 01:37) [8]

> нужна помощь срочно до завтра

Увы, это невозможно.


← →
Германн ©   (2007-09-25 01:41) [9]


> Kolan ©   (24.09.07 20:30) [5]

И кто ж тебя учил такому:

> var
>  Val: Integer;
>



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c
15-1190563931
ProgRAMmer Dimonych
2007-09-23 20:12
2007.10.21
Поддскажите, плз, самое простое и быстрое решение...


3-1181812956
Antoneiro
2007-06-14 13:22
2007.10.21
DATASET в EXCEL/XML и обратно


2-1190972872
Riply
2007-09-28 13:47
2007.10.21
FreeLibrary для самой себя из APC-нити


2-1190864983
DevilDevil
2007-09-27 07:49
2007.10.21
Hint в произвольном месте. Помогите пожалуйста.


2-1191147505
Nikfel
2007-09-30 14:18
2007.10.21
Как получить список дисков с обозначениями.




   Наверх