Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 17.12.2017, 20:39   #1
nikita1999
Новичок
 
Регистрация: 17.12.2017
Сообщений: 1
Репутация: 10
По умолчанию Текстовые файлы

Добрый вечер.
Возникла проблема. У меня есть типизированный файл, в которым записана информация о машинах(модель,год выпуска,стоимость,цвет). Мне нужно перезаписать в текстовый файл информацию о машинах определённого цвета и периода выпуска и вывести на экран - это я выполнил, все работает.
Вот дальше возникла проблема, мне нужно в текстовом файле прочесть и определить машину, которая была выпущена раньше остальных.
Затем каждую запись типиз.файла преобразовать в строку и год напечатать в обр.сторону. Вот на этом моменте я затупил.

Код:

program example

{$APPTYPE CONSOLE}



uses
  System.SysUtils;
Type
CarData = Record
     Model:string[15];
     Year:integer;
     Price:integer;
     Color:string[10];
End;
Stroka = string[60];
Var f:file of CarData;
CarStroka:Stroka;
f1: text;
Car:CarData;
m,i:integer;
CarYear1,CarYear2:integer; CarColor:string[10];
MinCar:integer;
begin
{Запись информации об автомобилях в типизированный файл}
AssignFile(f,'Car.dat');
Rewrite(f);
 Repeat
 Write('Введите модель автомобиля: ');
 ReadLn(Car.Model);
 Write('Введите год выпуска автомобиля: ');
 ReadLn(Car.Year);
 Write('Введите стоимость автомобиля: ');
 ReadLn(Car.Price);
 Write('Введите цвет автомобиля: ');
 ReadLn(Car.Color);
 Write(f,Car);
 Writeln('Для продолжения ввода введите 1, для завершения - 2');
 Readln(m);
 Until m = 2;
CloseFile(f);
WriteLn;
{Чтение и вывод на экран информации из типизированного файла}
AssignFile(f,'Car.dat');
Reset(f);
  while not EoF(f) do
  Begin
    read(f,Car);
     with Car do
       writeln(Model:10,Year:10,Price:10,Color:10)
  End;
CloseFile(f);
Readln;
{Перезапись информации из типизированного файла в текстовый}
Write('Введите цвет автомобиля: '); Readln(CarColor);
Write('Введите период выпуска автомобиля: '); Read(CarYear1,CarYear2);
AssignFile(f,'Car.dat');
Reset(f);
AssignFile(f1,'CarOutPut.txt');
Rewrite(f1);
Writeln(f1,' Название ','    ',' Год ','   ', '  Цвет ');
Writeln(f1);
  while not Eof(f) do
  Begin
  Read(f,Car);
  if (( CarYear1 <= Car.Year )and(CarYear2 >= Car.Year)) and (Car.Color = Carcolor) then
   Begin
   Write(f1,Car.Model:10);//Write(f1,'       ');
   Write(f1,Car.Year:12);//Write(f1,'     ');
   //Write(f1,Car.Price);Write(f1,'  ');
   Write(f1,Car.Color:12);//Write(f1,'     ');
   Writeln(f1);
   End;
  Write(f1);
  End;
Close(f);
Close(f1);
Readln;
{Вывод на экран данных из текстового файла}
AssignFile(f1,'CarOutPut.txt');
i:=0;
Writeln('Вывод данных из текстового файла:');
Writeln;
Reset(f1);
while not SeekEOF(f1) do
  Begin
  Read(f1,CarStroka);
  Writeln(CarStroka);
  Write(' ');
  i:=i+1;
  if i = 7 then
    Begin
    Writeln;
    i:=0;
    End;
  End;
CloseFile(f1);
Writeln;
Readln;
End.

nikita1999 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Текстовые файлы С++ Анастасия2907 Помощь студентам 0 13.12.2015 21:35
Текстовые файлы. С# gvozdik12 Помощь студентам 1 18.04.2013 20:25
Текстовые файлы trum Помощь студентам 2 16.05.2012 01:16
Текстовые файлы Asira Помощь студентам 0 21.06.2010 15:52
Текстовые файлы Pihan Общие вопросы C/C++ 3 18.05.2010 22:41


20:46.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru