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

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

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

Перевести из PASCAL в С++ - C++

15.07.2012, 19:31. Просмотров 389. Ответов 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
Var f:text;
    s,s1:string;
    i:byte;
Begin
    Assign(f,'D:\in.txt');Reset(f);
    While not Eof(f) do
     Begin
      readln(f,s);
      For i:=Length(s) downto 1 do
       Case s[i] of
        '0':Begin Delete(s,i,1);Insert('Г*îëü',s,i);End;
        '1':Begin Delete(s,i,1);Insert('îäèГ*',s,i);End;
        '2':Begin Delete(s,i,1);Insert('äâГ*',s,i);End;
        '3':Begin Delete(s,i,1);Insert('òðè',s,i);End;
        '4':Begin Delete(s,i,1);Insert('÷åòûðå',s,i);End;
        '5':Begin Delete(s,i,1);Insert('ГЇГїГІГј',s,i);End;
        '6':Begin Delete(s,i,1);Insert('ГёГҐГ±ГІГј',s,i);End;
        '7':Begin Delete(s,i,1);Insert('ñåìü',s,i);End;
        '8':Begin Delete(s,i,1);Insert('âîñåìü',s,i);End;
        '9':Begin Delete(s,i,1);Insert('äåâÿòü',s,i);End;
       End;
      s1:='';
      For i:=1 to Length(s) do
       if not(s[i] in ['.','?','!']) then s1:=s1+s[i]
        else 
         Begin
          writeln(s1+s[i]);
          s1:='';
         End;
      if s1<>'' then writeln(s1);
     End;
     Close(f);
End.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.07.2012, 19:31     Перевести из PASCAL в С++
Посмотрите здесь:

Перевести из Pascal в C++ - C++
procedure RectPS(x1,x2,y1,y2: real); var p,s: real; begin begin P := (abs(x2-x1) + abs(y2-y1)) * 2; S := abs(x2-x1) *...

Перевести с pascal на c++ - C++
Помогите тоже перевести из Pascal в с+ visual studio 6.0 Нашел тут похожую на свою задачу, хочу разобраться, но учу только с++ (( ...

Перевести с Pascal на С++ - C++
Нужно перевести начало, хотяб до процедур из Pascal на С++ Я застрял на пункте x:array of pp; и не могу понять, как это в С++ прописать...

Перевести с Pascal на C++ - C++
Здравствуйте! Переведите пожалуйста данный код с Pascal на C++: var n, i, j, cnt, p, found, best, first, ind : longint; s :...

Перевести из Pascal на С++ - C++
условие: Данная целочисленные квадратная матрица. Вычислить: 1) сумму элементов в тех строках, которые не содержат отрицательных...

перевести с Pascal на С++ - C++
переведите пожалуйста на С++ uses crt; var a,s,x:real; i:integer; eps:real; function fct(n:integer): real; var f: real;...

Перевести с pascal - C++
Помогите перевести программу с Паскаля на Си++ Program Negative; var a, b: arrayof String; i, j, n, m, answer: Integer; ...

Перевести из Pascal на C++ - C++
Var n,p1,p2,i,k,j:integer; Begin write('Введите N: ');readln(n); For i:=n-1 downto 2 do Begin k:=0; For...

Перевести из Pascal в C++ - C++
Ребят, помогите пожалуйста перевести программы на С++! :( Задача №1 (Схема горнера) program labblablabla; var x,s,k:real; ...

Перевести c Pascal в C++ - C++
Помогите перевести в Си++ uses crt; var st:string; k,i:integer;f:boolean; begin clrscr; write('-&gt; '); readln(st);

Перевести с pascal на с++ - C++
uses crt; var i_put,o_put:string; i,s_ch,n:byte; flag:boolean; Begin ClrScr; writeln('Vvedite stroku:'); ...

Перевести с Pascal на C++ - C++
uses crt; var a,y:extended; i:longint; begin clrscr; write('a=');readln(a); if a&lt;1 then begin writeln('1'); ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Большой_Стен
13 / 13 / 1
Регистрация: 22.04.2012
Сообщений: 99
16.07.2012, 03:19     Перевести из PASCAL в С++ #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
#include <stdlib.h>
#include <string>
#include <iostream>
#include <fstream>
using std::ifstream;
using std::string;
using std::cout;
using std::endl;
 
int main()
{
     ifstream text ("D:\\in.txt");
     string s,s1;
     while (!text.eof())
     {
           getline(text,s);
           for (int i=s.length()-1; i>=0; i--)
           {
               switch (s[i])
               {
                      case '0' : s.erase(i,1); s.insert(i,"Г*îëü"); break;
                      case '1' : s.erase(i,1); s.insert(i,"îäèГ*"); break;
                      case '2' : s.erase(i,1); s.insert(i,"äâГ*"); break;
                      case '3' : s.erase(i,1); s.insert(i,"òðè"); break;
                      case '4' : s.erase(i,1); s.insert(i,"÷åòûðå"); break;
                      case '5' : s.erase(i,1); s.insert(i,"ГЇГїГІГј"); break;
                      case '6' : s.erase(i,1); s.insert(i,"ГёГҐГ±ГІГј"); break;
                      case '7' : s.erase(i,1); s.insert(i,"ñåìü"); break;
                      case '8' : s.erase(i,1); s.insert(i,"âîñåìü"); break;
                      case '9' : s.erase(i,1); s.insert(i,"äåâÿòü"); break;
               }
           }
           for (int i=0; i<s.length(); i++)
           {
               if (s[i]!='?' && s[i]!='!' && s[i]!='.') s1+=s;
               else
               {
                   cout<<s1+s[i]<<endl;
                   s1.clear();
               }
               if (s[i]!=' ') cout<<s1<<endl;
           }
     }
     text.close();
     system ("PAUSE");
}
Ответ Создать тему
Опции темы

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