Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];

Вниз

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

 
Ильдар ©   (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 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.073 c
2-1191273430
San1712
2007-10-02 01:17
2007.10.21
Как программно менять обои на рабочем столе ?


11-1174071703
AnalogXP
2007-03-16 22:01
2007.10.21
Нужна маленькая программа


2-1190906832
hinst
2007-09-27 19:27
2007.10.21
Прямоугольник текста


15-1190126267
alex_ant
2007-09-18 18:37
2007.10.21
Автопроверка тестов модулей для D7


2-1191036769
Arkadiy
2007-09-29 07:32
2007.10.21
числа в строковом поле





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский