| Автор | Программирование Delphi |
|---|
+ IntToStr(a*c) * '1,2' else
тут пишет мне
[Error] Unit1.pas(46): Operator not applicable to this operand type
сначала умножай, потом переводи. |
для Mangecu:
ты строку IntToStr(a*c) умножаешь на строку '1,2' )))
если результат надо умножить на 1.2, то IntToStr(a*c*1.2)
Прочти о типах переменных, преобразование типов |
[Error] Unit1.pas(46): Operator not applicable to this operand type
Аррр...
Мне короче надо чтобы когда Иф б=6/7 тогда лабелкаптион= а*с*1,2. Он не воспринимает умножение на 1,2. |
для Mangecu:
вместо запятой поставь точку
1,2 1.2 |
для Anaremix:
у меня точка. это я тут просто написал запятую.
If b=6 then Label4.caption:='Ñòîèìîñ 2;ü ðàçãîâîðà: ' + IntToStr(a*c*1.2) else
If b=7 then Label4.caption:='Ñòîèìîñ 2;ü ðàçãîâîðà: ' + IntToStr(a*c*1.2) else |
| Да не поможет, после 1.2 местами действительные числа выходят, а это уже floattostr....вообще как будто первый день делфи учишь (: |
| Точно, епрст, ты ж целый тип юзаешь |
для Somefreeknight:
реально всего месяц. Мне короче написать задачу:
Написать профамму определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям.
Вот то что я напечатал.
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=2;
If b=1 then Label4.caption:='Стоимость разговора: ' + IntToStr(a*c) else
If b=2 then Label4.caption:='Стоимость разговора: ' + IntToStr(a*c) else
If b=3 then Label4.caption:='Стоимость разговора: ' + IntToStr(a*c) else
If b=4 then Label4.caption:='Стоимость разговора: ' + IntToStr(a*c) else
If b=5 then Label4.caption:='Стоимость разговора: ' + IntToStr(a*c) else
If b=6 then Label4.caption:='Стоимость разговора: ' + IntToStr(a*c*1.2) else
If b=7 then Label4.caption:='Стоимость разговора: ' + IntToStr(a*c*1.2) else
end;
end.
Что не так? у меня уже мозги кипят. Я над этими задачи реально 5 часов уже сижу =___= |
А вообще, автору на будущее, если действительно хочешь учить такое, то на заметку
If c=1 then Label4.caption:='Стоимость разговора: ' + 'a*c' else
If c=2 then Label4.caption:='Стоимость разговора: ' + 'a*c' else
If c=3 then Label4.caption:='Стоимость разговора: ' + 'a*c' else
If c=4 then Label4.caption:='Стоимость разговора: ' + 'a*c' else
If c=5 then Label4.caption:='Стоимость разговора: ' + 'a*c' else
If c=6 then Label4.caption:='Стоимость разговора: ' + 'a*c*1.2' else
If c=7 then Label4.caption:='Стоимость разговора: ' + 'a*c*1.2' else
так вот писать дико потому что есть куча логических операторов которые делают код меньше и читабельнее. if (c=2) or (c=3) or ... or (c=n) then бла бла меньше и лучше, как пример. |
| Голова не варит под вечер, элементарщину пропускаю, так что я все. |
Что не так?
If b=6 then Label4.caption:='Стоимость разговора: ' + FloatToStr(a*c*1.2) else
If b=7 then Label4.caption:='Стоимость разговора: ' + FloatToStr(a*c*1.2); |
для Somefreeknight:
Огромное человеческое спасибо. Наконец-то пошло все. |
| Кстати чтобы вообще не позорится если ты кому то это еще показывать будешь, то напиши a*c*0.8 потому что скидка 20% и надбавка 20% это разные вещи) |
для Somefreeknight:
я это уже исправил :Р Когда врубил то понял что цена почему то выше а не ниже хD |
для Somefreeknight:
А эти можешь помочь сделать?
1) Написать программу решения квадратного уравнения. Программа должна проверять правильность исходных данных и в случае, когда коэффициент при второй степени неизвестного равен-нулю, выводить соответствующее сообщение.
2) Написать программу, которая проверяет, является ли четным введенное пользователем целое число. |
| С меня будет элемент в подарок =) |
2) Написать программу, которая проверяет, является ли четным введенное пользователем целое число.
Это я сам решил.
А кто поможет с 1 задачей? |
| Все не надо. |
| тема закрыта by Mangecu (2011-11-23 21:29:02) |
|---|
