Помогите написать программу, которая формирует файл записей

Тема в разделе "Pascal and Delphi", создана пользователем -, 26 дек 2011.

Статус темы:
Закрыта.
  1. Гость

    написать программу, которая формирует файл записей данной структуры
    Type vladelez=Record
    familia:string;
    Adress:string;
    avto:stringNomer:string;
    vypusk:1900..2000;
    и определяет:
    - количество автомобилей каждой марки
    - владельца самого старого авто
    - фамилии владельцев и номера авто данной марки
    в турбо паскале


    Добавлено: Program Avtomobil;
    Uses crt;
    Type vladelez = Record
    Familia:string;
    Address:string;
    Avto:string;
    Nomer:string;
    Vypusk: 1900..2000;
    End;
    Var f:text; k:vladelez; m:string; kol,i,l:byte;

    Begin clrscr;
    Assign(f,’auto.txt’);
    Rewrite(f);
    For i:=1 to 5 do
    Begin
    Write('Введите фамилию '); Readln(k.familia);
    Write('Введите адрес '); Readln(k.address);
    Write('Введите марку авто '); Readln(k.avto);
    Write('Введите номер авто '); Readln(k.nomer);
    Write('Введите год авто '); Readln(k.vypusk);
    End;

    { Находим количество автомобилей каждой марки}
    Reset(f);
    For i:=1 to 5 do
    For l:=i+1 do 5 do Begin
    Begin m:=k.avto;
    If k.avto = k.avto[l] then inc(kol);
    End;
    Writeln('Марка – ',m,' Количество – ', kol);
    End;
    Close(f);

    {Находим владельца самого автомобиля}
    Reset(f);
    For i:=1 to 5 do Writeln('Авто – ',k.avto,' Выпуск – ',k.vypusk, ' Владелец – ',k.familia);
    Close(f);



    { фамилии владельцев и номера автомобилей данной марки};
    Reset(f);
    Write('Введите марку авто');Readln(m);
    For i:=1 to 5 do If m=k.avto then Write('Фамилия – ',k.familia,' Номер – ', k.nomer);
    Close(f);
    Readkey
    end.
     

    Вложения:

    • PROGA.PAS
      Размер файла:
      1,1 КБ
      Просмотров:
      13
  2. Cambur

    Cambur Active Member

    Регистрация:
    20 июн 2010
    Сообщения:
    27
    Симпатии:
    0
    Привет, если годится на Delphi - сделаю за 5 минут. Паскаль у меня не установлен..
    запись k.avto тебе выдаст букву с порядковым номером i строки avto.
    вероятно, это не то, что тебе надо.
    в Delphi это будет так k : array[1..5] of vladelez;
    в этом случае обращение к avto будет k.avto
    подправь, если повезёт - всё заработает... я вообщем-то код по диагонали пробежал.. новый год, однако..
    если что
    venezuela@mail.ru
     
  3. Гость


    Cпасибо большое=)) помогло=)) да и еще ошибка фаил не записала=))) все сдала все работает=)))
     
Загрузка...
Похожие Темы - Помогите написать программу
  1. alex10
    Ответов:
    2
    Просмотров:
    1.348
  2. Edgar4
    Ответов:
    2
    Просмотров:
    1.270
  3. olegts94
    Ответов:
    0
    Просмотров:
    942
  4. AnnaAndreevna
    Ответов:
    1
    Просмотров:
    1.865
  5. morpheus
    Ответов:
    0
    Просмотров:
    1.835
Статус темы:
Закрыта.

Поделиться этой страницей