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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Саша...
0 / 0 / 0
Регистрация: 16.05.2011
Сообщений: 5
#1

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

17.05.2011, 23:35. Просмотров 384. Ответов 2
Метки нет (Все метки)

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

Файлы и записи - C++
О каждом из студентов известны фамилия и оценка, полученная на экзамене (2, 3, 4 или 5). Определить, средний балл группы по предмету и...

Бинарные файлы, функция записи в файл... - C++
это функция должна переписать строки из текстового в бинарный.... почему компилятор рукается на tellg и seekg... void writing (char...

Вагон ошибок- посмотрите пожалуста. Основы записи в файлы - C++
Вагон ошибок- посмотрите пожалуста. Сам я уж две минуты смотрю- не понял. #include "stdafx.h" #include <fstream> using namespace...

Файлы.Текстовые файлы - C++
Считая t текстовым файлом (файлом типа text), ответить на следующие вопросы: А)Кроме текстовых файлов,файлы какиъ еще типов могут...

Записи и файлы. - Pascal
№1.Известны данные о 25 учениках класса:фамилия,имя,отчество,адрес,и домашний телефон если он есть.Вывести на экран фамилию,имя и адрес...

Записи в файлы - Turbo Pascal
1)В существующем типизированом файле, элементами которого являются числа. Изменить на заданое число: к-й элемент. 2)Имеются два файла...

записи и файлы - Delphi
У владельца автопарка есть банк данных по составу автосредств в вид файла со следующей информацией: марка автомобиля, номер двигателя,...

Записи и файлы! - Pascal
№1.Известны данные о 25 учениках класса:фамилия,имя,отчество,адрес,и домашний телефон если он есть.Вывести на экран фамилию,имя и адрес...

записи и файлы - Delphi
помогите в реализации задачки......просто даже незнаю как начать....уровень delphi-----новичек.......... Для участия а конкурсе на...

Записи + файлы - Turbo Pascal
Доброго времени суток! Помогите с такой задачкой: Необходимо, загрузив из текстового файла данные по студентам /*фамилия имя...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Саша...
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
Эксперт С++
4960 / 3036 / 149
Регистрация: 11.11.2009
Сообщений: 7,027
Завершенные тесты: 1
28.05.2011, 00:33     Файлы и записи #3
Вам что нужно? Перевести эту программу с паскаля в С++? Или требуется помощь именно по паскалю? Если так, то перенесу тему в паскаль, здесь ей делать нечего.
Ответ Создать тему
Опции темы

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