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

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

Войти
Регистрация
Восстановить пароль
 
Like a boss
0 / 0 / 0
Регистрация: 26.05.2013
Сообщений: 3
#1

С паскаля на с++ - C++

26.05.2013, 16:21. Просмотров 270. Ответов 1
Метки нет (Все метки)

Приветствую всех! Я запустил с++ и мне на зачет нужна вроде простая программа, знаю ее на паскале:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var f,g:file of char;q,w:char;i:integer;
begin
Assign(f,'c:\temp\q.txt');Assign(g,'c:\temp\w.txt');
Reset(f);
Reset(g);          
i:=0;                
q:=' ';
w:=q;
while (not Eof(f)) and (not Eof(g)) and (q=w)  do begin
read(f,q);read(g,w);inc(i);
end;
if Eof(f) and eof(g) then write('file ravny') else write('file ne ravny',i:10,' komponenta');
readln;
end.
нужен вариант с++, пытался использовать ptoc, но что-то не пошло хз...помогите!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2013, 16:21
Здравствуйте! Я подобрал для вас темы с ответами на вопрос С паскаля на с++ (C++):

с паскаля на Си++ - C++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat writeln('Выберите действие:');...

Из Паскаля в С++ - C++
Дана программа на Паскале: Program q; var a,b:byte; begin Writeln('Двузначные числа, удвоенная сумма цифр которых равна...

Из Паскаля на СИ - C++
const c = 9; var a, b, x, y: real; begin write('Введите x: '); readln(x); b := x + c * c; a := exp(ln(abs(92))...

Из Паскаля на С++ - C++
Здравствуйте. Помогите переписать это решение на C++. uses crt; var a:integer; function del(n:integer):integer; var...

из паскаля в си) - C++
Переведите мне пожалуйста прогу, написанную в паскале, в си))))) для меня это очень важно))))))) завтра последний срок) program...

Из паскаля в С++ - C++
Program lab5; Var a:array of integer; n,I,min,k:integer; P:longint; s:real; Begin Writeln('введите размерность массива'); ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
xtorne21st
интересующийся
304 / 275 / 19
Регистрация: 25.09.2010
Сообщений: 1,056
26.05.2013, 19:35 #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
#include <iostream>
#include <fstream>
 
int main()
{
    std::ifstream in1("file1.txt", std::ios::in | std::ios::binary);
    std::ifstream in2("file2.txt", std::ios::in | std::ios::binary);
    if (!in1 || !in2)
    {
        std::cerr << "couldn't open file(s)" << std::endl;
        return 1;
    }
 
    char ch1, ch2;
    unsigned long cnt = 0;
 
    while (!in1.eof() && !in2.eof())
    {
        in1.get(ch1);
        in2.get(ch2);
        if (ch1 != ch2)
        {
            break;
        }
        ++cnt;
    }
 
    if (in1.eof() && in2.eof())
    {
        std::cout << "files equals." << std::endl;
    }
    else
    {
        std::cout << "files differ: first " << cnt << " characters sames" << std::endl;
    }
 
    in1.close(); in2.close();
    return 0;
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2013, 19:35
Привет! Вот еще темы с ответами:

С Паскаля на С++ - C++
Дана целочисленная матрица размера M × N. Найти количество ее строк, все элементы которых различны. ...

Из паскаля в С++ - C++
Ребят, помогите, пожалуйста, перевести из паскаля в С++, буду благодарен за помощь. Заранее спасибо. program example1; var ...

С Паскаля на С++ - C++
program Matrix25; var MAx,Sum,num,j,i,M,N:integer; a: array of integer; begin // Ввод данных writeln('Введите числа M (M&lt;=10)...

с паскаля в с++ - C++
помогите перевести с код паскаля в с++ program MYstring; var len1, len2:byte; s1, s2: string; function center (s1,s2:string;...


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

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

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