/ КОМПЬЮТЕРЫ И ПО / Языки программирования / C/C++

Выпуск № 650
от 27.01.2007, 21:05

Вопрос № 71.982

Помогите решить задачу с использованием функций с указателями в качестве аргументов: Даны вещественные массивы А[4][6], B[4][6]. Для каждого массива определить сумму и количество отрицательных элементов, расположенных в нечетных строках. И если можно то написать комментарии.

Отправлен: 21.01.2007, 22:21 Вопрос задала: Lena_25 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Терсков Сергей Здравствуйте, Lena_25! Вот вариант решения задачи Приложение: #include <stdio.h> #include <stdlib.h> #include <time.h> void calculate(double **array, int row, int col, double *summ, int *negative_count) { int i, j; (*summ) = 0.0; (*negative_count) = 0; for(i=0; i<row; i+=2) { for(j=0; j<col; j++) { if(array[i][j] < 0) { (*summ) += array[i][j]; (*negative_count)++; } } } } int main(int argc, char* argv[]) { int N = 4; int M = 6; double **A; double **B; int i, j; A = new double*[N]; for(i=0; i<N; i++) A[i] = new double[M]; B = new double*[N]; for(i=0; i<N; i++) B[i] = new double[M]; int negative_count; double summ; srand((unsigned)time(NULL)); for(i=0; i<N; i++) { for(j=0; j<M; j++) { A[i][j] = (double)(rand()%100) + (double)(1./(double)(rand()%100)); if(rand()%2 == 0) A[i][j] = -A[i][j]; B[i][j] = (double)(rand()%100) + (double)(1./(double)(rand()%100)); if(rand()%2 == 0) B[i][j] = -B[i][j]; } } printf("Array A: "); for(i=0; i<N; i++) { for(j=0; j<M; j++) printf("%.2f ", A[i][j]); printf(" "); } printf(" Array B: "); for(i=0; i<N; i++) { for(j=0; j<M; j++) printf("%.2f ", B[i][j]); printf(" "); } calculate(A, N, M, &summ, &negative_count); printf(" Summ of negative element in array A: %.2f ", summ); printf("Count of negative element in array A: %d ", negative_count); calculate(B, N, M, &summ, &negative_count); printf("Summ of negative element in array B: %.2f ", summ); printf("Count of negative element in array B: %d ", negative_count); for(i=0; i<N; i++) delete[] A[i]; delete[] A; for(i=0; i<N; i++) delete[] B[i]; delete[] B; return 0; }

Ответ отправил: Терсков Сергей (статус: 5-ый класс) Ответ отправлен: 22.01.2007, 03:45 Оценка за ответ: 5 Комментарий оценки: Спасибо! Программа замечательно работает

Вопрос № 71.984

Здравствуйте господа эксперты! Помогите разобраться в следующем вопросе! Я, посылаю lisbox-у сообщение SendMessage(hList,LB_GETCURSEL,0,0), в результате отправки этого сообщения, функция SendMessage возвращает либо целочисленный идентификатор выделенного элемента, либо LB_ERR, если нет выделенных элементов. Вопрос вот в чем, как преобразовать это целочисленное значение в “строку”, например для того чтобы отобразить в MessageBox-е. Заранее благодарю, Павел Насыров.

Отправлен: 21.01.2007, 22:25 Вопрос задал: Pashokq (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: ramok Здравствуйте, Pashokq! стандартно такое делается с помощью фунции sprintf long i = 3; char str[100]; sprintf(str, "%ld", i); это пример "преобразования" переменной i в строку str в десятичном формате в зависимости от того что за среду вы используете может сущестровать например IntToStr

Ответ отправил: ramok (статус: Студент) Ответ отправлен: 22.01.2007, 00:01

Отвечает: Nightm@re Здравствуйте, Pashokq! Могу предложить использовать просто if и в случае возврата из SendMessage - LB_ERR делать что угодно: см. приложение Вместо MessageBox можете использовать любые возможные выражения и операции. Желаю удачи ;-) Приложение: LRESULT rez; rez = SendMessage(hList,LB_GETCURSEL,0,0); if(LB_ERR != rez) { ..... //Код обработки в случае возврата индекса выбранного элемента } else { CString str; //При использовании MFC str.Fornat("Error - %d", rez); MessageBox(NULL, "Функция SendMessage возвратила LB_ERR", str, MB_OK); }

Ответ отправил: Nightm@re (статус: 1-ый класс) Ответ отправлен: 22.01.2007, 01:36

Отвечает: Mitya86 Здравствуйте, Pashokq! попробуй преобразование типов см. приложение Приложение: int i=SendMessage(hList,LB_GETCURSEL,0,0); MessageBox(hWnd,(LPSTR)i,0,0);

Ответ отправил: Mitya86 (статус: 2-ой класс) Ответ отправлен: 22.01.2007, 11:48 Оценка за ответ: 5 Комментарий оценки: Ответ точен, и лаконичен. Без лишней воды.

Отвечает: kool Здравствуйте, Pashokq! --------------------------------------- Используй, например функцию sprintf(.....). Удачи! ---------------------------------------

Ответ отправил: kool (статус: 5-ый класс) Ответ отправлен: 22.01.2007, 12:41

Вопрос № 72.020

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

Отправлен: 22.01.2007, 05:17 Вопрос задал: Hunter20 (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Lemeshev Konstantin Здравствуйте, Hunter20! Если по простому, то рекурсия - это когда функция вызыает сама себе самостоятельно или посредством других функций. Обычно в качестве примера рекурсии приводят функции вычисления целой степени от числа и факториала. Пример кода в приложении. Думаю все должно быть понятно. Еще один несколько примеров задач, где возможна рекурсия (код не привожу, он слишком объемный): 1) вычисление определителя матрицы 2) вычисление хроматического многочлена матрицы Других сейчас не вспомню Приложение: long int Fact(long int arg) { if(arg==0) return 1; else return arg*Fact(arg-1); } double MyPow(double Osn, int Pokaz) { if(Pokaz==0) return 1; else return Oan*MyPow(Osn,Pokaz-1); }

Ответ отправил: Lemeshev Konstantin (статус: 3-ий класс) Ответ отправлен: 22.01.2007, 06:23 Оценка за ответ: 5

Отвечает: Thread Здравствуйте, Hunter20! Реккурсия - это объвление какой-либо функции с использованием ее самой. Классический пример рекурсии, это факториал числа. F(x) = 1, x = 0 F(x) = x * F(x-1), x > 0 вот пример реализации на Си: int Factorial(x) { if (x == 0) { return 1; } else { return x * Factorial(x - 1); } } Еще применяется для отображения содержимого каталогов. Алгоритм примерно такой: на входе функции получаем каталог, выводим на экран названия всех файлов, после этого смотрим есть ли вложенные каталоги, если есть, то вызываем эту же функцию для каждого, используя в качестве параметра каталог.

Ответ отправил: Thread (статус: 2-ой класс) Ответ отправлен: 22.01.2007, 07:27 Оценка за ответ: 5

Отвечает: ramok Здравствуйте, Hunter20! в дополнении к тому что сказали: 1. найти множество материала можно например в google.com по запросу "рекурсия" например неплохие ссылки: тут рассмотрены виды рекурсии в примерах http://comp-science.narod.ru/Progr/Rekursia.html тут описаны недостатки рекурсии и то что любой рекурсивный алгоритм можно заменить циклом for с использщованием польщовательской стековой структуры http://www.kalinin.ru/programming/alg/04_09_00.shtml http://ru.wikibooks.org/wiki/%D0%A0%D0%B5%D0%BA%D1%83%D1%80%D1%81%D0%B8%D1%8F:_%D0%BF%D0%BB%D0%BE%D1%85%D0%BE_%D0%B8%D0%BB%D0%B8_%D1%85%D0%BE%D1%80%D0%BE%D1%88%D0%BE 2. в профессиональном программировании рекурсия используется обычто для: - обхода дерева каталоговов и файлов http://www.opennet.ru/docs/RUS/bogatyrev/ex_13.html - обхода различного вида древовидных структур данных(например бинарное дерево http://ru.wikipedia.org/wiki/%D0%94%D0%B2%D0%BE%D0%B8%D1%87%D0%BD%D0%BE%D0%B5_%D0%B4%D0%B5%D1%80%D0%B5%D0%B2%D0%BE_(%D1%81%D1%82%D1%80%D1%83%D0%BA%D1%82%D1%83%D1%80%D0%B0_%D0%B4%D0%B0%D0%BD%D0%BD%D1%8B%D1%85 и http://rk6.bmstu.ru/electronic_book/posapr/zadanpo/bintree.htm) - реализация регулярных выражений http://kimrycity.mcomm.ru/books/PROGR/Praktical_programing/Glava%209/Index3.htm

