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

перевод из Pascal в C++ - C++

Восстановить пароль Регистрация
 
Crydok
1 / 1 / 0
Регистрация: 16.12.2013
Сообщений: 27
19.05.2014, 19:39     перевод из Pascal в C++ #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
program slovo;
uses crt;
var f:text;
     str:string;
     s,st,st1,res,str2:string;
     i,j,k,l,w,g,p:integer;
begin
clrscr;
st:='пример';
st1:='$';
assign(f,'myfile.txt');
reset(f);
while not eof(f) do
   begin
      readln(f,str);
      for i:=1 to length(str) do begin
      k:=pos(st, str);
      end;
   end;
writeln(k);
l:=length(st);
writeln(l);
w:=k+l;
for i:=w to length(str) do begin
  g:=pos(st1, str);
end;
writeln(g);
p:=g-w+1;
res:=copy(str,w,g-w+1);
writeln(res);
close(f);
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.05.2014, 19:39     перевод из Pascal в C++
Посмотрите здесь:

C++ Перевод из pascal в С
C++ перевод с Pascal на C++
C++ Перевод с Pascal на C++
Перевод с Pascal на С++ C++
Перевод из Pascal в C++ C++
Перевод с Pascal на C++ C++
C++ Перевод c Pascal на С++
Перевод из Pascal в C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 07:47. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru