0 / 0 / 0
Регистрация: 13.03.2016
Сообщений: 12
1

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

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

Author24 — интернет-сервис помощи студентам
помогите пожалуйста переделать код из паскаля в С++ или С
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;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2016, 10:30
Ответы с готовыми решениями:

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

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

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

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

0
02.04.2016, 10:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2016, 10:30
Помогаю со студенческими работами здесь

Нужно переделать код из С++ турбо в С++
Не понимаю некоторые функции . Остается только догадываться . #include &lt;iostream&gt; #include...

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

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

Нужно переделать код чтоб он был с функциями
всем привет! помогите пожалуйста. у меня есть код и мне нужно некоторые части этого кода перевести...

Переделать исходный код. Код в Паскале,а нужно сделать его в Фортране
{$S+,R+} program arab_to_roman; uses crt; var n : word; ch : char; procedure...

Переделать исходный код на Паскале в Фортран
Program Ex3; const N=5; const M=5; Var i,j:integer; A,B,x1,x2,Hx,p1,p2,Hp:real; x,p:array...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru