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

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

Войти
Регистрация
Восстановить пароль
 
1Тарас1
3 / 3 / 1
Регистрация: 21.01.2013
Сообщений: 70
#1

Процедуры создания и чтения файла (перевести с Паскаля на с++) - C++

29.03.2014, 11:28. Просмотров 253. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста перевести программу с Паскаля на с++
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
Program  as;
Type
wed  =  record                                                                        {Тип wed включает 3 поля: n, fio, bal}
n : byte ;       fio : string[15] ;
bal : array [1..3] of byte;                                                           {Поле bal – массив из 3 оценок }
end;
Var    spisok : wed ;
 
                                                                                      {Запись spicok  типа  wed}
sp : file  of wed;
 
 
                                                                                       {Файл записей типа wed}
procedure vvod;                                                                        { процедура создания файла}
var    i,j:byte;
begin
                                                                                       { оператор assing  находится в основной прграмме }
rewrite ( sp);                                                                             {открытие файла для записи}
with spisok do      
For   i:=1  to  3 do      begin
n:=i;
writeln (' Vvedit prizvische-  ',  i );    readln (fio);
writeln (' vvedit 3 ozinki   ', fio );    For  j:= 1 to 3 do  readln ( bal [j] );
write (sp , spisok);                                                                   { запись в файл информации о студенте}
end;
close (sp);                                                                            { закрытие файла для записи }
end;                                           
 
procedure    print;                                                                     { процедура  чтения   и печати всего файла }
var    j : byte;
begin
reset ( sp);                                                                             {открытие файла для чтения}
writeln ('isok studentov:  ‘');
while not eof (sp) do
with spisok do
begin
Read (sp, spisok);                         {чтение данных из файла}
write (n,'  ',fio);                       {вывод записи на экран}
For  j:= 1 to 3 do  write (' ', bal [j] );
writeln ;
end;
readln;
close (sp) ;
end;
 
procedure       work;
var    num: integer;
begin
reset ( sp);                             {открытие файла для чтения}
close (sp);
end;
 
begin                                           {начало основной программы}
assign (sp,'dani.txt');                                 {связать файловую перем-ю  sp с файлом Vedom.dat}
vvod;      print;                                   {процедуры создания и чтения файла}
work;   print;                              {корректировка и чтение измененного файла}
readln
end.
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.03.2014, 11:28     Процедуры создания и чтения файла (перевести с Паскаля на с++)
Посмотрите здесь:

Перевести с Паскаля на Си C++
перевести с Паскаля в с++ C++
C++ Перевести с паскаля на Си++
C++ Перевести с Паскаля на С++
Перевести из Паскаля на С++ C++
Перевести из паскаля на c++ C++
Перевести из паскаля на c++ C++
C++ Перевести из паскаля на с++
Перевести с паскаля C++
Перевести с паскаля на си C++
C++ Перевести с Паскаля на С++
Перевести из паскаля в с++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Wlk
49 / 49 / 13
Регистрация: 07.12.2011
Сообщений: 133
29.03.2014, 14:17     Процедуры создания и чтения файла (перевести с Паскаля на с++) #2
Сообщение было отмечено автором темы, экспертом или модератором как ответ
C++
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
#include "stdafx.h"
#include <iostream>
#include <string>
#include "conio.h"
#include <fstream>
 
using namespace std;
 
struct wed
{
    unsigned n;
    string fio;
    unsigned bal[3];
};
 
void vvod(fstream &sp, wed& spisok)
{
    unsigned i,j;
    
    for(i=1;i!=4;++i)
    {
        spisok.n = i;
        cout << " Vvedit prizvische- " << i << endl;
        cin >> spisok.fio;
        cout << " vvedit 3 ozinki " << spisok.fio << endl;
        for(j=0;j!=3;++j)
            cin >> spisok.bal[j];
        sp << spisok.n << " " << spisok.fio << " " << flush;
        for(j=0;j!=3;++j)
            sp << " " << spisok.bal[j];
        sp << endl;
    }
    sp.close();
}
 
 
void print(fstream &sp, wed& spisok)
{
    unsigned j;
    cout<< "Spisok studentov: " << endl;
    sp.clear();
    if(!sp.is_open())
        sp.open("D:\\cpp_test\\output_text.txt");               //свой файл
    sp.seekg(0);
    while(sp >> spisok.n >> spisok.fio)
    {
        for(j=0;j!=3;++j)
            sp >> spisok.bal[j];
        cout << spisok.n << " " << spisok.fio << flush;
        for(j=0;j!=3;++j)
            cout << " " << spisok.bal[j];
        cout << endl;
    }
    
    sp.close();
    _getch();
 
}
 
 
void work(fstream &sp)
{
    int num;
    sp.clear();
    sp.seekg(0);
    if(sp.is_open())
        sp.close();
}
 
int main()
{
    wed spisok;
    fstream sp;
    sp.open("D:\\cpp_test\\output_text.txt", ifstream::in | ofstream::out | ofstream::trunc);  //свой файл
    vvod(sp,spisok);
    print(sp,spisok);
 
    work(sp);   
    print(sp, spisok); 
    _getch();
    return 0;
}
Yandex
Объявления
29.03.2014, 14:17     Процедуры создания и чтения файла (перевести с Паскаля на с++)
Ответ Создать тему
Опции темы

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