Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
anija05
0 / 0 / 0
Регистрация: 11.11.2008
Сообщений: 6
#1

Работа с файловым типом данных - Pascal

11.11.2008, 00:34. Просмотров 708. Ответов 4
Метки нет (Все метки)

Записать в файл f последовательного доступа N натуральных чисел. Получить в другом файле последовательного доступа все компоненты файла f, кроме тех, которые кратны K. Вывести полученный файл на печать.
http://www.cyberforum.ru/pascal/thread27383.html

Помогите пожалуйста бедной студентке решить задачку))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.11.2008, 00:34
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Работа с файловым типом данных (Pascal):

Работа с типом "запись"
Есть прога, которая по идее должна выводить список отличников: type...

Ошибка с типом Запись
Столкнулся с такой проблемой: Pascal ABC не может считать с файла строку...

Задача с перечисляемым типом
Плывёт корабль по заданному начальному курсу. курс = (север, восток, юг,...

Ошибка с типом String
Не могу понять в чём ошибка, почему-то для слов "привет как дела.", он делает...

Сделать ввод данных с типом record. Не считываться String
Доброго времени суток. У меня такая проблема. Пытаюсь сделать ввод данных с...

4
MadMag
(Yellow_Duck)
1261 / 130 / 15
Регистрация: 16.10.2008
Сообщений: 733
11.11.2008, 01:04 #2
а...ет просто...
0
anija05
0 / 0 / 0
Регистрация: 11.11.2008
Сообщений: 6
11.11.2008, 09:04  [ТС] #3
а мне вот не просто(((
ну помогите кто нибудь! пожалуйста..
0
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
11.11.2008, 09:35 #4
Ну, тагда уж держи и эту, неуч.
Код
uses crt;
var f,g:text;
    n,a,i,k,j:Word;
begin
clrscr;
assign(f,'file1.txt');
rewrite(f);
assign(g,'file2.txt');
rewrite(g);
write('Vvedite kolichestvo chisel k=');
readln(n);
for i:=1 to n do
  begin
    readln(a); //читаем числа
    write(f,a,' '); //записываем в файл
   end;
reset(f);//открываем файл для чтения
clrscr;
write('k=');readln(k);//вводим число
i:=0;j:=0;
while not eof(f)and(i<n) do//пока не конец файла и не кончились числа
  begin
    i:=i+1;
    read(f,a);//читаем числа
    if a mod k<>0 then
      begin
       write(g,a,' ');  //если не кратные, записываем в новый файл
       j:=j+1; //считаем
      end;
  end;
reset(g);//открываем файл для чтения
Writeln('Fail rezultata G:');
i:=0;
while not eof(f)and(i<j) do
  begin
    i:=i+1;
    read(g,a);
    write(a,' ');
  end;
close(f);//закрываем файлы
close(g);
readln
end.
0
anija05
0 / 0 / 0
Регистрация: 11.11.2008
Сообщений: 6
11.11.2008, 22:26  [ТС] #5
спасибо вам большое!
0
11.11.2008, 22:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2008, 22:26
Привет! Вот еще темы с решениями:

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

Работа с файловым типом данных
Пусть дан файл целых чисел. Создайте новый файл, значения в который...

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

Работа с типом данных Long
Здравствуйте. У меня снова проблемы с передачей параметров в web-службу. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru