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

переделать программу из Pascal в С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ как считать весь файл ? http://www.cyberforum.ru/cpp-beginners/thread843463.html
char buff; ifstream fin("/Users/Vitaly/Desktop/laba2/laba2/list.txt",ios_base::in); fin>>buff,50; cout<<buff; fin.close(); Эта программа считутет первое слово , если я...
C++ СЛАУ методом Жордана-Гаусса Нужна программа для решения СЛАУ методом Жордана-Гаусса с выбором главного элемента. http://www.cyberforum.ru/cpp-beginners/thread843452.html
C++ перегрузка операций
Обычным методом задача решена, помогите пожалуйста сделать перегрузку операций Условие: Указанные в заданиях операции реализовать посредством перегрузки подходящих операций #include <iostream>...
Вывод строки фиксированной длинны в cout (аля printf(%5.0d)! C++
Добрый вечер! Сегодня встал перед выбором... как выводить через printf или cout. Через принтф код выдает ошибку: Необработанное исключение по адресу, ссылаясь на файл (msvcr110d.dll) ..Нарушение...
C++ Написать программу, решающую сравнения первой степени http://www.cyberforum.ru/cpp-beginners/thread843386.html
Задние - написать программу, решающую сравнения первой степени, использую алгоритм Евклида. Проблема в том что не работает сама функция нахождения НОД: int NOD_Evklid (int a, int m, int d){ ...
C++ Написать программу, в которую вбиваешь любую функцую, а она строит ее график Вообщем, надо написать программу, в которую вбиваешь любую функцую, а она строит ее график.я не знаю как к этой задаче подойти, подскажите, я почитал, посмотрел, сначала нужно создать какой-то... подробнее

Показать сообщение отдельно
Tina_Shir
0 / 0 / 0
Регистрация: 22.11.2012
Сообщений: 8

переделать программу из Pascal в С++ - C++

20.04.2013, 18:01. Просмотров 294. Ответов 0
Метки (Все метки)

есть программа на паскале для поиска перевода слов в файлах. нужно переделать эту программу на c++.

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
uses crt;
var ru,en: text;
    r: byte;
 
 
procedure FindEn;
var s,ss,se: string; n: integer;
begin
clrscr;
reset(ru); reset(en);
write('Введите слово на английском языке для перевода: '); readln(s);
n:=0;
while not (eof(en)) do
      begin
      readln(en,ss);
      readln(ru,se);
      if ss=s then
         begin
         inc(n);
         if n=1 then writeln (ss,':');
         writeln(se);
         end;
      end;
close(ru);
close(en);
if n=0 then
   writeln('Этого слова нет в словаре);
readln;
end;
 
procedure FindRu;
var s,ss,se: string; n: integer;
begin
clrscr;
reset(ru); reset(en);
write('Введите слово на русском языке для перевода: '); readln(s);
n:=0;
while not (eof(ru)) do
      begin
      readln(ru,ss);
      readln(en,se);
      if ss=s then
         begin
         inc(n);
         if n=1 then writeln (ss,':');
         writeln(se);
         end;
      end;
close(ru);
close(en);
if n=0 then
   writeln('Этого слова нет в словаре);
readln;
end;
 
begin
assign(ru,'D:\ru.txt');
assign(en,'D:\en.txt');
repeat
writeln('0-завершение работы');
writeln('1-перевод с английского');
writeln('2-перевод с русского');
readln(r);
case r of
1: FindEn;
2: FindRu;
else r:=0;
end;
until r=0;
end.
я попыталась переделать, можете проверить и испраить ошибки.
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
#include <graphics.h>
#include <conio.h>
#include <stdio.h>
#include <math.h>
#include <locale>
#include <string.h>
struct string
 
string  FindEn (string  s)
{
string  ss,se;
FILE *fen, *fru;
 int n;
clrscr;
fen=fopen("c:\си\en.txt","r");
fru=fopen("c:\си\ru.txt","r");
printf("Введите слово на английском языке для перевода: ");
scanf("%s",&s);
n=0;
while (!eof(en))
     {
      fscanf(fen,"%s",&ss);
      fscanf(fru,"%s",&se);
      if (ss=s)
         {
         inc(n);
         if (n=1)  printf ("%s",ss,":");
         printf("%s",se);
         }
     }
fclose(fru);
fclose(fen);
if (n=0)
   printf("Этого слова нет в словаре");
}
 
string  FindRu (string  s)
{
string  ss,se;
FILE *fen, *fru;
 int n;
clrscr;
fru=fopen("c:\си\ru.txt","r");
fen=fopen("c:\си\en.txt","r");
printf("Введите слово на английском языке для перевода: ");
scanf("%s",&s);
n=0;
while (!eof(ru))
     {
      fscanf(fru,"%s",&ss);
      fscanf(fen,"%s",&se);
      if (ss=s)
         {
         inc(n);
         if (n=1)  printf ("%s",ss,":");
         printf("%s",se);
         }
     }
fclose(fru);
fclose(fen);
if (n=0)
   printf("Этого слова нет в словаре");
}
 
string vivod (string en, string ru)
{
 FILE *fen, *fru;
clrscr;
fru=fopen("c:\си\ru.txt","r");
fen=fopen("c:\си\en.txt","r");
fprintf(fen, fru);
fclose(fru);
fclose(fen);
}
 
int main ()
{
setlocale(LC_CTYPE, "russian");
 byte r;
 FALE *en, *ru;
ru=fopen("c:\си\ru.txt","r");
en=fopen("c:\си\en.txt","r");
do{
printf("0-завершение работы");
printf("1-перевод с английского");
printf("2-перевод с русского");
printf("3-вывод словоря");
scanf(&r);
switch (r)
 
{
case 1: FindEn;
case 2: FindRu;
case 3:vivod;
break;
}
else r=0;
end;
while (r=0);
}
getch();
return 0;
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru