Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [pascal] файлы 
:(
    Опции темы
Dimon5
Дата 29.5.2008, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Всем доброго времени суток.

Помогите пожалуйста написать программу.

Нужно cоздать файл символов (символы вводятся с клавиатуры). Вывести на экран символы
с пятого по пятнадцатый,
с третьего по двадцатый,
с k-го по s-ый.
используя в программе процедуру Seek. Предусмотреть так же в программе вывод соответствующего сообщения, если в файле не оказалось нужных элементов.

Добавлено @ 13:42
Вот так примерно это должно выглядеть
Код

Program fail;
Var s1:char;
FileName:String;
FVar:file of char;
i:integer;
begin
Write (‘введите имя файла’);
readln(filename); 
assign (FVar,FileNane);
rewrite(FVar);
for i:=l to 20 do
Begin
readln(sl);
Write(FVar,sl);
end;
For i:=5 to 15 do 
Begin 
Seek(FVar,i);
read(FVar,sl);
write(sl);
end;
for i:=3 to 20 do
Begin
Seek(FVar,i);
read(FVar,s1);
write(s1);
end;
end.

помогите дописать и если есть ошибки то исправить.

Это сообщение отредактировал(а) Rodman - 29.5.2008, 15:12
PM MAIL   Вверх
Rodman
Дата 29.5.2008, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


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

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

Program fail;
Var s1:char;
      FileName:String;
      FVar:file of char;
      i:integer;
begin
   Write (‘введите имя файла’);
   readln(filename); 
   assign (FVar,FileNane);
   rewrite(FVar);
   for i:=l to 20 do
   Begin
     readln(sl);
     Write(FVar,sl);
  nd;
  For i:=5 to 15 do 
  Begin 
   Seek(FVar,i-1);
   read(FVar,sl);
   write(sl);
  end;
  for i:=3 to 20 do
  Begin
    Seek(FVar,i-1);
    read(FVar,s1);
    write(s1);
  end;
  Close(fVar);
end.
а что конкретно не получается?


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

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


Новичок



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

Репутация: нет
Всего: нет
Ошибка какая то была 
вывод с k-го по s-ый не сделал
ну и сообщение если таких элементов нету.
PM MAIL   Вверх
Rodman
Дата 30.5.2008, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


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

Репутация: 26
Всего: 122
Цитата(Dimon5 @  30.5.2008,  08:29 Найти цитируемый пост)
Ошибка какая то была 

сказал как отрезал!
Код

Program fail;
Var s1:char;
      FileName:String;
      FVar:file of char;
      i, k, s:integer;
begin
   Write (‘введите имя файла’);
   readln(filename); 
   assign (FVar,FileNane);
   rewrite(FVar);
   for i:=l to 20 do
   Begin
     readln(sl);
     Write(FVar,sl);
  end;
  writeln('Enter K');
  read(k);
  writeln('Enter S');
  read(S);
  For i:=5 to 15 do 
  Begin 
   Seek(FVar,i-1);
   read(FVar,sl);
   write(sl);
  end;
  for i:=3 to 20 do
  Begin
    Seek(FVar,i-1);
    read(FVar,s1);
    write(s1);
  end;
  if((s<=20)and(k<s))then
  for i:=k to s do
  Begin
    Seek(FVar,i-1);
    read(FVar,s1);
    write(s1);
  end; 
  Close(fVar);
end.
так должно намана быть!


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

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


Новичок



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

Репутация: нет
Всего: нет
Пасибы.
Когда проверю отпишусь.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

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

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


 




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


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

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