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

Переписать с Delphi на C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Переписать за меня с Delphi на С++ http://www.cyberforum.ru/cpp-beginners/thread417553.html
Помогите пожалуйста перейти к с++ )* var Form1: TForm1; i, j, n, y, y1, c, b, k: integer; a: array of integer; z: array of string; s, str, s1, sh, v : string;
C++ Почему выводит только последнюю строчку? завтра на зачет нужно!!!!!! есть код. /*1. Задан текстовый файл Input.txt, состоящий из слов и некоторое предложение. Разделителями между словами является некоторое множество знаков препинания. Найти строки, в которых встречается данное предложение, продублировать первое и последнее слова предложений. Результат записать в новый файл Output.txt. Упорядочить слова в искомых... http://www.cyberforum.ru/cpp-beginners/thread417548.html
Помогите пожалуйста. C++
Здравствуйте. Помогите плс. Как на языке С++ сделать чтобы программа автоматически загружалась в авторан??? Можете кинуть исходник если есть, или написать. Вручную загружать не предлагать. Очень надо.
C++ Исправление ошибок в C++
Всем доброго времени суток! У меня появился такой вопрос, есть ли в Visual Studio 8 или 10 такая фича как показывание ошибок еще во время написания кода? Как например в Eclipse(Java) там напротив строки с ошибкой появляется значек, хотя программу даже не компилировали. Если кто знает как включить такую функцию, скажите пожалуйста.
C++ Найти в предложении количество слов, совпадающих с последним словом. http://www.cyberforum.ru/cpp-beginners/thread417535.html
Найти в предложении количество слов, совпадающих с последним словом.
C++ Найти произведение нечетных элементов каждой строки матрицы, и их сумму В матриице A(4,4) найти произведение нечетных элементов каждой строки и их сумму. подробнее

Показать сообщение отдельно
Горе айтишник
 Аватар для Горе айтишник
1 / 0 / 0
Регистрация: 15.12.2011
Сообщений: 18
26.12.2011, 00:09     Переписать с Delphi на C++
Народ! Помогите, пожалуйста! У меня проблема. Я практически не знаю синтаксис C++, а разбираться нет времени. Я написала программу в Delphi. Можно как-нибудь ее переписать на C++??? Заранее благодарю!!!
Вот собсна код:

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
92
93
94
95
96
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
Procedure ShowN1(x,y,o: Integer);
var total:integer;
o:=a[i];
x:=o mod 10;
y:=o div 10;
 
total:=x+y;
if total=7 then Label1.Caption:=o;
end;
 
Procedure ShowN2(x,y,z,t,o: Integer);
var total:integer;
o:=a[i]
x:=o mod 100;
y:=o mod 10;
z:=o div 100;
t:=x div 10;
 
total:=z+y+t;
if total=7 then Label1.Caption:=o;
end;
 
Procedure ShowN3(o,z,x,y,t,p,f: Integer);
var total:integer;
x:=o mod 1000;
y:=x mod 100;
z:=y mod 10;
t:=o div 1000;
p:=x div 100;
f:=y div 10;
 
total:=z+t+p+f;
if total=7 then Label1.Caption:=o;
end;
 
Procedure ShowN4(o,x,y,z,t,p,f,u,q: Integer);
var total:integer;
x:=o mod 10000;
y:=x mod 1000;
z:=y mod 100;
t:=z mod 10;
p:=z div 10;
f:=y div 100;
u:=x div 1000;
q:=o div 10000;
 
total:=q+u+f+p+t;
if total=7 then Label1.Caption:=a[i];
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a:array[4..32000] of integer;
var x,y: string; i:byte; s, x1,x2,x3,x4:integer;
begin
for i:=4 to 100 do
a[i]:=s;
x1:= s mod 2;
x2:= s mod 3;
x3:= s mod 5;
x4:= s mod 7;
 
if (x1<>0) or (x2<>0) or (x3<>0) or (x4<>0)
then
if (a[i]>42) and (a[i]<100) then ShowN1;
if (a[i]>100) and (a[i]<1000) then ShowN2;
if (a[i]>1000) and (a[i]<10000) then Shown3;
if (a[i]>10000) and (a[i]<32000) then Shown4;
end;
end;
 
end.
Возможно могут быть ошибки... Простите, что я такой идиот нас плохо учат

условие задачи

"Найти простые (!!! которые делятся на 1 и сами на себя) числа такие, что сумма их цифр следуемого за ним простого числа делилась на 7. Вывести число таких чисел. Кол-во элементов массива 32000"

Сейчас смотрю, что написала и понимаю, что написала херь. Было 4 ночи, работал 1% мозга.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 05:21. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru