wmmail.ru – cервис почтовых рассылок на главную
написать письмо
карта сайта

С чего начать?РекламодательПравилаFAQСтатистикаБиржа статейTOP100ФоткиКонтакты
Логин:
Пароль: 
Регистрация   Забыли пароль?
WMLogin
Пользователей всего:

515439

Пользователей сегодня:

76

Пользователей online:

139

Выплачено ($): 7`611`494,64
Выплат: 8`120`722
Писем прочитано: 1`024`989`872

 
 
Online 7
Все ответы
 
 

Тема #230091

Внимание! В разделе запрещается:

  • Мат (оскорбления)
  • Частично реклама
  • Нарушение законодательства РФ
  • Попрошайничество и просьбы одолжить деньги, кредиты или монеты

Выделите текст и нажмите для цитирования  #  
+4   [09.06.2014 19:37] #721129

Закрытая тема от пользователя у меня такой вопрос, delphi - pascal

Можно ли этот код конвертировать из delphi в pascal?

Код Delphi
procedure TForm1.Button1Click(Sender: TObject);
function st(a,b:real):real;
begin
a:=Strtofloat(Edit1.Text);
b:=Strtofloat(Edit2.Text);
end;
Var a,b,s:real;
begin
s:=st(a,b);
s:=exp(b*ln(a));
Edit3.Text:=Floattostr(s);
end;
end.

[реклама]
Раздел: Другое, последний комментарий: 09.06.2014 19:55
Тема закрыта пользователем Ryslan777
Проголосовали: john_entony, Leshiy83, #1542459, #1671696
Ответы
Ответов всего: 7  тема закрыта 
Выделите текст и нажмите для цитирования  #  
+1   [09.06.2014 19:38] john_entony Рейтинг 1542.46     Стена пользователя john_entony +266  Все ответы пользователя john_entony

зелень для решения этой задачи! :smok:
Проголосовали: #721129
Выделите текст и нажмите для цитирования  #  
0   [09.06.2014 19:39] maksimax Рейтинг 6802.44     Стена пользователя maksimax +310  Все ответы пользователя maksimax

БЕЗ ПОНЯТИЯ!!!
Выделите текст и нажмите для цитирования  #  
0   [09.06.2014 19:40] #950088   Все ответы пользователя

#721129 пишет undefined

:shocking:
Выделите текст и нажмите для цитирования  #  
0   [09.06.2014 19:40] ser555ega Рейтинг 1936.27     Стена пользователя ser555ega +151  Все ответы пользователя ser555ega

john_entony пишет зелень для решения этой задачи! :smok:

:unsure:
Выделите текст и нажмите для цитирования  #  
+1   [09.06.2014 19:41] Leshiy83 Рейтинг 1736.70     Стена пользователя Leshiy83 +54  Все ответы пользователя Leshiy83

только зелень )
Проголосовали: #721129
Выделите текст и нажмите для цитирования  #  
+1   [09.06.2014 19:51] #1542459   Все ответы пользователя

зелень!!
Проголосовали: #721129
Выделите текст и нажмите для цитирования  #  
+1   [09.06.2014 19:55] #1671696   Все ответы пользователя

#721129 пишет Можно ли этот код конвертировать из delphi в pascal?


Можно.
Не могу понять, функция нажатия кнопки, определяет умножения поля b на In(а). В третьем поле выводится значение, при нажатии кнопки. А зачем для вывода значения, вы используете поле ввода Edit3, а не обойтись просто меткой Label?
Проголосовали: #721129

НОВОСТИ
19.04.2024Технические работы с СБП
подробнее>>
03.04.2024Выплаты
подробнее>>

© 2004-2024 «WMMAIL» Пользовательское соглашение