lazurna Опубликовано 3 мая, 2010 Жалоба Поделиться Опубликовано 3 мая, 2010 помогите пожалуйста переделать программу.Она пишется на С++,эта прога должна вычислять интеграл вида : интеграл от нуля до единицы F(t)/(t^a), при 0<a<1. Расчет должен быть выполнен на примере интеграла : инт. от нуля до единицы 1/((2-x)*(x*(1-x))^(1/2)) с точностью eps= 0.01 вот похожая прога: [ #include "stdafx.h" #include "Трапеции.h" #include<math.h> #include<conio.h> #include<stdio.h> #include<iostream> #include<windows.h> #ifdef _DEBUG #define new DEBUG_NEW #endif CWinApp theApp; using namespace std; int _tmain() { SetConsoleCP(1251);//Русификатор ввода SetConsoleOutputCP(1251);// Русифкатор вывода double pow(double t, double y); double a,b,q,er,eps,f (double),s,trap (double, double, double, double(*) (double)); printf("Добро пожаловать в программу вычисления интграла \n\ модифицированным методом трапеций!\n"); printf("Данная программа вычисляет интеграл от нуля до единицы \n\ интеграла exp(-t)/t^0.5 c учетом его особенности в нуле\n"); q=0.00000001; a=0+q; b=1; eps=0.01;//Точность s=trap(a,b,eps,f); printf("\n Ответ: %lf\n\n",s); getch(); } double f(double t) { return exp(-t)/(pow(t,0.5)); } double trap(double a,double b,double eps,double(*f)(double)) { double h,s,s0,s1,sn; int i,n; printf("Введите число шагов:\n"); scanf("%d",&n); s=1; sn=101; s0=(f(a)+f(b))/2; s1=f((a+b)/2); while(fabs(s-sn)>eps) { sn=s; h=(b-a)/n; for(i=0; i<n/2; i++) s1+=f(a+(2*i+1)*h); s=h*(s0+s1); n*=2; } return s; } ] Ссылка на комментарий Поделиться на другие сайты Поделиться
DJFlint Опубликовано 4 мая, 2010 Жалоба Поделиться Опубликовано 4 мая, 2010 DJFlint прошу прощения, но я затупил так как выкладывал сообщения в торопях. вообщем вот здесь фотка с заданием(забыл написать про интервал сравнения) Вроде бы так: corrected.rar corrected.rar Ссылка на комментарий Поделиться на другие сайты Поделиться
ХельгаZ Опубликовано 5 мая, 2010 Жалоба Поделиться Опубликовано 5 мая, 2010 Здравствуйте. Подскажите, пожалуйста, какое свойство в какое значение надо установить, чтобы табличка не сдвигалась при редактировании (Delphi, StringGrid)? Ссылка на комментарий Поделиться на другие сайты Поделиться
Lion HC Опубликовано 5 мая, 2010 Жалоба Поделиться Опубликовано 5 мая, 2010 Как сдвигалась? Ссылка на комментарий Поделиться на другие сайты Поделиться
ХельгаZ Опубликовано 5 мая, 2010 Жалоба Поделиться Опубликовано 5 мая, 2010 При внесении данных в таблицу выделяемая ячейка не подходит к правому и нижнему краям формы, а сдвигает табличку под формой. Надо как-то разрешить, чтобы подходила. Но я не нашла. Ссылка на комментарий Поделиться на другие сайты Поделиться
temich5000 Опубликовано 5 мая, 2010 Жалоба Поделиться Опубликовано 5 мая, 2010 Привет всем !!!!!!!!!!!!!!! Очень нужна помощь в написании данной программы на паскале Задание: Создать массив элементов типа integer. Создать массив указателей типа integer Настроить каждый указатель на соответствующий элемент массива. Выполнить сортировку массива по убыванию или возрастанию переставляя соответствующие элементы массива указателей. Вывести исходный и отсортированный по указателям. Ссылка на комментарий Поделиться на другие сайты Поделиться
core_st Опубликовано 5 мая, 2010 Жалоба Поделиться Опубликовано 5 мая, 2010 Создать два списка. заполнить их упорядоченными числами и создать функцию сливания списков в один. с++ Ссылка на комментарий Поделиться на другие сайты Поделиться
Тролль Опубликовано 5 мая, 2010 Жалоба Поделиться Опубликовано 5 мая, 2010 temich5000: var a:array[1..20]of integer; p:array[1..20]of ^integer; q:pointer; i,j:integer;beginrandomize; for i:=1 to 20 do a[i]:=random(100);for i:=1 to 20 do p[i]:=@a[i];for i:=2 to 20 do for j:=2 to 20 do if p[j]^>p[j-1]^ then begin q:=p[j]; p[j]:=p[j-1]; p[j-1]:=q end;for i:=1 to 20 do write(a[i]:4); writeln;for i:=1 to 20 do write(p[i]^:4); writeln;readlnend. Сортировка - по убыванию. Ссылка на комментарий Поделиться на другие сайты Поделиться
core_st Опубликовано 5 мая, 2010 Жалоба Поделиться Опубликовано 5 мая, 2010 Помогите пожалуйста. срочно на завтра надо. со списками не дружу вообще. :) Ссылка на комментарий Поделиться на другие сайты Поделиться
core_st Опубликовано 5 мая, 2010 Жалоба Поделиться Опубликовано 5 мая, 2010 Создать два списка. заполнить их упорядоченными числами и создать функцию слияния списков в один. с++. прочитал кучу материалов - везде написано о сортировке слиянием, но только на массивах. а на списках - ничего Ссылка на комментарий Поделиться на другие сайты Поделиться
Lion HC Опубликовано 6 мая, 2010 Жалоба Поделиться Опубликовано 6 мая, 2010 #include "list"using namespace std;typedef list<int> intlst;intlst merge_intlsts (const intlst &list1, const intlst &list2){intlst bace(list1);intlst adding(list2);bace.merge(adding);return bace;}int _tmain(int argc, _TCHAR* argv[]){int i1[] = {1,2,3,8,10};int i2[] = {4,5,6,7,9};intlst list1(i1,i1+5);intlst list2(i2,i2+5);intlst list3 = merge_intlsts(list1, list2);} Ссылка на комментарий Поделиться на другие сайты Поделиться
core_st Опубликовано 6 мая, 2010 Жалоба Поделиться Опубликовано 6 мая, 2010 СПС! еще подскажы как то список на екран вывести? Ссылка на комментарий Поделиться на другие сайты Поделиться
temich5000 Опубликовано 6 мая, 2010 Жалоба Поделиться Опубликовано 6 мая, 2010 Спасибо огромное тролль !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Ссылка на комментарий Поделиться на другие сайты Поделиться
Тролль Опубликовано 6 мая, 2010 Жалоба Поделиться Опубликовано 6 мая, 2010 core_st: Чтобы тебе не ждать Lion HC, слегка модифицирую его программу дополнением вывода на экран по твоему заданию: #include<list>#include<iostream>using namespace std;typedef list<int> intlst;intlst merge_intlsts (const intlst &list1, const intlst &list2){intlst bace(list1), adding(list2); bace.merge(adding); return bace;}int main(){intlst::iterator it;int i1[]={1,2,3,8,10}, i2[]={4,5,6,7,9};intlst list1(i1,i1+5), list2(i2,i2+5), list3=merge_intlsts(list1, list2);for(it=list3.begin(); it!=list3.end(); it++)cout<<" "<<*it; getchar();} Ссылка на комментарий Поделиться на другие сайты Поделиться
san_virtuoz Опубликовано 6 мая, 2010 Жалоба Поделиться Опубликовано 6 мая, 2010 ПОМОГИТЕ! Проектирование и разработка автоматизированной системы обработки данных начислення заработной платы сотрудникам факультета. Создать систему обработки данных, которая состоит из: * бази данних-массива структур, сохраненного в файле; * меню запросов к базе данных которое должно включать команды; - сортировка по каждому полю; - поиск данных по каждому полю для: * выведение потриюной информации на экран; * редактирование отдельных полей; - редактирование базы данных: * удаление записи; * включение новой записи; Ссылка на комментарий Поделиться на другие сайты Поделиться
Shadow TH Опубликовано 7 мая, 2010 Жалоба Поделиться Опубликовано 7 мая, 2010 Люди, помогите, pls. Нужно решить уравнение: e ^(-2*x) - 2 * x + 1 = 0 методом простых итераций на языке QBasic. Точность E = 10^-6. Очень буду благодарен. Ссылка на комментарий Поделиться на другие сайты Поделиться
Тролль Опубликовано 7 мая, 2010 Жалоба Поделиться Опубликовано 7 мая, 2010 Shadow TH: CLS : n = 0: x = 1: eps = 1E-6DO: y = (EXP(-2 * x) + 1) / 2: z = x: n = n + 1 PRINT n, x: x = y: LOOP UNTIL ABS(z - x) <= epsEND У Вашего препода борода пол подметает? :bleh: Ссылка на комментарий Поделиться на другие сайты Поделиться
Shadow TH Опубликовано 7 мая, 2010 Жалоба Поделиться Опубликовано 7 мая, 2010 У Вашего препода борода пол подметает? :bleh: Да не, вроде не носит бороду :D Спасибо за помощь :D Ссылка на комментарий Поделиться на другие сайты Поделиться
temich5000 Опубликовано 13 мая, 2010 Жалоба Поделиться Опубликовано 13 мая, 2010 Привет всем !!!!!!!!!!!!!!! Очень нужна помощь в написании данной программы на паскале Задание: Используя рекурсию вывести в обратном порядке последовательность чисел. Входные данные взять из текстового файла. Ссылка на комментарий Поделиться на другие сайты Поделиться
Тролль Опубликовано 13 мая, 2010 Жалоба Поделиться Опубликовано 13 мая, 2010 temich5000: var f:text; i:integer; a:array[1..1000]of integer;procedure Obr(i:integer);begin write(a[i]:5); if i>1 then Obr(i-1) end;beginassign(f,'file.txt'); reset(f); i:=0;while not eof(f) do begin inc(i); read(f,a[i]) end;close(f); obr(i); writeln; readlnend. Предполагается, что файл с числами называется file.txt. Ссылка на комментарий Поделиться на другие сайты Поделиться
temich5000 Опубликовано 13 мая, 2010 Жалоба Поделиться Опубликовано 13 мая, 2010 Спасибо огромное Тролль !!!!! Ссылка на комментарий Поделиться на другие сайты Поделиться
johny_7 Опубликовано 16 мая, 2010 Жалоба Поделиться Опубликовано 16 мая, 2010 Здравствуйте, помогите с лабой, пишется в visual c++ 1.В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1)сумму отрицательных элементов массива 2)произведение элементов массива, расположенных между максимальным и минимальным элементами 3)упорядочить элементы массива по возрастанию 2.Дана целочисленная прямоугольная матрица. Определить: 1)количество строк, не содержащих ни одного нулевого элемента 2)максимальное из чисел, встречающихся в заданной матрице более одного раза Заранее спасибо)) Ссылка на комментарий Поделиться на другие сайты Поделиться
Тролль Опубликовано 16 мая, 2010 Жалоба Поделиться Опубликовано 16 мая, 2010 johny_7: 1. #include<iostream>using namespace std; main(){int i,j,n,imi,ima; float a[100],mi,ma,s,p,q,b; cout<<"Enter the number of values: "; cin>>n; cout<<"Enter "<<n<<" values"<<endl; for(i=0;i<n;i++)cin>>a[i]; s=0; for(i=0;i<n;i++)if(a[i]<0)s+=a[i]; mi=ma=a[0]; for(i=0;i<n;i++){if(a[i]>=ma)ma=a[ima=i]; if(a[i]<=mi)mi=a[imi=i];} b=0; p=1; if(imi>ima)swap(imi,ima); for(i=imi+1;i<ima;i++){p*=a[i]; b=1;}for(j=1;j<n;j++)for(i=1;i<n;i++)if(a[i]<a[i-1])swap(a[i],a[i-1]);cout<<"s="<<s<<" "; if(b)cout<<"p="<<p<<endl; else cout<<"p don't exist"<<endl; for(i=0;i<n;i++)cout<<a[i]<<" "; cout<<endl; getchar(); getchar();} 2. #include<iostream>#include<iomanip>using namespace std; main(){int a[20][20],i,j,m,n,t,b,c,ma; cout<<"M N ? "; cin>>m>>n; for(i=0;i<m;i++){cout<<"line"<<i+1<<" ? "; for(j=0;j<n;j++)cin>>a[i][j];} b=0; t=0; for(i=0;i<m;i++)for(j=0;j<n;j++)if(a[i][j]==0){t++; break;} t=m-t;for(i=0;i<m;i++)for(j=0;j<n;j++){c=0; for(int k=0;k<m;k++)for(int l=0;l<n;l++)if(a[k][l]==a[i][j])c++; if(c>1)if(b==0){ma=a[i][j]; b=1;}else if(ma<a[i][j])ma=a[i][j];}cout<<"t="<<t<<" max="<<ma<<endl;for(i=0;i<m;i++){for(j=0;j<n;j++)cout<<setw(5)<<a[i][j]<<" "; cout<<endl;} getchar(); getchar();} Visual C++ у меня не установлен, но в Dev-C++ работает. Ссылка на комментарий Поделиться на другие сайты Поделиться
Tior Опубликовано 18 мая, 2010 Жалоба Поделиться Опубликовано 18 мая, 2010 Помогите плиз в Pascal Дана матрица NxN тип А11 А12....А1n A21 A22....A2n ..................... An1 An2....Ann и 2 произвольнихAij b Akr Найти самый простой (кротчайший путь с самой минимальной суммой елементов) путь от Аij к Akr при условии,что перемещатса можно только на один елемент которий не меньше за поточный елемент. Перемещатса можно во всех направлениях в т.ч. и по диагонали. Пример Aij=A11; Akr=Ann. матрица 1 3 6 8 2 0 5 1 1 3 7 4 6 0 5 8 входные данные N=10 елементы матрицы - целые числа В результате получим три наиболее коротких пути: 1 2 3 5 8 или 1 2 3 7 8 или 1 3 5 7 8 Наиболее простым есть 1 2 3 5 8, так как сумма 1+2+3+8=14 являетса минимальной. Зарание спасибо!) Ссылка на комментарий Поделиться на другие сайты Поделиться
core_st Опубликовано 19 мая, 2010 Жалоба Поделиться Опубликовано 19 мая, 2010 Задание - спроектировать систему класов (минимум 5 класов) для реализации електронного магазина книг. Думаю должен быть клас Пользователь, Заказ, Корзина, Оплата ... и еще что-то? но вот с полями и методами проблемы. если есть у кого какие соображения - поделитесь Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Для публикации сообщений создайте учётную запись или авторизуйтесь
Вы должны быть пользователем, чтобы оставить комментарий
Создать учетную запись
Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!
Регистрация нового пользователяВойти
Уже есть аккаунт? Войти в систему.
Войти