$mymetatags$
delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Умножение чисел - Форум
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: winxaker  
Форум » Программирование » Вопросы по Delphi » Умножение чисел (Не работает программа умножения двух чисел)
Умножение чисел
komolov3002Дата: Четверг, 28.07.2011, 23:58 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 5
Награды: 0
Репутация: 0
Статус: Offline
Переделывал стандартную программу
Вроде бы все правильно - но не работает. Точнее работает но пишет либо Х либо ошибку. Нужно что бы одно число умножалось на другое. Ввод данных через поле ввода. Оба числа дробные, одно из них меньше единицы.
Я так подозреваю заморочка с типом переменных. Уже пробовал разные. Но "Воз и ныне там"
Подскажите пожалуйста. Заранее благодарен!

unit pokupka_1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Label3: TLabel;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

// подпрограмма
procedure Raschet;
var
a: real;
b: real;
c: real;
mes: string[255]; // сообщение
begin
a := StrToFloat(Form1.Edit1.Text);
b := StrToInt(Form1.Edit2.Text);
c := a * b;

mes := mes+ 'Пробег: '
+ FloatToStrF(c,ffgeneral, 8, 4) +' км.';
Form1.Label3.Caption := mes;
end;

// щелчок на кнопке Расчет
procedure TForm1.Button1Click(Sender: TObject);
begin
Raschet; // Скорректировать
end;
end.
 
AiX2011Дата: Пятница, 29.07.2011, 22:00 | Сообщение # 2
Лейтенант
Группа: Пользователи
Сообщений: 51
Награды: 1
Репутация: 2
Статус: Offline
Эмммм... В работе со строками я не силен, но подумаем)))))

Добавлено (29.07.2011, 22:00)
---------------------------------------------
Вот на почитай статью на моем сайте, думаю поможет ссылка на статью тут Если что не поймешь пиши либо там в комментах, либо сюда)))


Сайт посвященный программированию в среде Delphi. Вопросы по Delphi и HTML на форуме
 
komolov3002Дата: Пятница, 29.07.2011, 22:05 | Сообщение # 3
Рядовой
Группа: Пользователи
Сообщений: 5
Награды: 0
Репутация: 0
Статус: Offline
AiX2011, Просто злит. Примитив. Казалось бы что может быть проще - одно число на другое. Но... не ладится...
 
AiX2011Дата: Пятница, 29.07.2011, 22:25 | Сообщение # 4
Лейтенант
Группа: Пользователи
Сообщений: 51
Награды: 1
Репутация: 2
Статус: Offline
Да я тебя прекрасно понимаю.... Вроде бы легче не бывает... Это просто из того что не целое число... Другую функцию надо использывать.. В статье все сам поймешь

Сайт посвященный программированию в среде Delphi. Вопросы по Delphi и HTML на форуме
 
Форум » Программирование » Вопросы по Delphi » Умножение чисел (Не работает программа умножения двух чисел)
  • Страница 1 из 1
  • 1
Поиск:

 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432