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

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

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

 
 Ответить  Открыть новую тему 
> запись, файл
smith
сообщение 24.06.2010 16:14
Сообщение #1


Новичок
*

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

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


Друзья, нужна помощь...

Я написал программу

uses
  Crt;
const
  N = 10;
type
  Auto = record
    Marka: string[10];
    Familiya: string[15];
    Nomer: string[7];
    Count: integer;
  end;

var
  a,b: array [1..N] of Auto;
  i,j,Znach: integer;
  f: boolean;
begin
  ClrScr;
Writeln(‘vvodim zapisi’);
  for i := 1 to N do
  begin
    WriteLn('Zapis #', i);
    Write('Marka: ');
    ReadLn(a[i].Marka);
    Write('Familiya: ');
    ReadLn(a[i].Familiya);
    Write('Nomer: ');
    ReadLn(a[i].Nomer);
  end;
  Znach := 0;
  for i := 1 to N do
  begin
    f := true;
    for j := 1 to Znach do
      if a[i].Marka = b[j].Marka then
      begin
        f := false;
        break;
      end;
    if f then
    begin
      Inc(Znach);
      b[Znach] := a[i];
      Inc(b[Znach].Count);
    end
    else
      Inc(b[j].Count);
  end;
  WriteLn('Result:');
  for i := 1 to Znach do
    WriteLn(b[i].Marka, ' - ', b[i].Count);
end.



Помогите ее переделать. надо чтобы работало через файл, а не через массив. не могу никак понять.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Client
сообщение 24.06.2010 16:28
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

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


например читать можно так
myfile : file of Auto;
...
reset(myfile);
while not eof(myfile) do begin
  read(myfile, myAuto);
  ...
end;


Сообщение отредактировано: Client - 24.06.2010 16:29
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
smith
сообщение 24.06.2010 19:23
Сообщение #3


Новичок
*

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

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


извини, а ты не мог бы вклинить это в мою прогу чтобы работало?...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 

- Текстовая версия 29.07.2025 17:31
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"