Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Kosmonaft
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 35
1

Создать текстовый файл занести в него пару фамилий а потом еще добавить в него несколько фамилий(расширить/дополнить))

12.04.2010, 21:48. Просмотров 556. Ответов 3
Метки нет (Все метки)

Смысл програмки:создать текстовый файл занести в него пару фамилий а потом еще добавить в него несколько фамилий(расширить/дополнить))..програмку написал но что-то в ней не так ну не хочет работать как ей завещал Ленин!
собственно вот текст програмки:
program TextFiles;
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Uses crt;
type
dlina=string[200];
var
ft:text;
s:dlina;
rej:char;
Filee:string[20];
procedure obrt(Var stro:text);
begin
write('name entering file:');
readln(Filee);
Assign(stro, Filee);
{$I-}
reset(stro);
if Ioresult<>0
then begin writeln ('File', Filee, 'ne found');
exit
end;
{$I+}
while not SeekEof (stro) do
begin
readln(stro, s);
writeln(s);
end;
end;
{izmenenie faila}
Procedure rasht (var stro:text);
begin
repeat
writeln('name izm faila');
readln(Filee);
Assign(stro, Filee);
{$I-}
Append(stro)
{$I+}
until IOresult=0;
while true do
begin
writeln('enter string');
readln(s);
if s='zzz'
then begin close(stro);
exit
end;
writeln(stro, s);
end;
end;
{create the file}
procedure sozdt(var stro:text);
begin
writeln('name sozd faila');
read (filee);
assign(stro, Filee);
rewrite(stro);
while true do
begin
writeln('enter string(zzz-end of enter)');
readln(s);
if s='zzz' then begin
close(stro);
exit
end;
writeln(stro, s);
end;
end;
{main program}
begin
while true do
begin
clrscr;
writeln('ykashi reshim');
writeln('1:sozd faila');
writeln('2:vivod faila');
writeln('3:rasshirenie faila');
writeln('4:exit');
readln(rej);
writeln;
case rej of
'1':sozdt(ft);
'2':obrt(ft);
'3':rasht(ft);
'4':halt;
else
writeln('replay the enter');
end;
writeln('for contine pushe Enter');
readln;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2010, 21:48
Ответы с готовыми решениями:

Создать другой текстовый файл, содержащий отсортированный список фамилий из исходного
Помогите дописать программу. Вот задание: Текстовый файл содержит список...

Текстовый файл содержит список фамилий и должность сотрудников. Сформировать текстовый файл, содержащий фамил
Текстовый файл содержит список фамилий и должность сотрудников. Сформировать...

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

Создать текстовый файл, записать в него любые символы, и вывести max и min
Всем доброго времени суток, помогите с задачей. Нужно написать программу,...

Создать текстовый файл (txt) записать в него английские буквы и цифры и сместить их на к-элементов вправо
создать текстовый файл(txt) записать в него английские буквы и цифры и сместить...

3
tyz
356 / 319 / 49
Регистрация: 21.04.2009
Сообщений: 575
12.04.2010, 22:21 2
А это что???
Цитата Сообщение от Kosmonaft Посмотреть сообщение
s:dlina;
0
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
12.04.2010, 22:28 3
tyz,
Pascal
1
2
type
dlina=string[200];
1
Kosmonaft
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 35
13.04.2010, 18:45  [ТС] 4
ну ввел такой тип dlina

Добавлено через 12 минут
програмка вроде написана не плохо но...что-то ана не так делает

Добавлено через 46 минут
Работает однака!!!коряво но работает и работает проавильно!!удивительно
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2010, 18:45

Дан текстовый файл. Удалить из него пустые строки
Дан текстовый файл.Удалить из него пустые строки!Люди в долгу не останусь...

Даны несколько фамилий. Определите,имеется ли среди них заданная.
Помогите пожалуйста с двумя задачами. 1.Даны три двухбуквенных слога....

Дан не пустой текстовый файл. Удалить из него нечетные строки
4) Дан не пустой текстовый файл. удалить из него нечетные строки.


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

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

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