|
Вопрос # 1 432/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты! Помогите, пожалуйста, срочно решить задачу для младшего брата. А то мы с ног сбились в поисках специалиста.
Задачка в файле. Нужно написать решение на языке программирования.
заранее спасибо:)
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задала: Танута (статус: Посетитель)
Вопрос отправлен: 19 марта 2008, 14:26
Состояние вопроса: открыт, ответов: 3.
|
Ответ #1. Отвечает эксперт: Drozdov D.V.
Здравствуйте, Танута!
Вопрос и сложный и простой.
Если я не ошибаюсь 1 символ 1киловит
60*80=4800
4800*450=2160000
дальше перевидите!
 |
Ответ отправил: Drozdov D.V. (статус: 4-ый класс)
Время отправки: 19 марта 2008, 14:38
|
Ответ #2. Отвечает эксперт: Виталий Лещенко
Здравствуйте, Танута!
На одной странице вмещается 60 * 80 символов. (Про то, сколько символо-байт занимает перевод строки ничего не сказано)
Тогда вся рукопись будет занимать 450 * 60 * 80 = 2160000 байт = 2.0599365234375 Кб
На одну дискету вмещается примерно 1.44 Кб, тогда 2.0599365234375 / 1.44 = 1.430511474609375 дискет понадобится.
Но кол-во дискет должно быть натуральным числом, поэтому результат следует округлить в большую сторону.
Ответ: 2
Приложение: Переключить в обычный режим- var
- size: double;
- dcount: double;
- count: integer;
- begin
- size := 450 * 80 * 60 / 1024 / 1024;
- dcount := size / 1.44;
- count := round(dcount + 0.5);
-
- end.
-
 |
Ответ отправил: Виталий Лещенко (статус: 4-ый класс)
Время отправки: 19 марта 2008, 14:55
|
Ответ #3. Отвечает эксперт: min@y™
С учётом вопроса № 1431 (см. приложение).
Программа работает. Проверял. :)
Приложение: Переключить в обычный режим- {
-
-
-
-
-
-
-
-
- 1457664 < 2160000 < 2 * 1457664
-
-
- }
-
- program p1432;
-
- const
-
-
-
-
- var
-
-
- begin
- DiskCount:= 1;
-
- while (DiskCount * DiskSize < PageSize * PageCount) do
- Inc(DiskCount);
-
-
-
- Readln;
- end.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 20 марта 2008, 08:37
|
Мини-форум вопроса
Всего сообщений: 23; последнее сообщение — 30 марта 2008, 15:43; участников в обсуждении: 3.
Страницы: [« Предыдущая] [1] [2]
|
|
Drozdov D.V. (статус: 4-ый класс), 28 марта 2008, 21:24 [#21]:
Да да! Совершено верно.
SEEK применяется перемещение указателя в файле, авот в F:text;
может неработать.
|
|
Вадим К (статус: Академик), 28 марта 2008, 22:41 [#22]:
и в текстовых файлах всё работает.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Drozdov D.V. (статус: 4-ый класс), 30 марта 2008, 15:43 [#23]:
ДА согласен.
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
