В файле хранится информация о книгах: название, автор, стоимость. Найти количество книг со стоимостью не ниже заданной Х. Переписать эти данные в новый файл.
Добавлено через 4 часа 52 минуты
вот что я написал по примеру который нашол:
| 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
| program biblioteka;
type fam=record
ff:string [20];
nazvanie:char;
avtor:char;
cena:integer;
end;
var f:file of fam;
fb:fam;
n,i:integer;
fff:string[20];
key:boolean;
begin
assign(f,'a.dat');
rewrite (f);
writeln ('ââåäèòå êîëè÷åñòâî äàííûõ')
writeln ('ââåäèòå äàííûå')
readln;
for i:=1 to n do
begin
readl (fb:ff; fb.nazvanie,fb.avtor,fb.cena);
write (f.fb);
end,
close (f);
writeln ('Ââåäèòå öåíó êíãè')
readln (fff);
key:=false;
reset (f);
while (not EOF(f)) and (not key) do
begin
writeln ('Data:fb.nazvanie,fb.avtor,fb.cena')
key:=true;
end;
end;
if not key:=true
writeln ('íåò äàííûõ');
close (f);
end. |
|
проверьте пожалуста, и исправте ошибки...нужна завтра срочно...
Добавлено через 12 минут
ну тут я немного мозгами пороскинул и исправил:
| 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
| program biblioteka;
type fam=record
ff:string [20];
nazvanie:char;
avtor:char;
cena:integer;
end;
var f:file of fam;
fb:fam;
n,i:integer;
fff:string[20];
key:boolean;
begin
assign(f,'a.dat');
rewrite (f);
writeln ('введите количество данных')
writeln ('введите данные')
read(n);
for i:=1 to n do
begin
readl (fb:ff; fb.nazvanie,fb.avtor,fb.cena);
write (f.fb);
end,
close (f);
writeln ('Введите цену кнги')
readln (fff);
key:=false;
reset (f);
while (not EOF(f)) and (not key) do
begin
writeln ('Data:fb.nazvanie,fb.avtor,fb.cena')
key:=true;
end;
end;
if not key:=true
writeln ('нет данных');
close (f);
end. |
|
ну тут я ещё посидел:
| 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
| program biblioteka;
type fam=record
ff:string [20];
nazvanie:char;
avtor:char;
cena:integer;
end;
var f:file of fam;
fb:fam;
n,i:integer;
fff:string[20];
key:boolean;
begin
assign(f,'a.dat');
rewrite (f);
writeln('ââåäèòå êîëè÷åñòâî äàííûõ');
writeln('ââåäèòå äàííûå');
ReadLn;
for i:=1 to n do
begin
readln (fb:ff; fb.nazvanie,fb.avtor,fb.cena);
write (f.fb);
end,
close (f);
writeln ('Ââåäèòå öåíó êíãè')
readln (fff);
key:=false;
reset (f);
while (not EOF(f)) and (not key) do
begin
writeln ('Data:fb.nazvanie,fb.avtor,fb.cena');
key:=true;
end;
end;
if not key:=true
writeln ('íåò äàííûõ');
close (f);
end. |
|
но далше немогу понять причину ругательства програмы(((
помогите.....
(
