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

Выпуск № 985
от 03.02.2008, 14:05

Вопрос № 120.551

Здавтсвуйте, господа эксперты, помогите пожалуйста с решением задачи на С. Век буду благодарен. Напишите программу статистической обработки данных, которая включает: - ввод вещественных данных; - вычисление минимума и максимума; - вычисление среднего арифметического; - сортировку по возрастанию; - вывод данных, разброс которых от среднего не превышает 25%; - вывод данных, с указанием процентного отношения к максимуму.

Отправлен: 28.01.2008, 17:17 Вопрос задал: Томилов Станислав Степанович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Попов А.С. Здравствуйте, Томилов Станислав Степанович! Решение смотрите в приложении Приложение: #include <iostream> #include <cstdlib> #include <vector> #include <algorithm> #include <math.h> #include <iomanip> using namespace std; bool defl_avg(float in, float av) { if(fabs((float)(av-in)) <= (av*0.2500)) return true; else return false; } float percent(float in, float max) { if(max==0) return 0.0; return (float) (in/max)*100; } int main() { vector<float> v; float min,max,average,buf; int count; cout<<"Count: "; cin>>count; for(int i=0; i<count; ++i) { cin>>buf; v.push_back(buf); } buf=0; min=max=v.at(0); for(vector<float>::iterator j=v.begin(); j!=v.end(); ++j) { buf+=*j; if(*j > max) max=*j; if(*j < min) min=*j; } average=buf/count; sort(v.begin(),v.end()); cout<<endl<<"Ranked:"; for(vector<float>::iterator j=v.begin(); j!=v.end(); ++j) cout<<endl<<*j; cout<<endl<<" Deflection 25%:"; for(vector<float>::iterator j=v.begin(); j!=v.end(); ++j) if(defl_avg(*j,average))cout<<endl<<*j; cout<<endl<<" With percent attitude:"; for(vector<float>::iterator j=v.begin(); j!=v.end(); ++j) cout<<endl<<*j<<" "<<"percent="<<percent(*j,max); cout<<endl; system("pause"); return 0; }

Ответ отправил: Попов А.С. (статус: 7-ой класс) Ответ отправлен: 29.01.2008, 08:46

Отвечает: Терсков Сергей Здравствуйте, Томилов Станислав Степанович! Вариант решения вашей задачи смотрите в приложении. Приложение: #include <math.h> #include <iostream> using namespace std; int main(int argc, char* argv[]) { int size; double *A; cout << "Input a size of array:" << endl; cin >> size; A = new double[size]; for(int i=0; i<size; i++) { cout << "Input A[" << i << "]:" << endl; cin >> A[i]; } cout << "Initial array:" << endl; for(int i=0; i<size; i++) cout << A[i] << " "; double min = A[0]; for(int i=0; i<size; i++) if(A[i] < min) min = A[i]; cout << endl << endl << "Minimal element is: " << min << endl; double max = A[0]; for(int i=0; i<size; i++) if(A[i] > max) max = A[i]; cout << endl << "Maximum element is: " << max << endl; double average = 0.0; for(int i=0; i<size; i++) average += A[i]; average /= static_cast<double>(size); cout << endl << "Arithmetical average is: " << average << endl; for(int i=0; i<size-1; i++) { int min_index = i; for(int j=i+1; j<size; j++) if(A[j] < A[min_index]) min_index = j; if(min_index != i) swap<double>(A[i], A[min_index]); } cout << endl << "Sorted array:" << endl; for(int i=0; i<size; i++) cout << A[i] << " "; cout << endl << endl << "Elements with deflection from average less than 25%:" << endl; for(int i=0; i<size; i++) if(fabs(A[i] - average) < average * 0.25) cout << A[i] << " "; cout << endl << endl << "Maximum percentage:" << endl; for(int i=0; i<size; i++) cout << A[i] << "( " << (A[i]/max)*100 << "%) "; cout << endl; delete[] A; return 0; }

Ответ отправил: Терсков Сергей (статус: Практикант) Ответ отправлен: 29.01.2008, 09:00

Вопрос № 120.598

Здравствуйте ) Вот условия задачи: (Для QBasic)Поменять местами четные и нечетные столбцы матрицы [A], размером N х N. Вывести на печать исходную и новую матрицы.

