Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.312 RSS
←   Май 2009   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
13.05.2009
03:18:18
17:37:58
14
15
16
16.05.2009
21:22:12
23:39:00
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.312 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Влaдимир
Статус: 9-й класс
Рейтинг: 176
∙ повысить рейтинг >> 		Тимошенко Дмитрий
Статус: Студент
Рейтинг: 127
∙ повысить рейтинг >> 		Victor Pyrlik
Статус: Профессионал
Рейтинг: 72
∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1372
от 19.05.2009, 10:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 443, Экспертов: 51
В номере:Вопросов: 3, Ответов: 4
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 167197: Уважаемые эксперты, помогите ответить на вопросы по следующей задаче:заданы сведения о сотрудниках организации- фамилия, заработная плата. Количество сведений любое.Сохранить сведения в файле. Прочитать из файла по запросу и определить среднюю зарабо...

Вопрос № 167249: Здравствуйте! Подскажите, как мне записать в одномерный массив (из 16 элементов) цифры от 1 до 16 в случайно перемешанном порядке?...
Вопрос № 167270: Уважаемые эксперты! Есть система из двух уравнений с двумя неизвестными. В настоящий момент эта система решается прмым перебором неизвестных от 0 и до...., короче пока система не решится. Подскажите пожалуйста, есть ли возможность поиска неизвестных ...

Вопрос № 167.197
Уважаемые эксперты, помогите ответить на вопросы по следующей задаче:заданы сведения о сотрудниках организации- фамилия, заработная плата. Количество сведений любое.Сохранить сведения в файле. Прочитать из файла по запросу и определить среднюю заработную плату всех сотрудников организации. Предусмотреть дополнение сведений и их исправление.
1. Создайте структуру данных типа "Запись" для обработки требуемых сведений.
2. Объявите типизированный файл для сохранения данных созданного типа.
3. Как можно найти запись в файле по ее номеру.
4. С помощью какой функции можно определить количествто заполненных строк компонента StringGrid.. Какое условие позволит определеить количество заполненных строк.
5.Каким образом открывать только текущий каталог, в котором находится программа.
Я думаю, для вас они довольно простые. Заранее спасибо.

Отправлен: 13.05.2009, 16:56
Вопрос задал: Vlad9240 (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Тимошенко Дмитрий
Здравствуйте, Vlad9240!

1. Структуру описать можно так:
Код:

type TSotrInfo=record
    Surname: string[30];
    Zarplata: real;
  end;


2. Файл объявляем следующим образом:
var f: file of TSotrInfo;

3. Для перехода к записи с определенным номером существует функция Seek(f,RecordNumber) где, f - файл, RecordNumber - номер нужной записи. (Учтите также, что нумерация записей начинается с 0)

4. TStringGrid не имеет встроенного метода или свойства, позволяющих определить количество заполненных строк. Это можно сделать например описав такую функцию:
Код:

function CountFilledRows(Grid: TStringGrid): LongInt;
begin
  Result:=0;
  while (Result<Grid.RowCount) and (Grid.Cells[0,Result]<>'') do inc(Result);
end;

В качестве параметра она получает StringGrid, а возвращает количество заполненных строк до первой пустой (предполагаю, что строки заполняются последовательно).

А вот с пятым пунктом немного неясно, что вы имеете ввиду под
© Цитата:
открывать только текущий каталог, в котором находится программа
Где открывать?
Ответ отправил: Тимошенко Дмитрий (статус: Студент)
Ответ отправлен: 13.05.2009, 21:20

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249129 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 5
    Комментарий оценки:
    спасибо!

    Вопрос № 167.249
    Здравствуйте! Подскажите, как мне записать в одномерный массив (из 16 элементов) цифры от 1 до 16 в случайно перемешанном порядке?
    Отправлен: 14.05.2009, 00:44
    Вопрос задал: Upgrader (статус: Студент)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 5)
    Отвечает: Тимошенко Дмитрий
    Здравствуйте, Upgrader!

    Можно например так:

    Код:
    procedure FillArray();
      var i,j,step: integer;
    begin
      { Инициализируем массив }
      for i:=1 to 16 do a[i]:=0;
      { Заполняем массив }
      Randomize;
      for i:=1 to 16 do begin
        { Зададим случайное число шагов
и начальный элемент }
        step:=random(32); j:=random(16)+1;
        { Пока не исчерпаны шаги и текущий элемент пустой }
        while (step>0) or (a[j]<>0) do begin
          if a[j]=0 then dec(step); { шаги считаем только по пустым элементам }
          j:=j mod 16+1; { а текущий элемент сдвигаем всегда }
        end;
        a[j]:=i; { Шаги закончились - присвоим элемент }
      end;
    end;

    Ответ отправил: Тимошенко Дмитрий (статус: Студент)
    Ответ отправлен: 14.05.2009, 07:39

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249148 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 5
    Комментарий оценки:
    Спасибо!

    Вопрос № 167.270
    Уважаемые эксперты! Есть система из двух уравнений с двумя неизвестными. В настоящий момент эта система решается прмым перебором неизвестных от 0 и до...., короче пока система не решится. Подскажите пожалуйста, есть ли возможность поиска неизвестных наподобие поиска в Excel (Поиск решения методом Ньютона или сопряженных градиентов ну или что-то подобное). Цель - сократить время поиска решения. Заранее спасибо
    Отправлен: 14.05.2009, 10:23
    Вопрос задал: Владик (статус: 2-й класс)
    Всего ответов: 2
    Мини-форум вопроса >>> (сообщений: 1)
    Отвечает: Alex653100
    Здравствуйте, Владик!

    Если система имеет постоянный вид, меняются только числовые коэффициенты, то можно обойтись и без числовых методов. Просто выводим формулы чему равны неизвестные. Например, задана система: X+Y=N1 и aX+bY=N2. То X = (N2-a*N1) / (N1-N2); Y= N1-X;
    Ответ отправил: Alex653100 (статус: Посетитель)
    Ответ отправлен: 14.05.2009, 11:39

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249158 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Отвечает: Spirit87
    Здравствуйте, Владик!
    Советую посмотреть решение систем уравнений матричным методом
    Ответ отправил: Spirit87 (статус: 3-й класс)
    Ответ отправлен: 14.05.2009, 17:48

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249187 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 4
    Комментарий оценки:
    Спасибо за подсказку, но мои позания в математике не так уж сильны. Придется вспоминать матрицы.

    Вы имеете возможность оценить этот выпуск рассылки.
    Нам очень важно Ваше мнение!
    Оценить этот выпуск рассылки >>

    Отправить вопрос экспертам этой рассылки

    Приложение (если необходимо):

    * Код программы, выдержки из закона и т.п. дополнение к вопросу.
    Эта информация будет отображена в аналогичном окне как есть.

    Обратите внимание!
    Вопрос будет отправлен всем экспертам данной рассылки!
    Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
    экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


    Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
    Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RusFAQ.ru, Россия, Москва.
    Авторское право: ООО "Мастер-Эксперт Про"
    Техподдержка портала, тел.: +7 (926) 535-23-31
    Хостинг: "Московский хостер"
    Поддержка: "Московский дизайнер"
    Авторские права | Реклама на портале

    ∙ Версия системы: 5.13 от 01.12.2008

    		Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru
    В избранное