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

Программа на файл содержащий сведения о телефонах - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Дерево отрезков в определенной модификации http://www.cyberforum.ru/cpp-beginners/thread1214511.html
Нужно уметь выполнять операции вида: 1) Присвоение на отрезке ( А l r x (от l до r сменить значения на x) 2) Сума на отрезке( Q l r (найти суму от l, r)) Помогите подправить мой код: #define _CRT_SECURE_NO_WARNINGS #include <algorithm> #include <iostream> #include <iomanip> #include <cmath>
C++ Почему не работает ТАКАЯ конструкция функции time вот фрагмент кода. int main(){ time_t testsec; //определил переменную типа ТАймТ time(&testsec); // Извлекаю в переменную информацию о времени. ТОесть теперь у меня ячейка памяти типа ТаймТ содержит ВНУТРИ СЕБЯ информацию о времени. cout << ctime(&testsec); // преобразую информацию в человеко-понятный вид. и вывожу на экран. return 0; } http://www.cyberforum.ru/cpp-beginners/thread1214486.html
C++ Разбор блока catch (исключения)
Задание звучит так: Даны две функции: double hmean(double a, double b) throw(hmean_error) - нахождение среднего гармонического. double gmean(double a, double b) throw(gmean_error) - нахождение среднего геометрического. При расчете этих функций нужно поймать исключение: для первой функции - если a == -b для второй функции - если a < 0 или b < 0
Дана строка. На печать выдать слова, имеющие больше одной буквы "е" C++
Составить программу на языке С++ для обработки строк с использованием файлов и указателей. Дана строка. На печать выдать слова, имеющие больше одной буквы «е». #include <string> #include <iostream> #include <conio.h> int main() { std::string str;//переменная std::cout << "Type string: ";//тип строчный
C++ Двумерный массив. Поменять местами max и min четных строк http://www.cyberforum.ru/cpp-beginners/thread1214475.html
Составить программу на языке C++ для обработки двумерных массивов с использованием указателей и входных и выходных файлов. Дана квадратная матрица. Размерность вводится. Поменять местами max и min четных строк. #include <string> #include <iostream> #include <iomanip> #include <conio.h> int main() { srand(time(0));
C++ Одномерный массив, изменить программу Составить программу на языке C++, состоящую из двух функций с использованием указателей. В главной функции выполнить ввод одномерного массива с файла и вывод полученных результатов в файл. В вызываемой функции выполнить обработку одномерного массива. #include <iostream> #include <conio.h> using namespace std; int fak(int n) { return((n==1)? 1:n*fak(n-1)); } подробнее

Показать сообщение отдельно
Templar172
0 / 0 / 0
Регистрация: 20.10.2013
Сообщений: 23
22.06.2014, 21:26     Программа на файл содержащий сведения о телефонах
А.Программа на файл, содержащий сведения о телефонах абонентов. Каждая запись имеет поля: фамилия абонентов, год установки телефона, номер телефона. Количество записей произвольное.
Б. Написать программу, выдающую информацию следующего вида:
по вводимой фамилии абонента выдается номер телефона.
определяется количество установленных телефонов с ХХХХ года. Номера года вводятся с терминала

Код программы TurboPascal прошу пожалуйста перевидите его на С++.

Создание
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
type t=record
fio:string;
god:string;
telef:string; end;
var tel:t; ftel:file of t; n:integer;
begin
assign(ftel, 'tom'); rewrite(ftel); n:=0;
while true do begin
writeln( 'Фамилия:');
readln (tel.fio);
if tel.fio='*' then begin
close (ftel); exit; end;
writeln('*Номер телефона*:');
readln(tel.telef);
writeln('год установки:');
readln(tel.god);
writeln;
n:=n+1;
writeln(n,'-ая запись создана*');
write(ftel,tel);end;
end.
Вывод
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
type t=record
fio:string;
telef:string;
god:string;
end;
var tel:t; ftel:file of t;
n:integer;
begin clrscr;
assign(ftel,'tom');
reset(ftel);
while not eof (ftel) do begin
read(ftel,tel);
write(tel.fio); gotoxy(20, wherey); write( tel.telef); gotoxy(30, wherey); writeln( tel.god);
end;
readkey;
end.

Дозапись.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program dozapis;
type t=record
fyo:string;
god:string;
telef:string;
end;
var tel:t;ftel:file of T;
n:integer;
begin system. filemode:=2; assign(ftel, 'tom');
reset(ftel);
seek(ftel,filesize(ftel));
n:=0;
while true do
begin
writeln('fYO'); readln(tel.fyo);
if tel.fyo='*' then begin close(ftel);exit;end;
writeln('god');readln(tel.god);
writeln('telefon'); readln(tel.telef);
writeln; n:=n+1;
writeln(n, 'zapis vvedena');
write(ftel,tel);
end;
end.
Корректировка.
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
uses crt;
type t=record
fio:string;
telef:string;
god:string; end;
var tel:t;
ftel: file of t;
d:string;
n:integer;
begin clrscr; system.filemode:=2;
assign(ftel,'tom'); reset(ftel);
with tel do
while not eof (ftel) do begin
read (ftel, tel);
writeln(tel.fio:10, tel.telef:15, tel.god:20);
writeln('*Нужна корректировка? Да(1)/Нет(0)');
readln(d);
if (d='1')  then begin  while true do begin
writeln ('1:Ф.И.О.');
writeln ('2:Год установки');
writeln ('3:Номер телефона');
writeln ('4:Все поля');
 
readln(n);
case n of
1: begin writeln('Введите Ф.И.О.'); readln(fio); end;
2: begin writeln('Введите Год установки'); readln(god); end;
3: begin writeln('Введите Номер телефона'); readln(telef); end;
4: begin writeln('Введите Ф.И.О.'); readln(fio);
         writeln('‚Введите год'); readln(god);
         writeln('Введите номер телефона'); readln(telef);end;
 
         end;
 
seek(ftel,filepos(ftel)-1);
write(ftel,tel);
if tel.fio='*' then begin
close (ftel); exit; end;
end; end; end; end.
Добавлено через 15 минут


Добавлено через 1 час 3 минуты


Добавлено через 2 часа 4 минуты
Помогите пожалуйста.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 16:47. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru