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

Код на паскале .нужно переделать на С или С++ - C++

Восстановить пароль Регистрация
 
Егор_
0 / 0 / 0
Регистрация: 13.03.2016
Сообщений: 12
02.04.2016, 10:30     Код на паскале .нужно переделать на С или С++ #1
помогите пожалуйста переделать код из паскаля в С++ или С
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
85
86
87
88
89
90
91
procedure TForm1.Button1Click(Sender: TObject);
var
  f:textfile;
  s:string;
begin
  assignfile(f,'fin.txt');
  rewrite(f);
  s:=memo1.text;
  write(f,s);
  closefile(f);
end;
 
function GetToken(aString: string; TokenNum: Byte): string;
 
var
  SepChar: string;
  Token: string;
  StrLen: Byte;
  TNum: Byte;
  TEnd: Byte;
begin
  SepChar:=' '; // разделяем слова на пробелы
  StrLen := Length(aString);
  TNum := 1;
  TEnd := StrLen;
  while ((TNum <= TokenNum) and (TEnd <> 0)) do
  begin
    TEnd := Pos(SepChar, aString);
    if TEnd <> 0 then
    begin
      Token := Copy(aString, 1, TEnd - 1);
      Delete(aString, 1, TEnd);
      Inc(TNum);
    end
    else
    begin
      Token := aString;
    end;
  end;
  if TNum >= TokenNum then
  begin
    GetToken := Token;
  end
  else
  begin
    GetToken := '';
  end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
const
 gl=['A','a','E','e','I','i','O','o','U','u','Y','y']; //
var
  f:textfile;
  TObjectf2:file of myRec;
  sClientS,sClientS1,sClientS2,sClientS3:string;
  k,i,j:byte; //Вспомогательные переменые
  rec1:myRec;
begin
  memo2.clear;
  assignfile(f,'fin.txt');
  assignfile(TObjectf2,'fout.dat');
  reset(f); //Открыть
  rewrite(TObjectf2); //Создать , перезаписать файл
  k:=strtoint(edit1.text);//ВВодим число
  while not eof(f) do
    begin
      read(f,sClientS);// Читать из файла строку
    end;
  sClientS1:=GetToken(sClientS,k);//вызов функции
  j:=0;
  for i:=1 to length(sClientS1) do //Количество букв в слове
   begin
    if sClientS[i] in gl then inc(j); //Подсчет гласных букв
   end;
  sClientS2:=inttostr(j);
  sClientS3:=inttostr(length(sClientS1));
  memo2.lines.add('Слово: '+sClientS1);
  if k>i-i  then
  showmessage ('под таким номером слова нет');
  memo2.lines.add('Количество гласных: '+sClientS2);
  memo2.lines.add('Длина слова: '+sClientS3);
  rec1.str:=sClientS1;
  rec1.NubGl:=j;
  rec1.Leng:=length(sClientS1);
  write(TObjectf2,rec1);
  closefile(f);
  closefile(TObjectf2);
 
end;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.04.2016, 10:30     Код на паскале .нужно переделать на С или С++
Посмотрите здесь:

C++ Граф, нужно переделать код
Нужно переделать код под функции (одномерный массив) C++
Нужно переделать код C++
C++ Как переделать код?. Нужно сделать через функции пользователя
C++ нужно переделать код в другую среду
нужно переделать код из Python на С++ C++
Нужно переделать код C++

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

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

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