RusFAQ.ru: Программирование на языке Pascal
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на языке Pascal
Выпуск № 299
от 11.06.2004, 17:20
| Администратор: Имя: Sensey URL: Информационный ресурс ICQ: 105679124 Украина, Харьков |
О рассылке: Задано вопросов: 495 Отправлено ответов: 1843 Активность: 372.3 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| n0name Статус: Начальный Общий рейтинг: 114.81 [Подробней >>] |
vitya Статус: Профессиональный Общий рейтинг: 109.32 [Подробней >>] |
Strory Статус: Опытный Общий рейтинг: 155.26 [Подробней >>] |
| sir henry Статус: Профессиональный Общий рейтинг: 163.25 [Подробней >>] |
Boriss Статус: Профессиональный Общий рейтинг: 163.27 URL: Программирование на Паскале [Подробней >>] |
Black Статус: Доверительный Общий рейтинг: 120 [Подробней >>] |
| Student Статус: Начальный Общий рейтинг: 150 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 493. Добрый день, эксперты. Как решить задачу "Создать файл прямого доступа,содержащий целые числа,и... (ответов: 7)
Вопросов: 1, ответов: 7
| Вопрос № 493 |
Добрый день, эксперты.
Как решить задачу "Создать файл прямого доступа,содержащий
целые числа,и вычислить сумму значений,находящихся в этом файле".
Спасибо.
Вопрос отправлен: 08.06.2004, 17:12
Отправитель: roman
[Следующий вопрос >>] [Список вопросов]
Отвечает n0name
Здравствуйте, roman!
program NumSum;
var
F: File of integer; {создаём файл прямого доступа}
numc: integer;
sum: integer;
num: integer;
i: integer;
begin
Assign(f, 'C:simple.txt');
Reset(f);
numc:=FileSize(f);
num:=0;
sum:=0;
for i:=0 to numc-1 do
begin
Seek(f, i) ;
Read(f, num);
sum:=sum+num;
end;
Close(f);
end.
Ответ отправлен: 08.06.2004, 21:05
Отправитель: n0name
Отвечает vitya
Добрый день, roman!
1. создаешь файл of integer
2. пишешь в него числа - лучше всего с помощью генератора случайных чисел
3. перематываешь файл
4. читаешь и суммируешь.
Ответ отправлен: 09.06.2004, 09:45
Отправитель: vitya
Отвечает Strory
Добрый день, roman!
Блин, а я только кривого доступа умею делать ;)
См. в приложении. Писал правда сходу, поэто очепятки не исключены.
ЗЫ Работать будет не всегда (если вообще будет ;)). Учи файлы! Тогда узнаешь почему не будет работать.
ЗЗЫ Короче, не ничего не пиши после последнего числа.
ЗЗЗЫ А по правильному такие файлы организуют следующим образом:
N - общее кол-во чисел в файле
X1, X2, ... XN - далее следует N чисел
Удачи!
Приложение:
Ответ отправлен: 08.06.2004, 17:41
Отправитель: Strory
Отвечает sir henry
Приветствую Вас, roman!
Файл прямого доступа - это типизтрованый файл, в Вашем случае - типа Integer. См. приложение.
Приложение:
Ответ отправлен: 08.06.2004, 18:07
Отправитель: sir henry
Отвечает Boriss
Здравствуйте, roman!
Не ё! Понапридумывали терминов ... Что такое файл "прямого" доступа? Что тогда все остальные - "кривого" доступа?
Я знаю тестовые, типированные и нетипизированные И ВСЕ!
Уточните задание. Решение простое, только лень делать пустую работу. А вдруг не то?
Но в приложении вариант а типизированным файлом:
Приложение:
Ответ отправлен: 08.06.2004, 18:27
Отправитель: Boriss
Отвечает Black
Доброе время суток, roman!
var
A: File of integer;
b,c,S,i: integer;
begin
Assign(A, '1.txt');
Reset(A);
b:=FileSize(A);
c:=0;
S:=0;
for i:=0 to b-1 do
begin
Seek(A, i);
Read(A, c);
S:=S+c
end;
Close(A)
end.
Ответ отправлен: 11.06.2004, 15:58
Отправитель: Black
Отвечает Student
Приветствую Вас, roman!
Если я правильно понял, нужно просто создать файл с данными и считать их для вычисления суммы.
"Файл прямого доступа" - т.е. файл доступен для чтения и записи, доступ осуществляется из программы, а также файл может быть прочитан средствами операционной системы.
В приложении один из способов решения задачи.
С ув. Student.
Приложение:
Ответ отправлен: 09.06.2004, 00:04
Отправитель: Student
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (21) C / C++ (13) Perl (1) Builder / Delphi (18) Pascal (22) Basic / VBA (3) Java / JavaScript (4) PHP (14) Криптография (9) WinAPI (11) Радиоэлектроника (9) |
Пользователю Windows 95/98/Me (35) Windows NT/2000/XP (53) "Железо" (32) Поиск информации (15) |
Администратору Windows NT/2000/XP (28) Linux / Unix (11) |
Юристу Гражданское право (12) Семейное право (8) Трудовое право (11) КоАП (7) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