Ответ отправил: ramok (статус: Студент) Ответ отправлен: 22.01.2007, 09:34 Оценка за ответ: 5

Отвечает: kool Здравствуйте, Hunter20! Рекурсия в программировании - это грубо говоря, когда функция вызывает саму себя. Применяется, например для просмотра дерева каталогов или для вычисления факториала. Почитать можно в любом учебнике по программированию на "C". Или в поисковике по слову "рекурсия" Приложение: int factorial(int n){ int s=n; if(!n)return 1; n--; s*=factorial(n); return s; } int main(){ int n=6; printf(" factorial(%i)=%i",n,factorial(n)); }

Ответ отправил: kool (статус: 5-ый класс) Ответ отправлен: 22.01.2007, 12:41 Оценка за ответ: 5

Вопрос № 72.060

Расскажите пожалуйста, как сохранить и загрузить данные из трёх таблиц StringGrid на одной форме

Отправлен: 22.01.2007, 11:51 Вопрос задал: Tornadosss (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Lemeshev Konstantin Здравствуйте, Tornadosss! Если не ошибаюсь, то только вручную, стардантными методами (определенным изначально) можно сохранить только отдельные строки либо столбцы. Когда решал такую же задачу, то взял за основу формат CSV (посохраняй таблицы Excel в этом формате и разберешься - ничего сложного). Плюс такого решения (или минус- это как посмотреть) - возможность редактирования не только в твоей программе но и в Excel, причем без лишних заморочек. Не зачем придумывать ничего нового.

Ответ отправил: Lemeshev Konstantin (статус: 3-ий класс) Ответ отправлен: 22.01.2007, 12:14

Отвечает: John Paramol Здравствуйте, Tornadosss! В приложении реализованы две функции: StringGridLoadFromFile - загрузка в StringGrid данных из файла; StringGridSaveToFile - сохранение данных из StringGrid в файл. Загружается и сохраняется только текстовая информация, другие параметры, такие как размеры ячеек, цвет, шрифт и прочее игнорируются. Удачи! Приложение: //--------------------------------------------------------------------------- bool StringGridLoadFromFile(TStringGrid *Grid, AnsiString &filename) { try { int hf = FileOpen(filename, fmOpenRead); if(hf==-1) return false; DWORD size[2]; int read = FileRead(hf, size, sizeof(size)); if(read!=sizeof(size)) { FileClose(hf); return false; } int DataLen = FileSeek(hf,0,2); FileSeek(hf,(int)sizeof(size),0); char *Buf = new char[DataLen+1]; read = FileRead(hf, Buf, DataLen); FileClose(hf); Grid->ColCount = size[0]; Grid->RowCount = size[1]; int k=0; for(int i=0; i<read; ++i,++k) { Grid->Cells[k/(Grid->RowCount)][k%(Grid->RowCount)] = AnsiString(Buf+i); while(Buf[i]!=0) ++i; } delete [] Buf; if(k!=Grid->ColCount*Grid->RowCount) return false; } catch(...) { return false; } return true; } //--------------------------------------------------------------------------- bool StringGridSaveToFile(TStringGrid *Grid, AnsiString &filename) { int hf = FileCreate(filename); if(hf==-1) return false; DWORD size[2]; size[0] = Grid->ColCount; size[1] = Grid->RowCount; FileWrite(hf, size, sizeof(size)); for (int I=0; I<Grid->ColCount; I++) for (int J=0; J<Grid->RowCount; J++) FileWrite(hf, Grid->Cells[I][J].c_str(), Grid->Cells[I][J].Length()+1); FileClose(hf); return true; } //--------------------------------------------------------------------------- --------- 1=2, at values 1 large enough

Ответ отправил: John Paramol (статус: 6-ой класс) Ответ отправлен: 23.01.2007, 22:21

Вопрос № 72.138

Зравствуйте эксперты. У меня возникла проблема. У меня есть код программы на Паскале, мне нужно написать тукую же программу на С++. Если кто может прошу помочь. Код программы в приложении. Заранее благоларен. Приложение: Uses CRT; Const maxn = 10; Type Data = Real; Matrix = Array[1..maxn, 1..maxn] of Data; Vector = Array[1..maxn] of Data; { Процедура ввода расширенной матрицы системы } Procedure ReadSystem(n: Integer; var a: Matrix; var b: Vector); Var i, j, r: Integer; Begin r := WhereY; GotoXY(2, r); Write('A'); For i := 1 to n do begin GotoXY(i*6+2, r); Write(i); GotoXY(1, r+i+1); Write(i:2); end; GotoXY((n+1)*6+2, r); Write('b'); For i := 1 to n do begin For j := 1 to n do begin GotoXY(j * 6 + 2, r + i + 1); Read(a[i, j]); end; GotoXY((n + 1) * 6 + 2, r + i + 1); Read(b[i]); end; End; { Процедура вывода результатов } Procedure WriteX(n :Integer; x: Vector); Var i: Integer; Begin For i := 1 to n do Writeln('x', i, ' = ', x[i]); End; { Функция, реализующая метод Гаусса } Function Gauss(n: Integer; a: Matrix; b: Vector; var x:Vector): Boolean; Var i, j, k, l: Integer; q, m, t: Data; Begin For k := 1 to n - 1 do begin { Ищем строку l с максимальным элементом в k-ом столбце} l := 0; m := 0; For i := k to n do If Abs(a[i, k]) > m then begin m := Abs(a[i, k]); l := i; end; { Если у всех строк от k до n элемент в k-м столбце нулевой, то система не имеет однозначного решения } If l = 0 then begin Gauss := false; Exit; end; { Меняем местом l-ую строку с k-ой } If l <> k then begin For j := 1 to n do begin t := a[k, j]; a[k, j] := a[l, j]; a[l, j] := t; end; t := b[k]; b[k] := b[l]; b[l] := t; end; { Преобразуем матрицу } For i := k + 1 to n do begin q := a[i, k] / a[k, k]; For j := 1 to n do If j = k then a[i, j] := 0 else a[i, j] := a[i, j] - q * a[k, j]; b[i] := b[i] - q * b[k]; end; end; { Вычисляем решение } x[n] := b[n] / a[n, n]; For i := n - 1 downto 1 do begin t := 0; For j := 1 to n-i do t := t + a[i, i + j] * x[i + j]; x[i] := (1 / a[i, i]) * (b[i] - t); end; Gauss := true; End; Var n, i: Integer; a: Matrix ; b, x: Vector; Begin ClrScr; Writeln('Программа решения систем линейных уравнений по методу Гаусса'); Writeln; Writeln('Введите порядок матрицы системы (макс. 10)'); Repeat Write('>'); Read(n); Until (n > 0) and (n <= maxn); Writeln; Writeln('Введите расширенную матрицу системы'); ReadSystem(n, a, b); Writeln; If Gauss(n, a, b, x) then begin Writeln('Результат вычислений по методу Гаусса'); WriteX(n, x); end else Writeln('Данную систему невозможно решить по методу Гаусса'); Writeln; End.

Отправлен: 22.01.2007, 19:52 Вопрос задал: Bizhuk (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: John Paramol Здравствуйте, Bizhuk! В приложении переведенный на C++ вариант. Удачи! Приложение: #include <stdio.h> #include <conio.h> #include <math.h> const int maxn = 10; typedef float Data; typedef Data Matrix[maxn][maxn]; typedef Data Vector[maxn]; // Процедура ввода расширенной матрицы системы void ReadSystem(int n, Matrix a, Vector b) { int i, j, r; r = wherey(); gotoxy(2, r); printf("A"); for(i=1; i<=n; ++i) { gotoxy(i*6+2, r); printf("%d",i); gotoxy(1, r+i+1); printf("%2d",i); } gotoxy((n+1)*6+2, r); printf("b"); for(i=0; i<n; ++i) { for(j=0; j<n; ++j) { gotoxy((j+1)*6+2, r+i+2); scanf("%f",&a[i][j]); } gotoxy((n+1)*6+2, r+i+2); scanf("%f",&b[i]); } } // Процедура вывода результатов void WriteX(int n, Vector x) { int i; for(i=0; i<n; ++i) printf("x %d = %d ",i+1,x[i]); } // Функция, реализующая метод Гаусса bool Gauss(int n, Matrix a, Vector b, Vector x) { int i=0,j=0,k,l; Data q=0,m=0,t=0; for(k=0; k<n-1; ++k) { // Ищем строку l с максимальным элементом в k-ом столбце l=0; m=0; for(i=k; i<n; ++i) if(fabs(a[i][k])>m) { m=fabs(a[i][k]); l=i; } // Если у всех строк от k до n элемент в k-м столбце нулевой, // то система не имеет однозначного решения if(l==0) return false; // Меняем местом l-ую строку с k-ой if(l!=k) { for(j=0; j<n; ++j) { t=a[k][j]; a[k][j]=a[l][j]; a[l][j]=t; } t=b[k]; b[k]=b[l]; b[l]=t; } // Преобразуем матрицу for(i=k+1; i<n; ++i) { q=a[i][k]/a[k][k]; for(j=0; j<n; ++j) if(j==k) a[i][j]=0; else a[i][j]=a[i][j]-q*a[k][j]; b[i]=b[i]-q*b[k]; } } // Вычисляем решение x[n-1]=b[n-1]/a[n-1][n-1]; for(i=n-2; i>=0; --i) { t=0; for(j=1; j<n-i; ++j) t=t+a[i][i+j]*x[i+j]; x[i]=(1/a[i][i])*(b[i]-t); } return true; } int main() { int n, i; Matrix a; Vector b, x; clrscr(); puts("Программа решения систем линейных уравнений по методу Гаусса "); printf("Введите порядок матрицы системы (макс. 10)"); do { printf(">"); scanf("%d",&n); } while(n<=0 || n>maxn); puts(" Введите расширенную матрицу системы"); ReadSystem(n, a, b); puts(""); if(Gauss(n,a,b,x)) { puts("Результат вычислений по методу Гаусса"); WriteX(n,x); } else puts("Данную систему невозможно решить по методу Гаусса "); getch(); return 0; } --------- 1=2, at values 1 large enough

Ответ отправил: John Paramol (статус: 6-ой класс) Ответ отправлен: 23.01.2007, 16:33

Вопрос № 72.142

Использую Borland C++ Builder 6. У меня два взаимосвязанных вопроса: 1) как создать функцию в С++ и использовать ее в пакете Mathcad (Mathsoft)? 2) как функцию из Mathcad использовать в программном коде на С++? Подскажите с ресурсами или дайте простенький пример.

Отправлен: 22.01.2007, 20:26 Вопрос задал: Volodymyr (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: ramok Здравствуйте, Volodymyr! в поставке с Mathcad должен быть Component Software Developers Kit - SDK, который позволяет разрабатывать модули для Mathcad на C++. там же должны быть примеры

Ответ отправил: ramok (статус: Студент) Ответ отправлен: 23.01.2007, 17:52

Вопрос № 72.146

Есть прога, шрифт по умолчанию SANS_SERIF, а мне препод сказала, исправить его на TRIPLEX, и как-то прилинковать, описать в одельном файле. Сам zero:) PS побыстрее plz

Отправлен: 22.01.2007, 20:41 Вопрос задал: NoViK (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Boriss Здравствуйте, NoViK! SetTextStyle(TriplexFont, HorizDir, 4); --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: mte WWW: Программирование на Паскале ---- Ответ отправлен: 23.01.2007, 11:26 Оценка за ответ: 4

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 ООО "Мастер-Эксперт Про", Москва, 2007 Авторские права | Реклама на портале Версия системы: 4.43 beta от 26.01.2007