-
Постов
3 305 -
Зарегистрирован
-
Посещение
-
Победитель дней
1
Тип контента
Профили
Форумы
Блоги
Галерея
События
Весь контент D_Master
-
С праздником, Улановка!
- 199 ответов
-
- день рождения
- праздник
-
(и ещё 2 )
C тегом:
-
Это, я так думаю. Разве что с мат. алгоритмами
-
Вроде бы как минимум, уже в мае не работала
-
ололо, у тампа баттхерт
-
Задрот и ноулайфер
-
Если знаете английский, смотрите в оригинале! КБ, конечно, здорово переводит, но некоторые отжиги Рэя перевести невозможно
-
Васяна нагнули, васян не ок11
-
Делаешь массив, читаешь все записи, для опр. группы делаешь сумму стипендий как отдельный элемент массива. После чтения ищешь макс. элемент.
-
Млиа... Вот не могли раньше сделать(
-
Лолчто?
-
AG твои картинки не торт
-
Близзы требуют для точного определения владельца аккаунта. Наряду со сканом паспорта.
-
Тут частично объясняется
-
Думаю, под ключами имелось в виду, что есть сканы/оригинал сидикея. Ваш Копетан.
-
Попробуйте обратиться в "Гарант Парк".
-
Лучше в иви с Тампом играйте т_Т
-
Иви онлайн добавь, Тамп туда укатился
-
В советской России галактика порабощает Тамплиера! На своем звездолете частое употребление ")))" признак не очень сильного ума веселого человека )))
-
Язык-то какой? Если Delphi, как-то так (не проверял): worker = record name : string[20]; manuf : string[20]; salary : integer; end; var fHandler : file of worker; _worker : worker; procedure TForm1.FormCreate(Sender : TObject); begin AssignFile(fHandler, 'workers.dat') if not (FileExists('workers.dat')) then Rewrite(fHandler); end; procedure TForm1.Button1Click(Sender : TObject); var sName, sManuf : string; iSalary : integer; begin Reset(fHandler); sName := Edit1.Text; sManuf := Edit2.Text; iSalary := StrToInt(Edit3.Text); _worker.name := sName; _worker.manuf := sManuf; _worker.salary := iSalary; Write(fHandler, _worker); CloseFile(fHandler); ShowMessage('Entry was added to file!'); end; procedure TForm1.Button2Click(Sender : TObject); var sManuf : string; iSalarySumm, iWorkersCount : integer; begin sManuf := Edit2.Text; iSalarySumm := 0; iWorkersCount := 0; Reset(fHandler); while not (eof(fHandler)) do begin Read(fHandler, _worker); if (_worker.manuf <> sManuf) then continue; inc(iSalarySumm, _worker.salary); inc(iWorkersCount); end; CloseFile(fHandler); ShowMessage('Total salary for ' + sManuf + ' manufactory: ' + IntToStr(iSalarySumm)); ShowMessage('Avg. salary: ' + FloatToStrF((iSalarySumm / iWorkersCount), fffixed, 0, 3)); end;type На форме 3 эдита, 2 баттона. 1й эдит - имя, 2й - название цеха, 3й - зарплата. 1я кнопка - добавляет запись, 2я - ищет в файле инфу по 2му заданию. Ну и эвенты соответствующие назначить.
-
Эминема привезите))
-
яничегонепонял.пнг