Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

Модерирует : ShIvADeSt

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ZyXEL
 

Код:
 
program sopr;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var r,c,f,z:real;
Function impedans(r:real; c:real; f:real):real;    
var                                                
   z:real;
   xc:real;
   impedans:real;
Begin
xc:=1/(2*3.1415926*f*c);
z:=sqrt(r*r+xc*xc);
end;
 
Begin
writeln('введите в одной строке сопротивление (Ом) емкость',
 '(микрофорад) и частотц (Гц) ->');
readln(r,c,f);
z:=impedans(r,c,f);
writeln('полное сопротивление',z);
Readln;
end.
 

 
У меня запускается
Создаешь проект File -> New -> Other -> Console Application
И вставляешь свой код. Uses crt убираешь нафих. И все.

Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 14:22 25-11-2007 | Исправлено: vladk1973, 14:25 25-11-2007
ZyXEL



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Ладно, мне это было просто интересно почему не запускается. Просто проходил программирование около 4 лет назад, а щас лабы опять начались, надо вспомнить программирование, достал старые лабы, думал поправить и сдать, дак нет - всё вообще забыл! сдал тогда и забыл. А задачи сейчас другие, вот пытаюсь сформировать вопрос, позже напишу новую задачу.
 
__
спасибо за помощь!  
 
Добавлено:
Помогите плиз, с математикой проблемы, мне что-то даже трудно перевести пример математический в 1 строчку. Программирование за 4 года забыл, но задача такая:
 
 
Вычисление значения арифметического выражения
Вычислить значение переменной z, являющейся функцией двух переменных x и y. Для вычисления x и y требуется определить значения арифметических выражений, зависящих от переменных a и b и констант k и m.
Значения переменных a и b ввести с клавиатуры, для задания значений констант  k и m использовать раздел описаний const.
Вывести на экран дисплея значения вспомогательных переменных x, y  и z результат  с точностью до 2-х десятичных знаков. Вывод результата сопроводить пояснительным текстом ’x=’, ’y=’, ’z=’.
Примечание. В данной программе не надо выполнять проверку области допустимых значений для знаменателя, логарифма, подкоренного выражения в квадратных корнях.
   

Всего записей: 353 | Зарегистр. 12-03-2004 | Отправлено: 14:38 25-11-2007
lavren



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Maks150988

Цитата:
В том примере написано что надо вызвать EnumInterfaces(var s string): Boolean;
А как его вызвать-то? Не умею я функции вызывать.  

Элементарно, Ватсон...

Код:
...
uses ..., USock;
...
var
    S:String;
...
 if not EnumInterfaces(s) then
  begin
         //здесь извлекаешь из s все что тебе нужно. Например: Memo1.text:=s;
  eng;
...


Всего записей: 545 | Зарегистр. 29-05-2007 | Отправлено: 14:57 25-11-2007 | Исправлено: lavren, 15:05 25-11-2007
ZyXEL



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
 
 
вот всё на что хватило моих сил  

Всего записей: 353 | Зарегистр. 12-03-2004 | Отправлено: 16:04 25-11-2007
vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ZyXEL
А зачем ты его в одну строчку то переводишь?
Тебе ж x и y по-любому выводить на экран надо.
Следовательно и вычислять их надо как самостоятельные выражения.
И вообще, это offtopic

Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 16:18 25-11-2007
ZyXEL



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Торможу!
Не внимательно задание читал! Вот пытаюсь сделать всё по шагам, уже голова болит, с 12 часов над этим колдую один. А из мен япрограммист - 3 пишем, 2 в уме!
математика так же! Только все остальные предметы беру.
Извините за фотопик!
 
Поможешь написать задачку?

Всего записей: 353 | Зарегистр. 12-03-2004 | Отправлено: 16:29 25-11-2007
Maks150988



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lavren
Ах вот оно как... Спасибо, получилось.

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 17:14 25-11-2007
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Maks150988
Еще раз прошу, если хочешь получить ответ - задай точный вопрос
чтобы не гадать что там произходит, а пока достаю чашку с кофейной гущей
и начинаю задавать вопросы  
 
1.как определяешь какой шлюз верный?
2.смотришь св-ва соединения на одной и той же машине или на разных?
или приходит дядя вася и говорит что шлюз сегодня такой.
3. не ясно с топологией сети что куда соединяется.
4. для чего используется DHCP

Цитата:
Но у кого-то просто АДСЛ

и куда они соединяются?
режим роутер или бридж?

Цитата:
То есть нельзя просто так выдрать из реестра первый попавшийся адаптер

выдери тот адаптер который нужно. Как то же удалось узнать адрес 192.11.11.11

Цитата:
но срок аренды айпишника у нас 3 дня или ранее

а при чем здесь шлюз?
или IP меняется вместе с адресом шлюза  (не похоже на DHCP)
тогда последний или точнее вопрос с которого надо было начать: соединение идет через адсл модем??

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 08:39 26-11-2007 | Исправлено: greenpc, 10:09 26-11-2007
adg208

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Используется Delphi7
Подскажите как передать переменной X в программном модуле - данные из ячейки [1,1] Excel-я.

Всего записей: 159 | Зарегистр. 26-12-2003 | Отправлено: 10:23 26-11-2007
ymg2000



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
adg208
Посмотри здесь:
Подробнее... [?]
Тут с Гридом, но принцип один.

Всего записей: 2391 | Зарегистр. 24-08-2007 | Отправлено: 12:05 26-11-2007
RostY



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
еще можно использовать компоненты типа XLSFile, XLSReadWrite и читать ексель-файл напрямую, без ОЛЕ.

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 12:45 26-11-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди у кого-нибудь есть компонент TJPEGImage.pas ? если да то поделитесь очень нужен.

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 00:54 27-11-2007
vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sampron
http://redacid.org.ua/ftp/media1/all_soft/pc/develop/delphi_7/info/extras/jpeg/jpeg.pas

Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 05:15 27-11-2007
adg208

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста как можно реализовать программмно в Delphi7 такую задачу:
даны 12 ячеек, пусть будут в Exсel-е
даны три буквы a, b, c; а также ячейка может быть иметь пустое значение
каждая из ячеек может содержать в себе одно из четырех значений.
Как получить результирующию строку из этих ячеек, так чтобы
если встречается одниковыебуквы в сосдних ячейках они складывались
 
Например: а+а=2а, b+b+b=3b, c+'пустая ячейка'+с+'пустая ячейка'+'пустая ячейка'=2с
 
Результат должен имет вид:
Например
2а - 4b - с - 3а

Всего записей: 159 | Зарегистр. 26-12-2003 | Отправлено: 12:07 27-11-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vladk1973
Спасибо!

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 12:36 27-11-2007
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
adg208 типа так, но для строки
Подробнее... [?]

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 13:50 27-11-2007 | Исправлено: greenpc, 13:52 27-11-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vladk1973
мда... не пашет этот компонент в делфи 2 пишет:
Fatal Error: (0): Line too long (more than 255 characters).
а жаль.

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 13:57 27-11-2007
vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sampron
А ты еще obj файлы скачай.
У меня например проект заработал
С простейшим кодом

Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 16:16 27-11-2007
dominiksus



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
подскажите, забыл как программно установить некое свойство для кучи компонентов одного типа (TRxGifAnimator)?

Всего записей: 119 | Зарегистр. 11-08-2007 | Отправлено: 17:01 27-11-2007
vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
dominiksus
Можно так попробовать

Код:
 
for i := 0 to ComponentCount-1 do
  if Components[i] is TRxGifAnimator then  
    TRxGifAnimator(Components[i]).Property :=
 


Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 17:28 27-11-2007
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru