Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

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

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

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

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

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

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

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

Заголовочные файлы .h, файлы исходного когда c/c++ и установление связи между ними - C++
Всем добрый вечер!) Относительно недавно стал изучать c/c++, хочу полюбопытствовать ,так как появился вопрос. Почему при объявлении...

Работа в Visual Studio 2015 - как добавить файлы исходного кода и заголовочные файлы? - C++
Приветствую всех! Столкнулся с тем, что решая задачи по книге Лафоре про графику, не смог добавить файлы .h и .cpp, скачав их с одной из...

Зачем нужно добавлять файлы в файлы исходного кода - C++
Зачем нужно добавлять файлы в файлы исходного кода (кроме main.cpp)? И как вызвать из main.cpp другой файл?

2
Саша...
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.
 Комментарий модератора 
Используйте теги форматирования кода!
0
silent_1991
Эксперт С++
4997 / 3055 / 149
Регистрация: 11.11.2009
Сообщений: 7,040
Завершенные тесты: 1
28.05.2011, 00:33 #3
Вам что нужно? Перевести эту программу с паскаля в С++? Или требуется помощь именно по паскалю? Если так, то перенесу тему в паскаль, здесь ей делать нечего.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2011, 00:33
Привет! Вот еще темы с ответами:

Заголовочные файлы и файлы cpp - C++
Со временем сложилось представление что при написании программ стоит разделять МЕТА данные и данные, но для лучшего понимания своих...

Раздельная компиляция: что помещать в заголовочные файлы, а что в файлы реализации (исходники)? - C++
Здравствуйте, я учусь пользоваться Visual Studio.Пишу программу, в которой создаются и разрушаются объекты, определенного пользователем...

Написать функции для чтения/записи отдельных бит для любой записи из данного набора - C++
Начиная с адреса А в памяти МК находятся N записей длиной k бит каждая. Записи выровнены по границе слова. Написать функции для...

нужно переделать код (из Файлы текстовые (FILE*) в Файлы текстовые (потоки)) - C++
вот задание для программы: 6. Задан текстовый файл input.txt. Требуется определить строки этого файла, содержащие максимальную по длине...


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

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

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