Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Sanya1347
0 / 0 / 0
Регистрация: 05.01.2017
Сообщений: 9
#1

Перевести программу с Pascal на C++ - C++

06.03.2017, 18:48. Просмотров 135. Ответов 0
Метки нет (Все метки)

Дан текстовый файл. Переписать в другой файл части строк, начиная с последнего слова, которое не содержит цифр.

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
uses
  crt;
var
  i,j,m,n: integer;
  f,f1: text;
  st: string;
begin
  clrscr;
  assign(f,'input.txt');
  assign(f1,'output.txt');
  reset(f);
  rewrite(f1);
  while not Eof(f) do                    {пока не конец файла}
  begin
    readln(f,st);                        {считываем строку из файла}
    i:=1;
    while i<=length(st) do               {пока не конец строки}
    begin
      while (st[i] = ' ') and (i<=length(st)) do
        inc(i);
      m:=i;                              {запоминаем начало слова}
      while (st[i] <> ' ') and (i<=length(st)) do
        inc(i);
      n:=i;                              {запоминаем конец слова}
      for j:= m to n-1 do
        if st[j] in ['0'..'9'] then
          delete(st,m,n-m);
    end;
    if st<>'' then
      write(f1,st,' ');
  end;
  close(f);
  close(f1);
end.

http://www.cyberforum.ru/cpp-beginners/thread293298.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2017, 18:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевести программу с Pascal на C++ (C++):

Перевести программу с Pascal на С++
нужно код с паскаля подогнать под код с++ var a,s:integer; begin clrscr;...

Перевести программу из Pascal в С++
Перевести программу из Pascal в С++ Есть такая программа на паскале в...

Перевести программу с Pascal на С++
uses crt; var f:text; {переменная для текстового файла} s:string; ...

Перевести программу с Pascal на С++
Program SumCuba; var x, {пробное число} n, {последняя цифра} p, {число без...

Перевести программу с Pascal на С++
нужно код с паскаля подогнать под код с++ var first, second: string; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2017, 18:48
Привет! Вот еще темы с решениями:

Можете перевести программу из Pascal в c++
Помогите пожалуйста :3 Известна заработная плата, полученная 5 сотрудниками...

Нужно Перевести программу с Turbo pascal на C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот...

Как программу на Turbo Pascal перевести на C++?Выручите)
const N=3; var X,Y:array of real;Z:array of...

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


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

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

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