158 / 1 / 0
Регистрация: 14.09.2009
Сообщений: 58
|
|
1
|
Нужно переделать прогу!
24.01.2010, 22:51. Показов 459. Ответов 0
есть две программы
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
| program zzz;
var
b,l,a,m:string;
e,n:text;
f:char;
begin
write('Введите полное имя создоваемого файла: ');
readln(b);
assign(e,b); rewrite(e);
writeln('Введите текст: ');
repeat
write('->'); readln(l); writeln(e,l);
write('Продолжить? y / n : ');
readln(f);
until (f='n');
write('Введите полное имя создоваемого файла: ');
readln(a);
assign(n,a); rewrite(n);
reset(e);
repeat
readln(e,m); writeln(n,m);
if not eof(e) then
write(n,#13);
until eof(e);
close(n);
close(e);
end. |
|
её нужно преобразовать таким образом, чтобы она создала 2 текстовых файла q.txt и a.txt которые будут содержать вопросы и ответы на них. Потом нужно создать новый файл qa.txt, который будет содержать вопросы и ответы из файлов q.txt и a.txt. Так же вывести на экран вопросы и ответы
2-я
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
| Program zzzzz;
Uses
Crt;
var
i:integer;
f,n:file of real;
c,l,m:real;
a,b:string;
s:longint;
g,d:char;
Begin
ClrScr;
randomize;
write('Введите полное имя создаваемого файла: ');
readln(b);
assign(f,b); rewrite(f);
for i:=1 to 8 do
begin
c:=(random(9))/10000+(random(9))/1000+(random(9))/100+(random(9))/10+(random(9));
write(f,c);
end;
write('Нужно болше 8 вещественных чисел? (y/n) : ');
readln(g);
if g='y' then
begin
seek(f,filepos(f));
repeat
write('Введите вещественное число : ');
read(c);
write(f,c);
write('Продолжить? (y/n) : ');
readln(d);
readln;
until d<>'n';
end;
write('Введите полное имя второго создаваемого файла: ');
readln(a);
assign(n,a); rewrite(n);
reset(f);
writeln('Элементы исходного файла:');
while not eof(f) do
begin
read(f,l);
writeln(l:5:4);
if m<l then
begin
m:=l;
s:=filepos(f)-1;
end;
write(n,l);
end;
seek(n,s);
write(n,0);
reset(n);
writeln('Элементы результирующего файла:');
while not eof(n) do
begin
read(n,l);
writeln(l:6:4);
end;
close(f);
close(n);
readln;
end. |
|
Эту прогу нужно переделать так, чтобы она создала файл, компоненты (количество <=10) которого являются слова. После создания файла значения его компонент чётными номерами заменить словом "пусто" исоходный и результирующий файлы вывести на экран.
Заранее спасибо!
0
|