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

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

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

1

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

2

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

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

Задача на обслуживание транзактов в очереди
Вот условие: В очереди стоят три транзакта с номерами 1, 2, и 3. В момент появления четвертого...

Определить время пребывания в очереди каждого клиента
Помогите пожалуйста решите в Матлабе (желательно 6,т.к. в универе старая версия установлена).Совсем...

Задача: 2 очереди - 2 сервера, правильно ли написано?
Доброго времени суток! Есть задача для решения по ГПСС - не сложная, но ввела в тупик. ...

1
Puporev
Модератор
59361 / 44804 / 30921
Регистрация: 18.05.2008
Сообщений: 107,465
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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2009, 14:39

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

Задача многопоточного архивирования файлов. Элементы в очереди не по порядку
Поставлена задача многопоточного архивирования файлов. Есть 3 метода: Считать Из Файла Блок...

Задача на тему Стеки, очереди, деки, списки, кольца
Программа на вход получает список школьников следующего вида: 9 Иванов 10 Петров ...

Задача с очередью. Составить программу для ведения очереди и учета количества компьютеров в филиалах
Имеется следующая задача: Поставщик направляет товар Заказчику. Заказчик имеет сеть филиалов....

Создание очереди и удаление элемента очереди по усмотрению пользователя
Вот код он создает очередь и должен удалить элемент очереди по усмотрению пользователя проблема...


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

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

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