VPF::Перевод из паскаля в делфи - Форум программистов

Morgann

Дата 9.1.2012, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 8.1.2012

Репутация: нет
Всего: нет

Еще один вопрос

Как сделать что бы когда пишешь число в edit1 оно умножалось на число (то что внутри записано) и писался ответ в edit2
я то пытался делать но число не писалось в edit2

ну в паскале у меня выглядит так:
Без подсветки

Код


Program dsd;
var
  b,c,f,a1,a2,a3,a: real;

begin
  writeln('a=');
  readln(a);
  b:= 5;
  a1:=a*b;
writeln('a1= ',a1:5:2);
readln;
end.

код то не сложный но в делфи не получается
"а" это едит1
"а1" это едит2

kami

Дата 9.1.2012, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Цитата(Morgann @ 9.1.2012, 21:16

)

код то не сложный но в делфи не получается

а как пытался?

Morgann

Дата 9.1.2012, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 8.1.2012

Репутация: нет
Всего: нет

Возможно бред но я пытался так

Код


procedure TForm4.Button1Click(Sender: TObject);
var
  a: LongInt;
  b,c,f,a1:real;


begin
  a:= StrToInt(Edit1.Text);
  b:= 5,1;
  a1:=a*b;

  edit2.Text:= Format(' ',[a1]);

end;

bems

Дата 9.1.2012, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Цитата(Morgann @ 9.1.2012, 22:11

)

5,1

это записывалось как 5.1 и в паскале тоже

Цитата(Morgann @ 9.1.2012, 22:11

)

edit2.Text:= Format(' ',[a1]);

функция Format используется не так. В данном случае тебе хватит edit2.Text := FloatToStr(a1);
Почему бы тебе не прочитать какой-нибудь учебник перед тем как постить на форум?

--------------------

Обижено школьников: 8

Morgann

Дата 9.1.2012, 22:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 8.1.2012

Репутация: нет
Всего: нет

Спасибо снова
Вот хочу купить , или можете посоветовать какой-то учебник?

Это сообщение отредактировал(а) Morgann - 9.1.2012, 22:57

bems

Дата 9.1.2012, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

вверху раздела прибита тема с книгами
http://forum.vingrad.ru/forum/topic-179930/view-all.html

--------------------

Обижено школьников: 8

northener

Дата 10.1.2012, 01:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Morgann @ 9.1.2012, 22:57

)

Спасибо снова
Вот хочу купить , или можете посоветовать какой-то учебник?

Хелп лучше учебника. smile

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »