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

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

Войти
Регистрация
Восстановить пароль
 
Егор_
0 / 0 / 0
Регистрация: 13.03.2016
Сообщений: 12
#1

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

02.04.2016, 10:30. Просмотров 120. Ответов 0
Метки нет (Все метки)

помогите пожалуйста переделать код из паскаля в С++ или С
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++):

Код написан в Dev C. Не работает в Visual. Как нужно переделать код? - C++
Здравствуйте. Столкнулась с такой проблемой: код был написан в Dev C, но в Visual он выдаёт ошибку. ...

Нужно переделать код - C++
Надо переделать код. Так как я понял. Это C++ тут cout и cin а мне надо с printf и scanf

Нужно переделать код - C++
Нужно сделать без классов: #include &lt;iostream&gt; #include &lt;cstdlib&gt; #include &lt;ctime&gt; class mylist { ...

Граф, нужно переделать код - C++
Задание: Нахождение К путей Минимальной суммарной длины Во взвешенном графе с неотрицательными весами(Алгоритм Йена). Есть код на...

нужно переделать код из Python на С++ - C++
Условие:Вам нужно распилить деревянный брус на несколько кусков в заданных местах. Распилочная компания берет k рублей за распил одного...

нужно переделать код в другую среду - C++
переделайте под code blocks, пожалуйста буду признателен #include &quot;stdio.h&quot; #include &quot;iostream.h&quot; #include &quot;math.h&quot; const...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.04.2016, 10:30
Привет! Вот еще темы с ответами:

Нужно переделать код под функции (одномерный массив) - C++
«Однoмерные маcсивы», оформить каждый пункт задания в виде функции. Все необходимые данные для функций должны передаваться им в качестве...

Как переделать код?. Нужно сделать через функции пользователя - C++
#include &lt;string.h&gt; #include &lt;iostream&gt; #include &lt;algorithm&gt; using namespace std; int main() { char *st=new...

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

Нужно программу на Паскале переделать в программу на С++ - C++
Помогите, пожалуйста!!! У меня есть программа на Паскале , а нужно ее переписать, чтобы она была на С++ (windows консоль). Текст...


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

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

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