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

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

Войти
Регистрация
Восстановить пароль
 
Gores
0 / 0 / 0
Регистрация: 29.02.2012
Сообщений: 30
#1

Перевести синтаксис программы с Delphi в C++, очень нужно - C++

20.11.2012, 12:29. Просмотров 482. Ответов 1
Метки нет (Все метки)

Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 30 слов, которые разделены запятыми. Эти слова образуют пары: каждое второе является синонимом первого. Заменить в файле f1 те слова, которые можно, их синонимами. Результат поместить в новый файл




Листинг:


Delphi
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
Unit ZADACH303;
Interface
Implementation
Begin
 writeln('Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 30 слов, которые разделены запятыми. Эти слова образуют пары: каждое второе является синонимом первого. Заменить в файле f1 те слова, которые можно, их синонимами. Результат поместить в новый файл. ');
End.
 
Program zadach303;
 
Uses zadach303.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Const {* Постоянные значения *}
  pr = [' ', '.', ', ', '?', '!', ':', '(', ')',#9,#10,#13];
Var {* В работе нам потребуются переменные: *}
  s     : char;
  f1    : text;
  f2    : text;
  f3    : text;
  slovo : String;
  sin1  : Array [1..15] Of String;
  sin2  : Array [1..15] Of String;
  i     : integer;
  k     : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  assign(f1, 'c:f1.txt'); {* Подключение к файлу 'c:f1.txt' через переменную f1 *}
  reset(f1); {* Открытие файла для чтения *}
  assign(f2, 'c:f2.txt'); {* Подключение к файлу 'c:f2.txt' через переменную f2 *}
  reset(f2); {* Открытие файла для чтения *}
  assign(f3, 'c:f3.txt'); {* Подключение к файлу 'c:f3.txt' через переменную f3 *}
  rewrite(f3); {* Открытие файла для записи *}
  i := 1;
  While Not(EOF(f2)) Do
  Begin
    read(f2, s);
    If ord(s) In [128..143] Then
      s := chr(ord(s) + 32);
    If ord(s) In [144..159] Then
      s := chr(ord(s) + 80);
    If Not(s In pr) And Not EOF(f2) Then
      slovo := slovo + s
    Else Begin
      If slovo'' Then
      Begin
        If (i Mod 2)  0 Then
          sin1[round(i / 2 + 0.5)] := slovo
        Else sin2[round(i / 2)] := slovo;
          i := i + 1;
        slovo := '';
      End;
    
  End;
  
End;
While Not(EOF(f1)) Do
Begin
  read(f1, s);
  If ord(s) In [128..143] Then
    s := chr(ord(s) + 32);
  If ord(s) In [144..159] Then
    s := chr(ord(s) + 80);
  If Not(s In pr) And Not EOF(f1) Then
    slovo := slovo + s
  Else Begin
    For i := 1 To 15 Do {* Цикл для i => [1 .. 15] *}
    Begin
      If slovo = sin1[i] Then
      Begin
        slovo := sin2[i];
        k := 1;
      End;
      Else k := 0;
        If (slovo = sin2[i]) And (k = 0) Then
          slovo := sin1[i];
    End;
  write(f3, slovo, s);
  slovo := '';
End;
 
End;
close(f1); {* Файл f1 будет закрыт *}
close(f2); {* Закрыть файл f2 *}
close(f3); {* Файл f3 будет закрыт *}
End.....
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2012, 12:29
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести синтаксис программы с Delphi в C++, очень нужно (C++):

перевести программу на с++ т.е printf|scanf на cout |cin очень нужно - C++
#include <QtCore/QCoreApplication> #include <iostream> #include <stdio.h> int main () { int n=0,i; float x; float...

Перевести код программы из Delphi в C++ - C++
Добрый день! Стоит задача транслировать код из Delphi в C++. Среда Embarcodero. Вроде бы ничего сложного, точки на стрелки меняй себе и...

Нужно перевести программы из Pascal в C - C++
1. Дано трехзначное число. В этом числе зачеркнуть первую цифру справа и приписать его слева. Вывести полученное число. var ...

Нужно поправить синтаксис! С++ - C++
#include <iostream> #include <math.h> using namespace std; const int maxN= 111111; long a; void swap(long w1, long w2) ...

Я по по воду хакерства.В последнее время это меня очень сильно заинтересовало может посоветуете чего нибудь(книги,программы и тд ) буду очень благодар - C++
Прошу прощения , но я не нашел подходящей темы и решил написать сюда т.к. единственное что я знаю это С++ и то плоховато)) вы наверное...

Прошу объяснить о ссылках,указателях,стрелке -> и двоеточиях :: очень прошу я не понял синтаксис - C++
Здравствуйте! Есть конкретно 4 типа: 1)стрелка (->) 2)указатели (*) 3)ссылки (&) 4)2е двоеточий (::) а вопрос:что они собой...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
magirus
20.11.2012, 12:54     Перевести синтаксис программы с Delphi в C++, очень нужно
  #2
 Комментарий администратора 
используйте теги выделения кода
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2012, 12:54
Привет! Вот еще темы с ответами:

Объясните синтаксис программы по полочкам с использованием локальных переменных и прототипа функции - C++
Здравствуйте уважаемые форумчане. Вот читаю книгу по C++, не буду писать какую, дабы избежать критики и обсуждений. Хотелось бы что бы вы...

Очень нужно - C++
как сделать чтоб человек вводил текст на консоль а прога записывала это в файл?

очень нужно - C++
правильна ли запись? где ошибки? как правильно записать?? class m { public: float h;} class n: public m { public: double r, t; }; ...

Перевести с Delphi на C/C++. - C++
program zadacha5; {$APPTYPE CONSOLE} uses SysUtils; var a,b,s,k,v :real ; begin


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

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

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