Вниз  Delphi
<< 1 ... 13 14 15 16 17 ... 28 >>
- 13.12.2012 / 10:46
#224914
nuSunna
  Пользователь
nuSunna 
Сейчас: Offline
1JavaMods1, все правильно, мне нужно посчитать сколько букв именно r, e, k, что бы я в строку не вводила. Написала же, k=0, значит ее там нет.
TAPAHbl4, не поняла. Я делала так: объявляю три переменные, a=0, b=0, c=0 и в цикле if указываю, если a='r' then a=0+1 и т. д. но ничего не получается! Что не так? Может я записываю неправильно?
- 13.12.2012 / 11:23
#224915
nuSunna
  Пользователь
nuSunna 
Сейчас: Offline
Все, я поняла как их считать. Теперь осталось разобраться какая из них чаще встречается.
- 3.01.2013 / 16:45
#229983
Az@
  Пользователь
Az@ 
Все забыл блин. Не подскажете как подключиться к странице не загружая ее? В смысле просто отправить http запрос. На дельфи
- 3.01.2013 / 17:16
#229991
XakepPRO
  Модератор форума
XakepPRO 
Сейчас: Offline
Az@, просто отправить GET-запрос, но гугли. Тут еще можно воспользоваться стандартными компонентами, но зависит от IDE.
- 3.01.2013 / 18:16
#230017
Az@
  Пользователь
Az@ 
Хакер, спасибо
- 6.01.2013 / 08:04
#230461
Az@
  Пользователь
Az@ 
Тут одна вещь не получается. Нужно вывести косинус числа в градусах. Вот что я делаю (c в начале программы описана как переменная с типом real).
  1. procedure TForm1.Button2Click(Sender: TObject);
  2. begin
  3. c:=0.017453292519943295769236907684886;                                           // единица радиан
  4. Label1.Caption:=FloatToStr(Round((Cos(StrToFloat(Edit1.Text)))*c,5));   // округляем дабы не выскакивала экспонента вместо нуля на 90 градусах
  5. end;

Выскакивает ошибка
[Error] Unit1.pas(41): Undeclared identifier: 'RoundTo'
Хорошо, меняем:

  1. procedure TForm1.Button2Click(Sender: TObject);
  2. begin
  3. c:=0.017453292519943295769236907684886;                                           // единица радиан
  4. Label1.Caption:=FloatToStr(Round((Cos(StrToFloat(Edit1.Text)))*c,5));     // округляем дабы не выскакивала экспонента вместо нуля на 90 градусах
  5. end;

Ошибка
[Error] Unit1.pas(41): ')' expected but ',' found
Что делать? Может эту роунд подключать нужно? Если что у меня Delphi 7 Portable (7 мегабайт весит).
Сейчас попробую функцию Format
Открыть спойлер

Изменено Az@ (6.01 / 08:05) (всего 1 раз)
- 6.01.2013 / 08:17
#230463
Az@
  Пользователь
Az@ 
Вот, получилось!
  1. procedure TForm1.Button2Click(Sender: TObject);
  2.     var a: real;                                 // а это косинус угла бета
  3. begin
  4.   c:=0.017453292519943295769236907684886;        // радиусы и радианы
  5.   a:=cos((StrToFloat(Edit1.Text))*c);            // создание числа в градусах
  6.   Label1.Caption:=Format('%.6n',[a]);
  7. end;

Теперь нужно подумать как сделать, чтобы нули не выводились, если допустим число 0.5000
Ну эт уже не сложно будет)
- 6.01.2013 / 08:19
#230464
XakepPRO
  Модератор форума
XakepPRO 
Сейчас: Offline
Az@, Cos и Sin принимают значения в радианах. В общем, тебе надо найти функцию (DegToRad), которая переводит из градусов в радианы.
- 6.01.2013 / 15:19
#230521
Az@
  Пользователь
Az@ 
XakepPRO, спасибо, но в лайт версии этого нету. Сейчас качаю фулл, там вроде можно юниты подключать)
- 6.01.2013 / 19:06
#230540
dzanis
  Пользователь
dzanis 
Сейчас: Offline
DegToRad зачем? Переводится это просто radians = degrееs * (PI/180) .A RadToDeg degreеs = radians * (180/PI) :)
Извеняйте,что не на делфи.
Изменено dzanis (6.01 / 19:08) (всего 1 раз)
<< 1 ... 13 14 15 16 17 ... 28 >>
Наверх  Всего сообщений: 276
Фильтровать сообщения
Поиск по теме
Файлы топика (3)