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

Задача на файл и задача на создание очереди - Pascal

06.03.2009, 12:17. Просмотров 1178. Ответов 1
Метки нет (Все метки)

1

Дан символьный файл, содержащий, по крайней мере, один символ пробела. Удалить из файла все символы, предшествующие пробелу

2

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

Задача на сортировку очереди
Доброе утро, господа программисты:) Меня в тупик поставила следующая задача....

Задача: В некотором государстве ввели компьютерный паспорт гражданина.(задача)
Доброго времени суток,форумчане. Хотелось бы попросить помощи в решении одной...

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

Задача на k-тую цифру последовательности, задача на схему Горнера.
Ну, собственно опять прошу помощи... Задача 1: Определить k-тую цифру...

Задача на файл
Даны следующие описания переменных: type data=record; месяц:...

Задача на файл
Программа должна вычислять количество слов в текстовом файле, которые...

1
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
06.03.2009, 14:39 #2
Лучший ответ Сообщение было отмечено Halva как решение

Решение

№1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
var f:file of char;
    c:char;
    n,i,k:integer;
begin
clrscr;
write('Kolichestvo simvolov n=');
readln(n);
assign(f,'file1.dat');
rewrite(f);
Writeln('Vvedite simvoly, minimum 1 probel:');
for i:=1 to n do
  begin
    readln(c);
    write(f,c);
  end;
reset(f);
k:=0;i:=0;
while not eof(f) do
  begin
    read(f,c);
    if c=' ' then
      begin
       k:=i;{запоминаем позицию первого пробела}
       break;{дальше не ищем}
      end
    else i:=i+1;{если не пробел, считаем}
  end;
close(f);
writeln('Ishodnyj fail:');
reset(f);
while not eof(f) do
  begin
   read(f,c);
   write(c,' ');{выводим исходный файл}
 end;
writeln;
writeln;
close(f);
reset(f);
for i:=k to filesize(f)-1 do {от пробела до конца файла}
  begin
    Seek(f,i);{становимся в очередную позицию}
    Read(f,c);{запоминаем символ}
    Seek(f,i-k);{становимся с начала по порядку}
    Write(f,c);{вставляем символ}
  end;
Seek(f,filesize(f)-k);{становимся на последний символ}
truncate(f);{обрезаем остатки файла}
close(f);
writeln('Rezultat:');
reset(f);
while not eof(f) do
  begin
   read(f,c);
   write(c,' ');
 end;
close(f);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2009, 14:39
Привет! Вот еще темы с решениями:

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

задача на типизированный файл!!
Помогите пожалуйста! Багаж пассажира характеризуется количеством вещей и...

Задача на файл из строк.
каждая строка содержит группу студента, фамилию и оценку за экзамен. нужно...

Задача с использованием структуры «файл»
Дан файл, содержащий различные даты. Каждая дата — это число, месяц и год....


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

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

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