Отправлен: 28.01.2008, 22:00 Вопрос задала: S1mona (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Терсков Сергей Здравствуйте, S1mona! Вариант решения вашей задачи смотрите в приложении. Приложение: #include <iostream> #include <cstdlib> using namespace std; int my_rand(int ceil, int floor) { return (ceil + rand()%(floor - ceil)); } int main(int argc, char* argv[]) { const int N = 4; const int M = 5; int A[N][M]; int i, j; for(i=0; i<N; i++) for(j=0; j<M; j++) A[i][j] = my_rand(0, 100); cout << "Matrix A:" << endl; for(i=0; i<N; i++) { for(j=0; j<M; j++) cout << A[i][j] << " "; cout << endl; } for(i=1; i<M; i+=2) for(j=0; j<N; j++) swap<int>(A[j][i], A[j][i-1]); cout << "Matrix A after transpose:" << endl; for(i=0; i<N; i++) { for(j=0; j<M; j++) cout << A[i][j] << " "; cout << endl; } return 0; }

Ответ отправил: Терсков Сергей (статус: Практикант) Ответ отправлен: 29.01.2008, 09:02 Оценка за ответ: 2 Комментарий оценки: в условиях, простите, совершенно не это требуется =)

Отвечает: Архипов Александр Леонидович Здравствуйте, S1mona! Если надо на Qbasic, то зачем в эту тему писать? Если на Qbasic, то решение в приложении. Приложение: DIM A(4,4) AS INTEGER FOR K = 1 TO 4 FOR N = 1 TO 4 INPUT A(K,N) NEXT N NEXT K FOR K = 1 TO 4 FOR N = 1 TO 4 PRINT A(K,N), NEXT N PRINT "" NEXT K DIM Tmp AS INTEGER FOR K = 1 TO 4 STEP 2 FOR N = 1 TO 4 Tmp = A(N,K+1) A(N,K+1) = A(N,K) A(N,K) = Tmp NEXT N NEXT K FOR K = 1 TO 4 FOR N = 1 TO 4 PRINT A(K,N), NEXT N PRINT "" NEXT K

Ответ отправил: Архипов Александр Леонидович (статус: Студент) Ответ отправлен: 29.01.2008, 13:25

Вопрос № 120.606

У меня опять вопрос. В этой программе, до того как туда были вставлены строки HWND hEdit = CreateWindowEx(0, "EDIT", "", WS_CHILD|WS_VISIBLE|WS_BORDER, 350, 350, 300, 50, hWnd, NULL, hInstance, 0); RECT rt; GetWindowRect(hWnd, &rt); SetWindowPos(hEdit, NULL, 1, 345, rt.right, 20, SWP_DRAWFRAME); hWnd =CreateWindowEx (NULL,"static", "Введите x1", WS_CHILD|WS_VISIBLE, 5,320,100,19,hWnd,NULL, hInstance, 0); рисовался белый прямоугольник посреди окна. Его отрисовка обеспечивалась кодом HBRUSH hbr = (HBRUSH) GetStockObject(WHITE_BRUSH); FillRect(hDC,&r,hbr); который и сейчас есть в программе. Но почему этого прямоугольника вдруг не стало? Также хотелось бы узнать, как сделать, чтобы фон метки "Введите x1" был равен цвету фона окна, а сам этот фон хоть и был серым, но не таким темным? Приложение: #include <windows.h> //uses windows HWND hWnd; //var hWnd:HWND void DoProc(void) { HDC h = GetDC(hWnd); MoveToEx(h, 65, 180, NULL); LineTo(h,375,180); } LRESULT CALLBACK OnHandleEvent(HWND hSender,//дескриптор окна, для //обработки события которого //вызвана функция UINT message,//код сообщения WPARAM wParam,//1 параметр сообщения LPARAM lParam //2 параметр сообщения ) /* FUNCTION OnHandleEvent(hSender:HWND; message: INTEGER; wParam:WPARAM;lParam:LPARAM) : LRESULT BEGIN END; */ { //case WM_COMMAND: if (LOWORD(wParam) == 100) // должно быть значение параметра HMENU кнопки DoProc(); // смотрите реализацию в приложении if(message == WM_CLOSE && hSender == hWnd) { PostQuitMessage(0); //поставить в очередь сообшение WM_QUIT return 0; //OnHandleEvent:=0;BREAK; } else if(message == WM_PAINT && hSender == hWnd) { HDC hDC; //var hDC: HDC {переменная - контекст устройства} PAINTSTRUCT ps; //служебная структура hDC = BeginPaint(hSender,&ps);//получить контекст устройства RECT r = {50,140,400,220};//структура RECT описывает //размеры прямоугольника HBRUSH hbr = (HBRUSH) GetStockObject(WHITE_BRUSH); FillRect(hDC,&r,hbr); EndPaint(hSender,&ps);//освобождаем контекст устройства return 0;//выход из обработчика событий } //Все прочие сообщение - пускай винда обрабатывает сама!!! //OnHandleEvent := DefWindowProc(hSender,message,wParam,lParam); return DefWindowProc(hSender,message,wParam,lParam); } int WINAPI WinMain(HINSTANCE hInstance, //дескриптор приложения HINSTANCE _not_use_, LPSTR cmdLine, //Коммадная строка int nCmdShow //желаемое отображение окна ) { //MessageBox(NULL,"HELLO WIN",":-))",MB_OK | MB_ICONINFORMATION); //описание структуры, содержащей класс окна WNDCLASS wc={0}; //var wc: WNDCLASS wc.cbClsExtra = 0;//дополнительная память, которая wc.cbWndExtra = 0;//не используется wc.hbrBackground = (HBRUSH)GetStockObject(GRAY_BRUSH); wc.hCursor = LoadCursor(NULL, //стандартный курсор IDC_ARROW // курсор-стрелка ); wc.hInstance = hInstance; wc.lpfnWndProc = OnHandleEvent; //обработчик событий для окон //этого класса wc.lpszMenuName = 0; wc.lpszClassName= "PS200"; wc.style="0;" //поведени по умолчанию if(RegisterClass(&wc)==0)//IF RegisterClass(@wc) = 0 THEN {//произошла ошибка в регистрации класса окна- // выйти из програмы MessageBox(NULL,"Упс...",":-(",MB_OK); return 1; } //Создание окна hWnd = CreateWindow("PS200",//класс окна, который мы ранее //регистрировали "Окно в Европу ;-)",//титул WS_POPUP | WS_BORDER | WS_CAPTION | WS_SYSMENU | WS_MAXIMIZEBOX | WS_MINIMIZEBOX, 100,100,500,400, 0, //оконо само по себе 0, //меню нет hInstance, //дескриптор приложения берем из //первого параметра функции WinMain 0 //буфер не используем ); if(hWnd == 0) //IF hWnd = 0 THEN { MessageBox(NULL,"Упс...2...",":-(",MB_OK); return 1; } ShowWindow(hWnd, nCmdShow //берем из последнего параметра WinMain ); CreateWindow("button", //стандартный класс! "Press me...", WS_CHILD | BS_PUSHBUTTON | WS_VISIBLE , 350,290,100,50, hWnd, (HMENU)100, hInstance,0); HWND hEdit = CreateWindowEx(0, "EDIT", "", WS_CHILD|WS_VISIBLE|WS_BORDER, 350, 350, 300, 50, hWnd, NULL, hInstance, 0); RECT rt; GetWindowRect(hWnd, &rt); SetWindowPos(hEdit, NULL, 1, 345, rt.right, 20, SWP_DRAWFRAME); hWnd =CreateWindowEx (NULL,"static", "Введите x1", WS_CHILD|WS_VISIBLE, 5,320,100,19,hWnd,NULL, hInstance, 0); //цикл сообщения, чтобы все это заработало ;-) MSG events; //var events: MSG while(GetMessage(&events,0,0,0) != 0) DispatchMessage(&events); }

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

