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

Как написать такую программу - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Сравнение двух строк http://www.cyberforum.ru/cpp-beginners/thread422501.html
Сравнение двух строк Как прервать цикл если введена пустая строка? Если : char str="\n"; if (strcmp(pa.fullname ,str)) //то продолжить цикл else break;// цикл не прерываеться Весь код: #include <iostream> #include <cstring>
C++ Задача про буквы Условие задачи таково: изменить в строке все маленькие буквы на большие, всё это делается в файле!Мой вопрос:существуют ли какие лиюо функции которые определяют величину буквы или какие другие способы решения существуют!Язык Си! http://www.cyberforum.ru/cpp-beginners/thread422496.html
C++ Выделение динамической памяти
Добрый вечер. Помогите разобраться пожалуйста! Суть такова: есть файл, в нем есть данные, мне надо их оттуда считать и вывести на терминал. Вот мой кусок: char *buf; buf=new char; cout<<"Книги:\n"; fstream in("database.txt",ios::out | ios::in | ios::binary); in.read((char*) &buf, sizeof buf); cout<<buf; in.close(); delete buf;
Аргументы командной строки в функции main C++
Вопрос собственно говоря банальный в домашнем задании требуеться: параметр пронраммы передаеться через командную строку.Пример: copy.exe c:\A d:\B вот у меня собственно вопрос.Нужно в командной строке писать все же полный путь скажем:
C++ Одномерный массив(с++) http://www.cyberforum.ru/cpp-beginners/thread422476.html
Программа на языке С, в которой необходимо предусмотреть ввод исходных и вывод промежуточных массивов, а также результатов их обработки. Значения элементов исходных массивов задавать произвольно 1) Найти среднее геометрическое элементов массива А. 2) Найти общее количество элементов массива В, принадлежащих отрезку A (10), B (20)
C++ Умножение матриц делением на полосы (строки или столбцы) — ленточная схема Нужна помощь в разборе алгоритма, до меня никак не доходит по какой схеме этот алгоритм работает. http://www.intuit.ru/department/calculate/paralltp/7/paralltp_7.html Пункт 7.3. вроде хорошо описанно, но я все равно не могу понять. подробнее

Показать сообщение отдельно
spydark91
85 / 85 / 2
Регистрация: 03.03.2011
Сообщений: 1,872

Как написать такую программу - C++

04.01.2012, 21:39. Просмотров 775. Ответов 14
Метки (Все метки)

Как,а вернее в какой среде, можно без особых усилий(не работая с WinAPI) написать такую элементарную программу.Программы написана в делфях,считает дискриминант
и если кому не лень,напишите,пожалуйста, ее.
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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Edit1DblClick(Sender: TObject);
    procedure Edit2DblClick(Sender: TObject);
    procedure Edit3DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  ar,br,cr,otv1,otv2,toch,l:string;
  a,b,c,x1,x2,d,otv1r,otv2r,toch1,l1:real;
  k:boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormClick(Sender: TObject);
begin
edit1.Text:='Значение А';
Edit2.Text:='Значение B';
Edit3.Text:='Значение C' ;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
procedure count;
begin
  ar:=Edit1.Text;
br:=edit2.Text;
cr:=edit3.Text;
a:=strtofloat(ar);
b:=strtofloat(br);
c:=strtofloat(cr);
 
d:= b*b-4*a*c;
 
 
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
 
otv1:='X1='+floattostr(x1);
otv2:='X2='+floattostr(x2);
 
label1.Caption:= otv1+';     '+otv2;
end
 
else if d=0 then
begin
x1:=-b/(2*a);
x2:=x1;
 
otv1:='X1='+floattostr(x1);
 
label1.Caption:= otv1;
end
 
else
label1.caption:='Нет  корней';
end;
 
 
 
begin
if (edit1.Text='Значение А') or (edit2.Text='Значение B') or (edit3.Text='Значение C')  then
 
begin
MessageBeep(error);
messagebox(form1.Handle,'Введите значение','Ошибка',MB_ICONERROR or MB_OK);
exit;
end;
 
 
if k=true then
begin
button1.Caption:='Сбросить';
count;
k:=false;
end
 
else
begin
edit1.Text:='Значение А';
edit2.Text:='Значение B';
edit3.Text:='Значение C';
label1.Caption:='';
button1.Caption:='Рассчитать';
k:=true;
 
end;
end;
 
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
    #8,#45, #48..#57: ;
    #46: key:=#44;
    #44: ;
    #13: edit2.SetFocus;
        else key:=#0
 
end;
 
 
 
 
 
 
 
 
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
    #8,#45, #48..#57: ;
    #46: key:=#44;
    #44: ;
    #13: edit3.SetFocus;
        else key:=#0
end;
 
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case key of
    #8,#45, #48..#57: ;
    #46: key:=#44;
    #44: ;
    #13: button1.SetFocus;
        else key:=#0
end;
 
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
k:=true;
 
 
end;
 
procedure TForm1.Edit1DblClick(Sender: TObject);
begin
edit1.Text:='';
end;
 
procedure TForm1.Edit2DblClick(Sender: TObject);
begin
edit2.Text:=' ';
end;
 
procedure TForm1.Edit3DblClick(Sender: TObject);
begin
edit3.Text:=' ';
end;
 
end.
вот листинг на делфях
если кто напишет,то выложите листинг,exe и в чем написали
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 01:01. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru