IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Файлы (куда без них:))
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


В прошлом я уже задавал эту задачку но что-то никто не захотел помочь. Напомню
В файле хранится информация о правонарушениях по региону N за 5 лет в следующем виде: наименование правонарушения и кол-во правонарушений данного вида за каждый год. Извесно кол-во жителей данного региона.Сформировать файл, в котором кроме перечисленной информации имеется 2 графы: кол-во преступлений данного вида в расчете на душу населения и среднегодовое кол-во преступлений данного.
Очень нужна программа для работы. Просьба вылаживать свои мысли по этому.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Я даже могу сказать, ПОЧЕМУ никто не захотел помочь (думаю, и сейчас никто не захочет): тебе нужна не помощь, а решенная задача. Полность делать за тебя ни у кого нет ни времени (сессия скоро, однако), ни желания (по 20-му разу одно и то же).


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


Почему это полностью решенная задача? Мне хотябы подсказать как ее делать и с помощью чего и все.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Был у тебя файл со структурой
prav = record
name: string[20];
count: integer;
end;

А будет:
prav1 = record
name: string[20];
count: integer;
cnt, year: real;
end;


В чем проблема? Из первого читаешь, во второй пишешь...
Посчитать среднегодовое количество и количество на душу населения вроде как несложно...


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


помоему мне надо делать с помощью типизированого файла а не записи
и посчитать сргодовое кол-во вызывает затруднение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


А типизированный файл, по-твоему, из чего должен состоять, если не из записей?
Кстати, наверное (раз количество лет известно) лучше сделать так:
prav = record
name: string[20];
count: array[1..5] of integer;
end;


среднегодовое:
for i:=1 to 5 do
year:=year+count[i];
year:=year/5;


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






подкоректируйте прогу
Код

Program baza;uses crt;
type prav=record
name:string[20];
count:array[1..5] of integer;
end;
var f1:file of prav;
cnt,year:real;S:string;
i:integer;
begin
textcolor(green);clrscr;
write('Vvedite imya faila:');
readln(S);
assign(f1,S);
rewrite(f1);
for i:=1 to 5 do
    begin
    write('Vvedite kol-vo giteley regiona:');
    readln(count);
    write('Vvedite pravonarushenie:');
    readln(name);
    1: write('Vvedite kol-vo pravonarusheniy:');
    readln(count1);
        begin
            if count1>count then
                write('Nepravilny vvod.Povtorite snova!!!');
                goto 1;
        end;
    write(f1,prav)

    year:=year+count[i]
    year:=year/5;
           end.

она не совсем завершена. Многие моменты не совсем ясны.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Цитата
подкоректируйте прогу

norespect.gif
Даже и пытаться не буду, пока не исправишь синтаксические ошибки. Ты её хоть пытался компилировать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Цитата
Многие моменты не совсем ясны.
Мне тоже... Например, совсем не ясно, когда тебе надоест вводить данные в "вечном" цикле...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






я не думал что это такая тяжелая задача.smile.gif
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.09.2020 11:58
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name