Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
4 / 4 / 0
Регистрация: 28.02.2012
Сообщений: 29
1

Создание и обработка файлов. Создать файл, элементами которого являются сведения о ягодах: название, месяц цветения и месяц сбора

03.06.2012, 20:08. Показов 720. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста
Создать файл, элементами которого являются сведения о ягодах: название, месяц цветения и месяц сбора. Вывести на экран название самой ранней цветущей ягоды и самой поздней по времени сбора
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2012, 20:08
Ответы с готовыми решениями:

Создать файл, элементами которого являются сведения о городах: название, численность населения, территория
ваще не знаю как это делать((хелп((с файлами беда.. Создать файл,элементами которого являются...

Создать файл с полями: название магазина, месяц, объем продаж за месяц
Создать файл с полями: название магазина, месяц, объем продаж за этот месяц. Подсчитать количество...

Создать файл, элементами которого являются сведения о деревьях
Создать файл, элементами которого являются сведения о деревьях: наименование, место...

Создать файл, элементами которого являются сведения о городах
Создать файл, элементами которого являются сведения о городах: Название, число жителей, Удаленность...

3
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
04.06.2012, 16:03 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
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
91
92
93
94
95
96
97
98
uses crt;
const line='------------------------------------------------------';
      shap='|      Название       | Месяц цветения | Месяц сбора |';
      tg=2012;
 
type berry = record
     nam:  string[20];
     zvt:  1..12;
     sbr:  1..12;
     end;
 
var f: file of berry; v: byte;
 
procedure Vvod (var ff: file of berry);
var i,n: integer; b: berry;
begin
clrscr;
assign(ff,'D:\BD.dta');
rewrite(f);
write('Количество записей: '); readln(n);
writeln('Внесите данные:');
for i:=1 to n do
    with b do
         begin
         write('Название: '); readln(nam);
         write('Месяц цветения: '); readln(zvt);
         write('Месяц сбора: '); readln(sbr);
         write(ff,b);
         end;
close (ff);
end;
 
procedure Vyvod (ff: file of berry);
var b: berry;
begin
clrscr;
assign(ff,'D:\BD.dta');
reset(ff);
writeln('Сведения о ягодах ');
writeln(line);
writeln(shap);
writeln(line);
while not (eof(ff)) do
      begin
      read(ff,b);
      with b do writeln('|',nam:20,'|':2,zvt:10,'|':7,sbr:7,'|':7);
      writeln(line);
      end;
writeln(line);
close (ff);
end;
 
procedure Find (ff: file of berry);
var b: berry; tz,ts: byte;
begin
clrscr;
tz:=13; ts:=0;
assign(ff,'D:\BD.dta');
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,b);
      if b.zvt<tz then tz:=b.zvt;
      if b.sbr>ts then ts:=b.sbr;
      end;
reset(ff);
writeln('Самые рано цветущие ягоды:');
while not (eof(ff)) do
      begin
      read(ff,b);
      if b.zvt=tz then writeln(b.nam);
      end;
writeln(line);
reset(ff);
writeln('Самые поздно собираемые ягоды:');
while not (eof(ff)) do
      begin
      read(ff,b);
      if b.sbr=ts then writeln(b.nam);
      end;
close (ff);
end;
 
begin
v:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных');
writeln('2-вывод данных');
writeln('3-поиск самой рано цветущей и самой поздно собираемой ягоды');
readln(v);
case v of
1: Vvod (f);
2: Vyvod (f);
3: Find (f);
end;
until v=0;
end.
1
4 / 4 / 0
Регистрация: 28.02.2012
Сообщений: 29
06.06.2012, 17:30  [ТС] 3
задача:
Создать файл, элементами которого являются сведения о ягодах: название, месяц цветения и месяц сбора. Вывести на экран название самой ранней цветущей ягоды и самой поздней по времени сбора.
сделать так ,что бы можно было ещё добавить данные помимо ранее записанных(не удаляя ранее созданных используя ввод данных);
то что есть
(извините не знаю как вставить )
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
06.06.2012, 20:24 4

Не по теме:

pygowka, не стоит задавать такие вопросы в отдельных темах, спрашивайте в той же, ок?


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
91
92
93
94
95
96
97
98
99
uses crt;
const line='------------------------------------------------------';
      shap='|      Название       | Месяц цветения | Месяц сбора |';
      tg=2012;
 
type berry = record
     nam:  string[20];
     zvt:  1..12;
     sbr:  1..12;
     end;
 
var f: file of berry; v: byte;
 
procedure Vvod (var ff: file of berry);
var i,n: integer; b: berry;
begin
clrscr;
assign(ff,'D:\BD.dta');
reset(ff);
write('Количество записей: '); readln(n);
writeln('Внесите данные:');
for i:=1 to n do
    with b do
         begin
         write('Название: '); readln(nam);
         write('Месяц цветения: '); readln(zvt);
         write('Месяц сбора: '); readln(sbr);
         seek(ff,filesize(ff));
         write(ff,b);
         end;
close (ff);
end;
 
procedure Vyvod (ff: file of berry);
var b: berry;
begin
clrscr;
assign(ff,'D:\BD.dta');
reset(ff);
writeln('Сведения о ягодах ');
writeln(line);
writeln(shap);
writeln(line);
while not (eof(ff)) do
      begin
      read(ff,b);
      with b do writeln('|',nam:20,'|':2,zvt:10,'|':7,sbr:7,'|':7);
      writeln(line);
      end;
writeln(line);
close (ff);
end;
 
procedure Find (ff: file of berry);
var b: berry; tz,ts: byte;
begin
clrscr;
tz:=13; ts:=0;
assign(ff,'D:\BD.dta');
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,b);
      if b.zvt<tz then tz:=b.zvt;
      if b.sbr>ts then ts:=b.sbr;
      end;
reset(ff);
writeln('Самые рано цветущие ягоды:');
while not (eof(ff)) do
      begin
      read(ff,b);
      if b.zvt=tz then writeln(b.nam);
      end;
writeln(line);
reset(ff);
writeln('Самые поздно собираемые ягоды:');
while not (eof(ff)) do
      begin
      read(ff,b);
      if b.sbr=ts then writeln(b.nam);
      end;
close (ff);
end;
 
begin
v:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных');
writeln('2-вывод данных');
writeln('3-поиск самой рано цветущей и самой поздно собираемой ягоды');
readln(v);
case v of
1: Vvod (f);
2: Vyvod (f);
3: Find (f);
end;
until v=0;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2012, 20:24

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Создать файл, элементами которого являются сведения о городах
8.7 Создать файл, элементами которого являются сведения о городах: название, число жителей,...

Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочим за месяц
Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочим за...

Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочими за месяц
Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочими за...

Создать файл, содержащий сведения о количестве изделий категорий А, В, С, собранных рабочим за месяц
А. Создать файл, содержащий сведения о количестве изделий категорий А, В, С, собранных рабочим за...


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

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

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