Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите с прогой, не могу понять че не работает 
V
    Опции темы
TwisT_X
  Дата 23.12.2006, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


It's works!
**


Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.2.2005
Где: Earth

Репутация: нет
Всего: 4
Ох.. как долго меня тута не было.. Но я вернулся.. Мне в Академии надо сделать РГЗ(дом. задание) первый номер я сделал а вот с вторым проблема.. Помогите плиз.. Вот условие:
   Создать текстовый фаил, содержащий несколько строк:
 - вывести на экран группы цифр начин-ся с числа "5".
 - удалить все "." из текста.
Я пока изучаю тока паскаль на консоле в Дельфи 7..
Вот что я уже набросал.. тока почемута не че не получается.. Проверьте, исправте плиз, и подскажите:

Код

program RGZ2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var MyText: Text;
    s1, stroki: string;
    y, i, k, t: longint;

begin
     Assign(MyText, stroki);
     ReWrite(MyText);
     While not (EOF(MyText)) do
     begin
          Assign(MyText, stroki);
          ReadLn(Stroki);
          Writeln(MyText, stroki);
     end;
     Reset(MyText);
     k:= Filesize(MyText);
     for i:= 0 to k do
     begin
          for t:= 1 to length(s1) do
               if s1[t] = '5' then
          y:= t;
          repeat
               Read(MyText, y);
               Write(y);
               y:= y + 1;
          Until y <> ord(' ');
     end;
     Close(MyText);
     readln;
end.


Я точно знаю что тут ошибки есть но незнаю что и как исправить =).. зарание благадарю.. smile 


--------------------
Если ты упадешь я буду рядом. (с) Асфальт
PM MAIL WWW   Вверх
Rodman
Дата 23.12.2006, 14:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122
Код

program RGZ2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var MyText, OutText: Text;
    s1, stroki,s2: string;
    y, i, k, t: longint;
begin
     stroki:='c:\file.txt';
     Assign(MyText, stroki);
     Reset(MyText);
     while(not eof(MyText))do
     begin
      Readln(MyText, s1);
      for i:=1 to Length(s1) do
      begin
        if(s1[i] in ['1'..'5'])then
          s2:=s2+s1[i]+', ';
        if(s1[i]='.')then
          Delete(s1, i, 1);
        Writeln(s1);
      end;
     end;
     Writeln(s2);
     {ReWrite(MyText);
     While not (EOF(MyText)) do
     begin
          Assign(MyText, stroki);
          ReadLn(Stroki);
          Writeln(MyText, stroki);
     end;
     Reset(MyText);
     k:= Filesize(MyText);
     for i:= 0 to k do
     begin
          for t:= 1 to length(s1) do
               if s1[t] = '5' then
          y:= t;
          repeat
               Read(MyText, y);
               Write(y);
               y:= y + 1;
          Until y <> ord(' ');
     end;}
     Close(MyText);
     readln;
end.


а мне кажется так...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
TwisT_X
Дата 23.12.2006, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


It's works!
**


Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.2.2005
Где: Earth

Репутация: нет
Всего: 4
А как понять вот это: "stroki:='c:\file.txt';" ?
И у меня почему то прога откомпилировалась а вот работать не хочет..
при запуске ехе файла пишет типа "неизвестное програмное исключение"
у тя работает, Rodman?


--------------------
Если ты упадешь я буду рядом. (с) Асфальт
PM MAIL WWW   Вверх
Rodman
Дата 23.12.2006, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122
TwisT_X, создай файл с таким имененем с которым ты будешь работать...

Твоя исходная прога вооще ничео не открывала..


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
volvo877
Дата 23.12.2006, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
TwisT_X, Тема будет переименована (тобой) или закрыта (мной)? Выбирай...
PM MAIL   Вверх
Zero
Дата 23.12.2006, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(TwisT_X @  23.12.2006,  14:25 Найти цитируемый пост)
А как понять вот это: "stroki:='c:\file.txt';" 

Это значит, что в переменную stroki заноситься путь к файлу... А потом командой
Код

Assign(MyText, stroki);
 он связываеться с файловой переменной MyText, что у тебя небыло сделано, и файл какбы открывался по неизвесному пути. smile 
Цитата(TwisT_X @  23.12.2006,  14:25 Найти цитируемый пост)
И у меня почему то прога откомпилировалась а вот работать не хочет..
при запуске ехе файла пишет типа "неизвестное програмное исключение"
у тя работает, Rodman?

TwisT_X, а у тебя по пути c:\file.txt есть какой-нибудь текстовый файл? Если нет, то конечно при попытки открыть несуществующий файл будет выдана ошибка отсутствия файла.
PM MAIL ICQ   Вверх
TwisT_X
Дата 23.12.2006, 14:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


It's works!
**


Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.2.2005
Где: Earth

Репутация: нет
Всего: 4
volvo877, как ее переименовать? Может ты сам переименуешь как тебе надо плиз?  smile 


--------------------
Если ты упадешь я буду рядом. (с) Асфальт
PM MAIL WWW   Вверх
TwisT_X
Дата 23.12.2006, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


It's works!
**


Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.2.2005
Где: Earth

Репутация: нет
Всего: 4
ЗЕРО, нам на лекциях объясняли что если не указывать путь то файл будет создаваться там де находица сама прога.. и создавать фаил будет сама прорамма..  а то что пишешь ты это получаеца все не так как нам говорят.. или я че нить не понимаю?


--------------------
Если ты упадешь я буду рядом. (с) Асфальт
PM MAIL WWW   Вверх
Zero
Дата 23.12.2006, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(TwisT_X @  23.12.2006,  15:24 Найти цитируемый пост)
или я че нить не понимаю?

по умолчанию если путь не указан, то он соответствует путю к текущему исполняемому файлу запуска программы + имя файла которое ты даш своему файлу.
А у тебя само имя файла не указано... smile Т.е. если ты напишеш так:
Код

Assign(MyText, 'file.txt');
 и где exe-шник положеш файл file.txt, то ничего страшного не произойдёт, иначе программа же не телепатка... smile 
PM MAIL ICQ   Вверх
TwisT_X
Дата 23.12.2006, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


It's works!
**


Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.2.2005
Где: Earth

Репутация: нет
Всего: 4
Все теперь дошло.. нам на лекции этого не говорили.. smile 
Спасибо.. Фиговый значит у нас лектор  smile 


--------------------
Если ты упадешь я буду рядом. (с) Асфальт
PM MAIL WWW   Вверх
Rodman
Дата 23.12.2006, 15:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122
Цитата(TwisT_X @  23.12.2006,  14:46 Найти цитируемый пост)
Фиговый значит у нас лектор  smile  

поосторожнее, вдруг он тут седит...

так с прогой закончили? тогда пометь как решенный


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

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

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1036 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.