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

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

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

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

29.03.2014, 11:28. Просмотров 258. Ответов 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++
program spektr; uses crt; type vect=arrayof integer; var f,g:vect; j,i,n:integer; BEGIN clrscr; write('n=');...

Перевести из паскаля в с++ - C++
var a, i, b: integer; begin read(a); b := 0; for i := 1 to a do if a mod i = 0 then b := b + 1; ...

Перевести с паскаля на С++ - C++
Var s,s1:string; i,k:byte; Begin write('Введите строку: ');readln(s); k:=0;s1:=''; For i:=Length(s) downto 1 do ...

перевести с Паскаля в с++ - C++
Var s:string; i,k:integer; b:boolean; Begin write('Введите строку: ');readln(s); if Length(s) in then k:=1 else...

C Паскаля перевести в С++ - C++
Дана матрица размера M x N. Удалить столбец, содержащий максимальный элемент матрицы. program Matrix64; var ...

Перевести с Паскаля на Си - C++
Структура элемента массива работник: фамилия, число, месяц и год рождения, пол. определить: ─ фамилия самого старшего мужчины; ─...

Перевести с Паскаля на С++ - C++
Помогите, пожалуйста! Переведите код с Паскаля на С++!! Срочно!! program ghost; uses crt; type man = Record ...

Перевести из паскаля в С - C++
Условие: Постройте массив p=2,p,...,p, где p=2, p=3, ..., p - n-е простое число uses crt; const maxn = 100; var a: array of...

Перевести с паскаля на си - C++
Здравствуйте,помогите пожалуйста перевести с паскаля на си var s: string; i: byte; sum,c,k,max: integer; begin sum:=0;...

Перевести из Паскаля в с++ - C++
Народ помогите код переделать в с++ пожалуууууууууйста var i, j, k: integer; p: boolean; s1, s2: string; begin ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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;
}
Ответ Создать тему
Опции темы

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