Отвечает: Verena Здравствуйте, Blackie! Проблема в том, что Вы отчего-то используете существующую и необходимую переменную nWnd для нового окошка (static-а). Соответсвенно не срабатывает обработчик сообщения WM_PAINT (посмотрите, в условии стоит hSender == hWnd, а в этой переменной уже не хранится HWND главного окна), и Ваша фигура не отрисовывается. Также заметила, что в edit-е у Вас не вводится текст - это от того, что в цикле обработки сообщений вызывается только функция DispatchMessage, а для работы с клавиатурой нужна функция TranslateMessage (она определяет, какие клавиши нажаты, возвращает их код, определяет код символа, если это не спеуиальная клавиша). Её надо вызвать перед функцией DispatchMessage в том же цикле. Подправленную программу привожу в приложении (после таблички). Насчёт цвета фона главного окна - у Вас он определяется при помощи функции GetStockObject(GRAY_BRUSH) (параметр wc.hbrBackground в классе окна), вот то, что в скобках - цвет, в том же msdn-е есть таблица возможных цветов для этой функции (привожу в приложении). Есть другой вариант - wc.hbrBackground = (HBRUSH)(COLOR_WINDOW+17), число можно менять, если поэкспериментировать, можно подобрать подходящий цвет (возможно, есть таблицы цветов), в данном случае это также тёмно-серый. Как менять цвет static-а через апи-функции, к сожалению, не знаю. Удачи! Приложение: /*BLACK_BRUSH Black brush. DKGRAY_BRUSH Dark gray brush. DC_BRUSH Windows 2000/XP: Solid color brush. The default color is white. The color can be changed by using the SetDCBrushColor function. For more information, see the Remarks section. GRAY_BRUSH Gray brush. HOLLOW_BRUSH Hollow brush (equivalent to NULL_BRUSH). LTGRAY_BRUSH Light gray brush. NULL_BRUSH Null brush (equivalent to HOLLOW_BRUSH). WHITE_BRUSH White brush. BLACK_PEN Black pen. DC_PEN Windows 2000/XP: Solid pen color. The default color is white. The color can be changed by using the SetDCPenColor function. For more information, see the Remarks section. WHITE_PEN White pen. ANSI_FIXED_FONT Windows fixed-pitch (monospace) system font. ANSI_VAR_FONT Windows variable-pitch (proportional space) system font. DEVICE_DEFAULT_FONT Windows NT/2000/XP: Device-dependent font. DEFAULT_GUI_FONT Default font for user interface objects such as menus and dialog boxes. This is MS Sans Serif. Compare this with SYSTEM_FONT. OEM_FIXED_FONT Original equipment manufacturer (OEM) dependent fixed-pitch (monospace) font. SYSTEM_FONT System font. By default, the system uses the system font to draw menus, dialog box controls, and text. Windows 95/98 and Windows NT: The system font is MS Sans Serif. Windows 2000/XP: The system font is Tahoma SYSTEM_FIXED_FONT Fixed-pitch (monospace) system font. This stock object is provided only for compatibility with 16-bit Windows versions earlier than 3.0. DEFAULT_PALETTE Default palette. This palette consists of the static colors in the system palette. */ #include <windows.h> //uses windows HWND hWnd; //var hWnd:HWND void DoProc(void) { HDC h = GetDC(hWnd); MoveToEx(h, 65, 180, NULL); LineTo(h,375,180); } LRESULT CALLBACK OnHandleEvent(HWND hSender,//дескриптор окна, для //обработки события которого //вызвана функция UINT message,//код сообщения WPARAM wParam,//1 параметр сообщения LPARAM lParam //2 параметр сообщения ) /* FUNCTION OnHandleEvent(hSender:HWND; message: INTEGER; wParam:WPARAM;lParam:LPARAM) : LRESULT BEGIN END; */ { //case WM_COMMAND: if (LOWORD(wParam) == 100) // должно быть значение параметра HMENU кнопки DoProc(); // смотрите реализацию в приложении if(message == WM_CLOSE && hSender == hWnd) { PostQuitMessage(0); //поставить в очередь сообшение WM_QUIT return 0; //OnHandleEvent:=0;BREAK; } else if(message == WM_PAINT && hSender == hWnd) { HDC hDC; //var hDC: HDC {переменная - контекст устройства} PAINTSTRUCT ps; //служебная структура hDC = BeginPaint(hSender,&ps);//получить контекст устройства RECT r = {50,140,400,220};//структура RECT описывает //размеры прямоугольника HBRUSH hbr = (HBRUSH) GetStockObject(WHITE_BRUSH); FillRect(hDC,&r,hbr); EndPaint(hSender,&ps);//освобождаем контекст устройства return 0;//выход из обработчика событий } //Все прочие сообщение - пускай винда обрабатывает сама!!! //OnHandleEvent := DefWindowProc(hSender,message,wParam,lParam); return DefWindowProc(hSender,message,wParam,lParam); } int WINAPI WinMain(HINSTANCE hInstance, //дескриптор приложения HINSTANCE _not_use_, LPSTR cmdLine, //Коммадная строка int nCmdShow //желаемое отображение окна ) { //MessageBox(NULL,"HELLO WIN",":-))",MB_OK | MB_ICONINFORMATION); //описание структуры, содержащей класс окна WNDCLASS wc={0}; //var wc: WNDCLASS wc.cbClsExtra = 0;//дополнительная память, которая wc.cbWndExtra = 0;//не используется wc.hbrBackground = (HBRUSH)GetStockObject(GRAY_BRUSH); wc.hCursor = LoadCursor(NULL, //стандартный курсор IDC_ARROW // курсор-стрелка ); wc.hInstance = hInstance; wc.lpfnWndProc = OnHandleEvent; //обработчик событий для окон //этого класса wc.lpszMenuName = 0; wc.lpszClassName= "PS200"; wc.style="0;" //поведени по умолчанию if(RegisterClass(&wc)==0)//IF RegisterClass(@wc) = 0 THEN {//произошла ошибка в регистрации класса окна- // выйти из програмы MessageBox(NULL,"Упс...",":-(",MB_OK); return 1; } //Создание окна hWnd = CreateWindow("PS200",//класс окна, который мы ранее //регистрировали "Окно в Европу ;-)",//титул WS_POPUP | WS_BORDER | WS_CAPTION | WS_SYSMENU | WS_MAXIMIZEBOX | WS_MINIMIZEBOX, 100,100,500,400, 0, //оконо само по себе 0, //меню нет hInstance, //дескриптор приложения берем из //первого параметра функции WinMain 0 //буфер не используем ); if(hWnd == 0) //IF hWnd = 0 THEN { MessageBox(NULL,"Упс...2...",":-(",MB_OK); return 1; } ShowWindow(hWnd, nCmdShow //берем из последнего параметра WinMain ); CreateWindow("button", //стандартный класс! "Press me...", WS_CHILD | BS_PUSHBUTTON | WS_VISIBLE , 350,290,100,50, hWnd, (HMENU)100, hInstance,0); HWND hEdit = CreateWindowEx(0, "EDIT", "", WS_CHILD|WS_VISIBLE|WS_BORDER, 350, 350, 300, 50, hWnd, NULL, hInstance, 0); RECT rt; GetWindowRect(hWnd, &rt); SetWindowPos(hEdit, NULL, 1, 345, rt.right, 20, SWP_DRAWFRAME); HWND hStat =CreateWindowEx (NULL,"static", "Введите x1", WS_CHILD|WS_VISIBLE, 5,320,100,19,hWnd,NULL, hInstance, 0); //цикл сообщения, чтобы все это заработало ;-) MSG events; //var events: MSG while(GetMessage(&events,0,0,0) != 0){ TranslateMessage (&events); DispatchMessage(&events); } return 0; } --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент) Ответ отправлен: 28.01.2008, 23:45 Оценка за ответ: 5 Комментарий оценки: спасибо за подробное разъяснение, особенно про цвет фона

Отвечает: Сандров Алекс Здравствуйте, Blackie! Надо просто выкинуть в OnHandler-е все проверки на hWn == hSender, потому что hWnd там не проинициализированная глобальная переменная. Поэтому не только прямоугольник не отрисовывается, а ещё и приложение не закрывается(после закрытия окна). В приложении записал функцию обработчика, которая у меня рисовала прямоугольник Приложение: LRESULT CALLBACK OnHandleEvent(HWND hSender,//дескриптор окна, для //обработки события которого //вызвана функция UINT message,//код сообщения WPARAM wParam,//1 параметр сообщения LPARAM lParam //2 параметр сообщения ) /* FUNCTION OnHandleEvent(hSender:HWND; message: INTEGER; wParam:WPARAM;lParam:LPARAM) : LRESULT BEGIN END; */ { //case WM_COMMAND: if (LOWORD(wParam) == 100) // должно быть значение параметра HMENU кнопки DoProc(); // смотрите реализацию в приложении if(message == WM_CLOSE) { PostQuitMessage(0); //поставить в очередь сообшение WM_QUIT return 0; //OnHandleEvent:=0;BREAK; } else if(message == WM_PAINT) { HDC hDC; //var hDC: HDC {переменная - контекст устройства} PAINTSTRUCT ps; //служебная структура hDC = BeginPaint(hSender,&ps);//получить контекст устройства RECT r = {50,140,400,220};//структура RECT описывает //размеры прямоугольника HBRUSH hbr = (HBRUSH) GetStockObject(WHITE_BRUSH); FillRect(hDC,&r,hbr); EndPaint(hSender,&ps);//освобождаем контекст устройства return 0;//выход из обработчика событий } //Все прочие сообщение - пускай винда обрабатывает сама!!! //OnHandleEvent := DefWindowProc(hSender,message,wParam,lParam); return DefWindowProc(hSender,message,wParam,lParam); }

Ответ отправил: Сандров Алекс (статус: 2-ой класс) Ответ отправлен: 29.01.2008, 06:15 Оценка за ответ: 5

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.70 от 17.01.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru