Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Halva
24 / 24 / 2
Регистрация: 02.11.2008
Сообщений: 118
#1

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

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

1

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

2

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

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

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

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

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

Задача на файл - Pascal
Даны следующие описания переменных: type data=record; месяц: (янв,фев,март,....декабрь); число:1..31; end; FD=file of data; ...

Задача на файл - Pascal
Программа должна вычислять количество слов в текстовом файле, которые оканчиваются на гласную букву. В результате в среде TP7 выдается...

1
Puporev
Модератор
52847 / 40658 / 13911
Регистрация: 18.05.2008
Сообщений: 94,385
06.03.2009, 14:39 #2
№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
Привет! Вот еще темы с ответами:

задача на типизированный файл!! - Pascal
Помогите пожалуйста! Багаж пассажира характеризуется количеством вещей и общим весом вещей. 1) Сформировать файл Bagazh, содержащий...

Задача на файл из строк. - Pascal
каждая строка содержит группу студента, фамилию и оценку за экзамен. нужно задать шифр группы с клавиатуры и чтоб программа вывела фамилии...

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

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


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

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

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