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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Как понять код? http://www.cyberforum.ru/cpp-beginners/thread298260.html
этот код запускается , но как понять что он именно выполняет? может быть кто ни будь прокомментирует? #include <conio.h> #include <iostream> #include <windows.h> #define A B. #define C if(
C++ Конструктор копии Здравствуйте! Не могу никак правильно использовать конструктор копии, тоесть создать копию обьекта (массива):( Вот конструктор с параметрами: template <class T> Kurs <T> :: Kurs (int n) { razmer (n); assert (n > 0); mas = new T ; http://www.cyberforum.ru/cpp-beginners/thread298251.html
Умные указатели C++
Здравствуйте! вопрос указатель auto_ptr почитала литературу, там написано он считывает и удаляет ссылки, т.е. он получает какие-то ресурсы, работает с ними и освобождает память??так? я его использую class A : public B{ private: auto_ptr<MyStream> head; public: A(MyStream* MyHead);
Проверить, является ли дата правильной C++
Пожалуйста, помогите добить задачку!:wall: Написать функцию, которая проверяет что переменная типа date содержит правильную дату. Примечание. Год не=0, месяц - типа enum, день=от1 до 31(в большинстве месяцев). Прога работает, но не совсем верно: например, если ввести 31 февраля (или апреля и т.п.) - выдаст, что дата верна. #include "stdafx.h" #include<iostream>
C++ Помогите с перегрузкой операций. http://www.cyberforum.ru/cpp-beginners/thread298229.html
Створити динамічний клас для роботи з рядками. Максимальна довжина послідовності – 254. Перший байт повинен містити інформацію про фактичну кількість елементів масиву. Здійснити перевантаження операцій: " = "– присвоєння, " + " – конкатенація (з’єднання) рядків, " <= " – відношення "менше чи дорівнює", " >= " – відношення "більше чи дорівнює", " == " – відношення "дорівнює", " != " –...
C++ Перегрузка операторов для класса матриц Собственно, суть проблемы. Пишу класс матриц (хочется), оператор присваивания работает только тогда, когда функция (ну или, например, оператор +) возвращает *this и тип возвращаемого значения - ссылка. Иначе, выдаёт: a.out(1181) malloc: *** error for object 0x7fff5fbffa40: pointer being freed was not allocated *** set a breakpoint in malloc_error_break to debug Abort trap Конструктор... подробнее

Показать сообщение отдельно
Саша...
0 / 0 / 0
Регистрация: 16.05.2011
Сообщений: 5
27.05.2011, 23:35  [ТС]
Цитата Сообщение от Саша... Посмотреть сообщение
Помогите с решением пожалуйста, заранее спасибо.
Из заданного файла 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.
 Комментарий модератора 
Используйте теги форматирования кода!
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru