Форум программистов, компьютерный форум 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(); Эта программа считутет первое слово , если я напишу fin.getline(buff,50), то программа считает первую строку в 50 символов , Вопрос : Как считать файл в котором n строк ?
C++ СЛАУ методом Жордана-Гаусса Нужна программа для решения СЛАУ методом Жордана-Гаусса с выбором главного элемента. http://www.cyberforum.ru/cpp-beginners/thread843452.html
C++ перегрузка операций
Обычным методом задача решена, помогите пожалуйста сделать перегрузку операций Условие: Указанные в заданиях операции реализовать посредством перегрузки подходящих операций #include <iostream> #include <math.h> class Triangle { private: int angle;
Вывод строки фиксированной длинны в cout (аля printf(%5.0d)! C++
Добрый вечер! Сегодня встал перед выбором... как выводить через printf или cout. Через принтф код выдает ошибку: Необработанное исключение по адресу, ссылаясь на файл (msvcr110d.dll) ..Нарушение прав доступа Через cout все выводится, но хотелось бы, что бы для вывода выводилось определенное число пустых клеток, что бы получить таблицу: |1|name|name2|speed| а получаю так:...
C++ Написать программу, решающую сравнения первой степени http://www.cyberforum.ru/cpp-beginners/thread843386.html
Задние - написать программу, решающую сравнения первой степени, использую алгоритм Евклида. Проблема в том что не работает сама функция нахождения НОД: int NOD_Evklid (int a, int m, int d){ int array; int q,r,j,i; if (m>a) { r=m%a; n=1; for (j=0;j<n;j++) while (r!=0) {
C++ Написать программу, в которую вбиваешь любую функцую, а она строит ее график Вообщем, надо написать программу, в которую вбиваешь любую функцую, а она строит ее график.я не знаю как к этой задаче подойти, подскажите, я почитал, посмотрел, сначала нужно создать какой-то парсер(понятия не имею, что такое), после чего только надо будет с графиком"шаманить". Я вообще новичок, программировал на формах в среде Bulider, Tchart, Canvas- весь мой "словарь". Я не прошу мне... подробнее

Показать сообщение отдельно
Tina_Shir
0 / 0 / 0
Регистрация: 22.11.2012
Сообщений: 8
20.04.2013, 18:01     переделать программу из Pascal в С++
есть программа на паскале для поиска перевода слов в файлах. нужно переделать эту программу на 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;
}
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 03:45. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru