Помогите с задачкой

[Pyx]

Помогите с задачкой

Создайте текстовый файл данных о расписании движения поездов. Выведите на экран информацию о поездах, отправляющихся в Киев после 19:00.

 

[Pyx]

program Rozklad;

{$APPTYPE CONSOLE}

uses
SysUtils;
var myfile: text;
zvidku: string[10];
kyda: string[10];
chas: real;
begin
assign (myfile ,'C:\Documents and Settings\Пользователь\Рабочий стол\АМП\ьбт\poizd.txt');
reset (myfile);
while not eof (myfile) do
begin
readln (myfile, zvidku, kyda, chas);
if kyda='Kiev '
then writeln (zvidku:10, kyda:10, chas:2:2);
end;
close (myfile);
readln
end.



Что не правильно подзкажите....

 

[Vladimir_S]

Создайте текстовый файл данных о расписании движения поездов.

Выложите, пожалуйста, сам файл, чтобы можно было поместить его в нормальную (без, упаси Боже, кириллицы в путях!) директорию и запустить программу.
А так, на взгляд: требуется вывести данные о поездах, отправляющихся в Киев после 19:00, а значит нужно время отправления преобразовать в численный формат и вместо
if kyda='Kiev ' (кстати, никакого пробела после "v" быть не должно!)
записать
if (kyda='Kiev') and ({время отправления в числовом формате}>={19:00 тоже в числовом формате})
Могу помочь с конкретной реализацией, но только, повторяю, после того, как будет выложен файл данных.

 

[Pyx]

текстовый файл

Moskva    Kiev      22.30
Berlin    Odesa     09.00
Rum       Kiev      19.50
Yalta     Parish    19.30
Xarkiv    Kiev      15.25

 

[Vladimir_S]

Ну извольте (как видите, не так-то уж и просто):

var
 myfile: text;
 S,zvidku,kyda,time: string;
 chas: real;
 i,Code:Integer;

begin
 assign(myfile ,'D:\poizd.txt');
 reset(myfile);
 while not eof (myfile) do
  begin
   readln(myfile,S);
   i:=1;
   zvidku:='';
   while S[i]<>' ' do
    begin
     zvidku:=zvidku+S[i];
     Inc(i);
    end;
   while S[i]=' ' do Inc(i);
   kyda:='';
   while S[i]<>' ' do
    begin
     kyda:=kyda+S[i];
     Inc(i);
    end;
   while S[i]=' ' do Inc(i);
   time:='';
   while i<=length(S) do
    begin
     time:=time+S[i];
     Inc(i);
    end;
   VAL(time,chas,Code);
   if (kyda='Kiev') and (chas>=19.0) then
    begin
     write(zvidku);
     for i:=length(zvidku)+1 to 10 do write(' ');
     writeln(kyda+'   '+time);
    end;
  end;
 close (myfile);
 readln
end.

 

[Pyx]

Спасибо, работает:tehnari_ru_288:

 

[Vladimir_S]

Спасибо, работает

В принципе, если структура входного файла жестко задана по позициям, то можно и существенно короче, как Вы с самого начала хотели, т.е. используя размерные строки. Но тогда так:

var
 myfile: text;
 zvidku,kyda: string[10];
 chas: real;
 i:Integer;

begin
 assign(myfile ,'D:\poizd.txt');
 reset(myfile);
 while not eof (myfile) do
  begin
   readln(myfile,zvidku,kyda,chas);
   if (kyda='Kiev      ') and (chas>=19.0) then
    begin
     write(zvidku);
     for i:=length(zvidku)+1 to 10 do write(' ');
     writeln(kyda,chas:7:2);
    end;
  end;
 close (myfile);
 readln
end.

 

[Pyx]

супер, все запускается:tehnari_ru_203:

 

[Pyx]

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

 

[Vladimir_S]

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

Пожалуйста:

Var
 f:Text;
 n:Integer;
 C:Char;
BEGIN
 Assign(f,'D:\fff');
 Rewrite(f);
 Close(f);
 Repeat
  Write('Next n (Y/N)? ');
  Readln(C);
  If (C='Y') or (C='y') then
   begin
    Append(f);
    Write('n= ');
    Readln(n);
    Writeln(f,n);
    Close(f);
   end
   else
    begin
     Write('Show file (Y/N)? ');
     Readln(C);
     If (C='Y') or (C='y') then
      begin
       Reset(f);
       Repeat
        Readln(f,n);
        Write(n,' ');
       Until EoF(f);
       Close(f);
       Writeln;
      end;
     end;
 Until (C='N') or (C='n');
END.

 

[Pyx]

Var
f:Text;
n:Integer;
C:Char;
BEGIN
Assign(f,'D:\fff');
Rewrite(f);
Close(f);
Repeat
Write('Next n (Y/N)? ');
Readln(C);
If (C='Y') or (C='y') then
begin
Append(f);
Write('n= ');
Readln;
Writeln(f,n);
Close(f);
end
else
begin
Write('Show file (Y/N)? ');
Readln(C);
If (C='Y') or (C='y') then
begin
Reset(f);
Repeat
Readln(f,n);
Write(n,' ');
Until EoF(f);
Close(f);
Writeln;
end;
end;
Until (C='N') or (C='n');
END.

я что не понимаю.... ето не то что нужно((

 

[Vladimir_S]

я что не понимаю.... ето не то что нужно((

Тогда подробнее, пожалуйста - а что нужно? Программа принимает с клавиатуры число, записывает в конец файла, в любой момент выводит на экран содержимое файла, после чего можно продолжать добавление чисел, а можно выйти из программы. Что именно "не то"?

 

[Pyx]

Помогите с задачей:
нужно создать файл данных об ассортименте товаров: наименование, цена. Сюжет: цены на товар выросли на p%. Составьте программу, которая на базе предыдущего файла создает новый файл с такой структурой: название, старая цена, новая цена.

 

[Pyx]

Тогда подробнее, пожалуйста - а что нужно? Программа принимает с клавиатуры число, записывает в конец файла, в любой момент выводит на экран содержимое файла, после чего можно продолжать добавление чисел, а можно выйти из программы. Что именно "не то"?

вот я сделала, но я не могу понять почему оно не меняет местами????

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var fail: file of integer;
    i,n,k,cum:integer;
begin
 write ('vvedit kilkist elementiv faily:');
 readln(n);
 assign (fail,'fail1');
 rewrite (fail);
 for i:=1 to n do
 begin
        write('vvedit ',i,'-i element faily:');
        readln(k);
        write(fail,k);
 end;
 reset (fail);
 while not eof(fail) do
 begin
 read (fail,k);
 write (k,' ');
 end;
 readln;
 close (fail);

 write ('element jakui treba dodatu y kinec faily:');
 readln (cum);
 rewrite (fail);
seek (fail,filesize(fail));
write (fail,cum);
close (fail);

reset (fail);
while not eof(fail) do
begin
read (fail,k);
write (k,' ');
end;
 close(fail);

 readln;
end.

:tehnari_ru_121:

 

[Pyx]

нужно создать 2 файла ввести в него информацию и закрыть затем нужно чтобы открылся новый файл с информацией

 

[AlexZir]

Для закрытия файла используйте команду close(fail) перед командой reset(fail) ) Только я вас не пойму, вам же, вроде как, надо решить на Delphi эту задачу или я не прав? И тему вы, вроде как, уже создали соответствующую: http://www.tehnari.ru/f43/t61389/

 

[Pyx]

Для закрытия файла используйте команду close(fail) перед командой reset(fail) ) Только я вас не пойму, вам же, вроде как, надо решить на Delphi эту задачу или я не прав? И тему вы, вроде как, уже создали соответствующую: http://www.tehnari.ru/f43/t61389/

сегодня мне сказали что эту задачу нужно разрешить таким образом, создать 1 файл открыть его для записи, внести в него данные, закрыть .. затем снова открыть записать в него данные закрыть и открыть его с новити данным.

 

[AlexZir]

То есть вам нужно создать исходный файл, потом его же изменить и вывести измененные данные на экран?

 

[Pyx]

То есть вам нужно создать исходный файл, потом его же изменить и вывести измененные данные на экран?

да... но у меня не получается((((