3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-03 22:44:29.516666
|
|
|
genoc1d
Сообщений: 882
Оценки: 0
Присоединился: 2006-08-04 11:32:02
|
Вся инфа и задачки тут: http://slil.ru/24179587 Прошу прощения, что не продублировал задачи тут - свои траблы. Заранее спасибо.
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-04 17:58:13.923333
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
блин, ну в pdf бы для разнообразия выкинул, если txt тебе не катит… мне ж лень это дело сохранять, чтоб потом catdoc его запихивать.
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-08 12:24:55.943333
|
|
|
genoc1d
Сообщений: 882
Оценки: 0
Присоединился: 2006-08-04 11:32:02
|
Да перезалить не проблема. Так в каком формате? Тхт или пдф? 3.Ы. 2е первые задачки уже накодил
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-08 13:02:45.146666
|
|
|
t3rmin@1
Сообщений: 197
Оценки: 0
Присоединился: 2006-09-22 23:03:30.883333
|
Ясен пень, txt лучше
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-25 22:01:00.786666
|
|
|
genoc1d
Сообщений: 882
Оценки: 0
Присоединился: 2006-08-04 11:32:02
|
Всё еще надеюсь на вашу помощь и выкладываю финал версию - все задачи, которые надо накодить. http://slil.ru/24290427 В архиве txt и doc файлы. В док всё как надо - графики, формулы. В тхт всё урезано, это на всякий… Лучше кодить по док-файлу. Заранее спасибо тем, кто чем поможет.
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-27 19:24:42.550000
|
|
|
genoc1d
Сообщений: 882
Оценки: 0
Присоединился: 2006-08-04 11:32:02
|
Блин, че влом хоть пару задач накодить? Как че-то по делу попросишь у людей, так хрен там… Печально, господа
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-27 22:24:26.170000
|
|
|
t3rmin@1
Сообщений: 197
Оценки: 0
Присоединился: 2006-09-22 23:03:30.883333
|
Что такое экстремальный элемент в массиве? Вот сорец алгоритма, выводящего искомое значение массива(задача 5 из txt):
#include <iostream.h>
#define N 5
main()
{
int array[N];
int j;
/*здесь нужно было бы вставить цикл для присвоения каждому элементу массива
случайного значения, но я не знаю, какая это функция в С++. А синтаксис такой:
for (int k = 0; k <= N; k++) { array[k]=random_value}
*/
cout<<"Insert desired value\n";
cin>>j;
for (int i = 0; i <= N; i++)
{
if (j == array[i])
{
cout<<"Searched value = "<<array[i]<<" ; Number of element in array = "<<i<<endl;
}
}
return 0;
}
Только не знаю насчёт модуля.
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-28 06:48:59.530000
|
|
|
SPACE101_!2224
Сообщений: 39
Оценки: 0
Присоединился: 2007-04-08 06:32:54.243333
|
Взял самое легкое за правильность не отвечаю . :) Писал на DELPHI . ЗАДАЧА 1 : procedure TForm1.prognoz; var D : Extended; // разность. Kf : Extended; // Z,K,p,q : Extended; m : byte ; // Месяц . begin m :=2; Z := 3000 ; K := 1862 ; p := 1.02; // 2% q := 1.03; // 3% while true do // Бесконечный цикл, q должно быть больше p. begin if m = 2 then Kf := K; if m > 12 then begin D :=Z-Kf; if D < 0 then break; Memo1.Lines.Append(Floattostr(Round(D))+' руб.'); //Округляем и показываем D . m :=1; end; Z := Z * p ; K := K * q ; inc(m); // увеличиваем m . end; end;
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-28 07:44:52.633333
|
|
|
SPACE101_!2224
Сообщений: 39
Оценки: 0
Присоединился: 2007-04-08 06:32:54.243333
|
Задача 5 :
procedure TForm1.FoundExtremal;
var
a : array [0..11] of integer;
i,ExtrElement : integer;
D : integer;
begin
for i :=0 to Length(a)-1 do
begin
a[i] := Random($FFFF);
end;
ExtrElement := 0;
for i :=1 to Length(a)-1 do
begin
D :=a[i] - a[i-1];
if D > ExtrElement then ExtrElement :=D;
end;
MessageBox(0,pchar(inttostr(ExtrElement)),'::: Ðåçóëüòàò :::',MB_OK);
end;
А задачу 3.4 ты решил ?
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-28 08:51:57.340000
|
|
|
SPACE101_!2224
Сообщений: 39
Оценки: 0
Присоединился: 2007-04-08 06:32:54.243333
|
Задача 4 [3.2]: Использовавлся модуль Math . Uses Math;
procedure TForm1.MostWanted;
var
a : array [0..11] of integer;
i : integer;
CountElements : byte;
Res : integer;
begin
Randomize;
CountElements :=0;
Res :=1;
for i :=0 to Length(a)-1 do
begin
a[i] := RandomRange(-$FFFF,$FFFF);
if ((a[i] > 0) and (Sin(a[i]) <= 0)) then
begin
inc(CountElements);
Res := a[i] * res;
end;
end;
if CountElements > 0 then
MessageBox(0,pchar('Êîëè÷åñòâî ýëåìåíòîâ : '+inttostr(CountElements)+#13+'Ïðîèçâåäåíèå ýëåìåíòîâ : '+inttostr(Res)),':::Ðåçóëüòàò:::',MB_OK);
end;
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-28 10:04:33.276666
|
|
|
SPACE101_!2224
Сообщений: 39
Оценки: 0
Присоединился: 2007-04-08 06:32:54.243333
|
Задача 3 [3.1] : Представлена в двух вариантах рекомендуется использовать 1 . Заполнять массивы что в этом что в предыдущих примерах ненужно .
procedure TForm1.SelectScalar;
var
a,b : array [0..11] of integer;
i : integer;
res : integer;
begin
for i :=0 to Length(a)-1 do
begin
a[i] :=random(30);
b[i] :=random(30);
end;
res :=0;
//Variant 1 :
i :=0;
while true do
begin
if i = length(a)-1 then
begin
res := res+(a[i] * b[i]);
break;
end;
res := res + ((a[i] * b[i]) + (a[i+1] * b[i+1]));
inc(i,2);
if i > length(a)-1 then break;
end;
MessageBox(0,pchar(inttostr(res)),'',MB_OK);
res :=0;
//Variant 2 :
{for i :=0 to length(a)-1 do
begin
res := res + (a[i] * b[i]);
end;}
end;
Все покаместь , а то может я зря напрягаюсь ?
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-28 11:57:00.050000
|
|
|
genoc1d
Сообщений: 882
Оценки: 0
Присоединился: 2006-08-04 11:32:02
|
quote:
ORIGINAL: SPACE101_!2224 Писал на DELPHI Спасибо, конечно, но на дельфи не надо. Главное в этом случае не результат, а сам процесс. Эти задачи надо преподу сдавать.. quote:
Все покаместь , а то может я зря напрягаюсь ? Мда, жаль, но дельфя мне ни к чему :( quote:
Что такое экстремальный элемент в массиве? В принципе, в мануале (.doc) всё описано. Попробуй еще че-нить накодить, первую задачу, например. Самая легкая, имхо
|
|
|
RE: 3 простейшие задачки в Borland C++ Builder Enterprise v6.0. Выручайте, надо накодить - 2007-04-28 13:13:06.483333
|
|
|
SPACE101_!2224
Сообщений: 39
Оценки: 0
Присоединился: 2007-04-08 06:32:54.243333
|
Ну да ладно . Зато попрактиковался :) .
|
|
|
|
|