Форум программистов, компьютерный форум CyberForum.ru

Файлы и записи - C++

Восстановить пароль Регистрация
 
Саша...
0 / 0 / 0
Регистрация: 16.05.2011
Сообщений: 5
17.05.2011, 23:35     Файлы и записи #1
Помогите с решением пожалуйста, заранее спасибо.
Из заданного файла f, каждая запись которого содержит информацию о наибольших горных вершин мира (название, часть света, страна и высота вершины) сформулировать файл f1 из записями о вершинах, которые выше чем 3000 метров и находятся в Европе. Все файлы вывести на печать.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2011, 23:35     Файлы и записи
Посмотрите здесь:

C++ Бинарные файлы, функция записи в файл...
Записи C++
Файлы и записи C++
Есть в записи числа m цифры, которые совпадают с цифрами в записи числа n C++
Написать функции для чтения/записи отдельных бит для любой записи из данного набора C++
Вагон ошибок- посмотрите пожалуста. Основы записи в файлы C++
C++ Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Саша...
0 / 0 / 0
Регистрация: 16.05.2011
Сообщений: 5
27.05.2011, 23:35  [ТС]     Файлы и записи #2
Цитата Сообщение от Саша... Посмотреть сообщение
Помогите с решением пожалуйста, заранее спасибо.
Из заданного файла f, каждая запись которого содержит информацию о наибольших горных вершин мира (название, часть света, страна и высота вершины) сформулировать файл f1 из записями о вершинах, которые выше чем 3000 метров и находятся в Европе. Все файлы вывести на печать.
нужно тело программы

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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
Program prog1;
Uses crt;
Const b:array[1..6]of string[12]=
('vershyna1',' vershyna2',' vershyna3',
' vershyna4',' vershyna5',' vershyna6');
 
Type goru=record
nazva:string[20];
chastuna_svity:string[20];
kraina:string[20];
a:array [1..6] of integer;
end;
 
Var f:text;
x:byte;
i,rej,y:integer;
grfile,grfile1:file of goru;
recgoru:goru;
str,str1:string[12];
Procedure input;
Var i:integer;
Begin clrscr;
writeln('Vkazit imia faily, v jaki bydyt zapusani');
write('dani pro goru ');
readln(str);
assign(grfile,str);
rewrite(grfile);
with recgoru do
while true do
begin
write('Vvedit nazvy goru ');
readln(nazva);
if Nazva='zzz' then break;
write(' Vvedit chastuny svity v jakii znahodutsia gora ');
readln(chastuna_svity );
write('Vvedit krainy‚ v jakii znahodutsia gora ');
readln(kraina);
for i:=1 to 6 do
begin
repeat
write('Vvedit vusoty vershunu ',b[i],' ');
readln(a[i]);
if (a[i]>0)and(a[i]<6) then break;
writeln('P.P.V ');
until false;
end;
write(grfile,recgoru);
end;
close(grfile);
clrscr;
end;
 
Procedure Obr;
Var i:integer;
s:real;
Begin
writeln('Vvedit imia faila, jakui byde obrobliatusia ');
readln(str);
assign(grfile,str);
reset(grfile);
writeln(' Vvedit imia faila, jakui byde zapusyvatu');
write('dani pro naivuchi goru ');
readln(str1);
assign(grfile1,str1);
rewrite(grfile1);
s:=0;
with recgoru do
while not eof (grfile) do
begin
read(grfile,recgoru);
for i:=1to 6 do s:=s+a[i];
s:=s/6;
if s>=3000 then write(grfile1,recgoru);
end;
close(grfile);
close(grfile1);
End;
 
Procedure OutPut; Begin clrscr; writeln(' Vvet imia faily jakui bydyetsia ');
write(' vuvodutu na dryk ');
readln(str);
assign(grfile,str);
reset(grfile);
clrscr;
writeln(f,'------------------------------------------');
writeln(f,' Nazva: Chastuna svity : Kraina :versh1:versh2:versh3:versh4:versh5:versh6');
writeln(f,'------------------------------------------');
with recgoru do
while not eof (grfile) do
begin
read(grfile,recgoru);
write(f,nazva:8,chastuna_svity:8,kraina);
writeln;
end;
close(grfile);
readln;
clrscr;
End;
 
Procedure Rassh;
Begin clrscr;
write(' Vvedit imia faila jakui bydete rozshuriyvatu ');
readln(str);
assign(grfile,str);
reset(grfile);
seek(grfile,filesize(grfile));
with recgoru do
while true do
begin
write('Vvedit nazvy goru ');
readln(nazva);
if Nazva='zzz' then break;
write(' Vvedit chastuny svuty de znahodutsia gora ');
readln(chastuna_svity);
write('Vvedit krainy v jakii znahodutsia gora ');
readln(kraina);
for i:=1 to 6 do
begin
repeat
write('Vvedit vusoty vershunu ',b[i],' ');
readln(a[i]);
if (a[i]>0)and(a[i]<6) then break;
writeln('P.P.V ');
until false;
end;
end;
end;
 
BEGIN
 
END.
 Комментарий модератора 
Используйте теги форматирования кода!
silent_1991
Эксперт C++
4938 / 3014 / 149
Регистрация: 11.11.2009
Сообщений: 7,024
Завершенные тесты: 1
28.05.2011, 00:33     Файлы и записи #3
Вам что нужно? Перевести эту программу с паскаля в С++? Или требуется помощь именно по паскалю? Если так, то перенесу тему в паскаль, здесь ей делать нечего.
Yandex
Объявления
28.05.2011, 00:33     Файлы и записи
Ответ Создать тему
Опции темы

Текущее время: 09:06. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru