2 / 2 / 0
Регистрация: 13.06.2012
Сообщений: 12
1

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

15.06.2012, 16:26. Показов 1056. Ответов 1
Метки нет (Все метки)

Создать файл, элементами которого являются сведения о деревьях: наименование, место распространения, высота. Вывести на экран высоту дерева и среднюю высоту всех деревьев.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2012, 16:26
Ответы с готовыми решениями:

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

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

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

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

1
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
16.06.2012, 18:35 2
Лучший ответ Сообщение было отмечено hellbringer как решение

Решение

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='|     Название    |Место распространения| Высота |';
 
type tree = record
     nam:  string[10];
     are:  string[20];
     hig:  real;
     end;
 
var f: file of tree; v: byte;
 
procedure Vvod (var ff: file of tree);
var i,n: integer; b: tree;
begin
clrscr;
assign(ff,'D:\BD.dta');
rewrite(ff);
write('Количество записей: '); readln(n);
writeln('Внесите данные:');
for i:=1 to n do
    with b do
         begin
         write('Название: '); readln(nam);
         write('Место распространения: '); readln(are);
         write('Высота: '); readln(hig);
         write(ff,b);
         end;
close (ff);
end;
 
procedure Vyvod (ff: file of tree);
var b: tree;
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:15,'|':2,are:21,'|':2,hig:7:2,'|':2);
      writeln(line);
      end;
writeln(line);
close (ff);
end;
 
procedure Find (ff: file of tree);
var b: tree; d: string;
begin
clrscr;
assign(ff,'D:\BD.dta');
write('Название для поиска: '); readln(d);
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,b);
      if b.nam<d then writeln(b.hig:0:2);
      end;
close (ff);
end;
 
function SrH (ff: file of tree): real;
var b: tree; s: real; k: integer;
begin
s:=0; k:=0;
assign(ff,'D:\BD.dta');
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,b);
      s:=s+b.hig;
      inc(k);
      end;
close (ff);
if k>0 then SrH:=s/k;
end;
 
begin
v:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных');
writeln('2-вывод данных');
writeln('3-вывод высоты дерева по названию');
writeln('4-вывод средней высоты всех деревьев');
readln(v);
case v of
1: Vvod (f);
2: Vyvod (f);
3: Find (f);
4: writeln ('Средняя высота всех деревьев=',SrH (f):0:24);
end;
until v=0;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.06.2012, 18:35

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

Создать файл F, элементами которого являются целочисленные массивы
Создать файл F, элементами которого являются целочисленные массивы a1a2…a5. Для каждого массива...

Создать на диске типизированный файл, элементами которого являются целые числа
Создать на диске D типизированный файл d:Petia элементами которого являются целые числа, вводимые с...

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

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

Создать список, элементами которого являются 2^n
Создать список, элементами которого являются 2^n,n!, члены последовательности Фибоначчи


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

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

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