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

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

Войти
Регистрация
Восстановить пароль
 
ПриУэт
3 / 3 / 0
Регистрация: 15.04.2011
Сообщений: 16
#1

Переписать за меня с Delphi на С++ - C++

26.12.2011, 00:01. Просмотров 293. Ответов 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
var
  Form1: TForm1;
  i, j, n, y, y1, c, b, k: integer;
   a: array [1..100,1..100] of integer;
   z: array [1..100,1..100] of string;
   s, str, s1, sh, v : string;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=3;
k:=1;
b:=n*n;
i:=1;
j:=(n div 2)+1;
for k:=1 to b do begin
a[i,j]:=k;
StringGrid1.Cells[i-1,j-1]:=IntToStr(a[i,j]);
if (k mod n=0) then i:=i+1
else begin i:=i-1; j:=j+1; end;
if(i=0) then i:=n;
if (j>n) then j:=1;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
s:=Edit1.Text;
y:=length(s);
while y>0 do begin
if y>b then begin
s1:=copy(s,1,b);
delete(s,1,b); end
else begin
  s1:=s;
  delete(s,1,length(s));
   end;
 y1:=length(s1);
 while y1>0 do begin
v:=copy (s1,y1,1);
delete(s1,y1,1);
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j]=y1 then z[i,j]:= v;
end; end;
y1:=length(s1);
 end;
 for j:=1 to n do begin
 for i:=1 to n do begin
 sh:=sh+z[i,j];
 end;  end;
 y:=Length(s);
 if y>0 then begin
 for i:=1 to n do begin
 for j:=1 to n do begin
 z[i,j]:='';
 end; end;
 end else
  for i:=1 to n do begin
 for j:=1 to n do begin
 StringGrid2.Cells[i-1,j-1]:=z[i,j];
 end; end;
 end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
for j:=1 to n do begin
for i:=1 to n do begin
Edit2.Text:=sh;
end; end;
end;
 
end.
0
Вложения
Тип файла: rar на делфи.rar (190.3 Кб, 6 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2011, 00:01
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переписать за меня с Delphi на С++ (C++):

Переписать за меня программу с C# на С++ - C++
using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace saod_tree { class...

Переписать за меня программу с Pascal на С++ - C++
Кто может первести код из Паскаля в си++? uses wincrt; var x : array of byte i,j, m,n : byte; begin ...

Переписать с Delphi на C++ - C++
Народ! Помогите, пожалуйста! У меня проблема. Я практически не знаю синтаксис C++, а разбираться нет времени. Я написала программу в...

Переписать код из Delphi в С++ - C++
Вот собственно код,я +- понимаю, что к чему,а переписать в плюсы не могу:( program Project2; {$APPTYPE CONSOLE} uses ...

Переписать программу с Delphi на C++ - C++
Есть программа на делфи,но надо ее еще на с++,помогите переделать,или кто может переделайте,буду благодарен.

Переписать заданные фрагменты кода с Delphi на C++ - C++
всем привет! Подскажите пожалуйста как будет в С++: 1. TParmStr = array of string; 2.try Result := vs_int; except ...

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

У меня есть литература для изучения delphi 7. Могу ли я по ней изучить delphi 2010? - Delphi
Всем привет. Очередной семестр в универе подходит к концу, а лабы по программированию сданы и мне нечем заняться =). Я хочу изучить delphi...

Переписать за меня с Паскаля на Си - C (СИ)
перевести или решите на "с" Задание: Длины сторон 10 треугольников заданы в массивах А, В, С. Найти сумму длин медиан каждого из...

Delphi . У меня зачет! Напишите - Delphi
на форме расположены два поля TMemo, в левом изображена матрица размера I*J в естественном виде (строки вертикально упорядкованни), в...

у меня вопрос. есть ли delphi на русском языке?? - Delphi БД
ответьте


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

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

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