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

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

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

1

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

2

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

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

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

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

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

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

1
Puporev
Модератор
54701 / 42113 / 29079
Регистрация: 18.05.2008
Сообщений: 99,392
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