struct square { double x; double y; double a; double b; }; ifstream fin("file_with_doubles.txt"); vector<square> array; while(!fin.eof()) { array.push_back(square()); fin >> array.back().x; fin >> array.back().y; double k; fin >> k; array.back().a = k; array.back().b = k; } isquare intersection(square &s1, square &s2) // находит пересечение двух квадратов. { isqare ret; // типа того только лень писать, ret.x = (s1.x + s2.x)/2; ret.y = (s1.y + s2.y)/2; ret.a = abs(s1.x + s1.a/2 - (s2.x - s2.a/2)); ret.b = abs(s1.y + s1.b/2 - (s2.y - s2.b/2)); // тут дофига на само деле должно быть return ret; } ---------------------- Вот решение этой проги на С++,а мне на С надо,переделайте кто нибудь плиз
Из массива удалить элементы, имеющие четный индекс и стоящие между максимальным и минимальным элементами. Пример: из массива A[7]: 9 3 4 9 1 0 0 должен получиться массив A[5]: 9 4 1 0 0. // Pascal
Помоги пожалуйста решить задачки на подпрограммы на Paskale. В школе не проходили, а в универе теперь не знаю как решать. 1. Протабулируйте функции. Отрезок и шаг вводятся с клавиатуры. http://s1.ipicture.ru/uploads/20101212/T6NPE4Tl.jpg 2. Составить программу нахождения наибольшего общего делителя четырёх натуральных чисел. Спасибо, буду очень признателен. Задачи нужны не срочно, если будет время, посмотрите пожалуйста.
Кто разбирается в Maple ? нужно просто реализовать задание которое уже выполнено в Delphi средствами Maple !
ребят помогите как делать задачи на перевод из одной системы счисления в другую на Pascal , какие операторы использовать хотябы приблизительно, вообще смысл, структуру
без обид но гугл в помощь,много уже готовых кодов. ps ничего особенного не делается.. знаешь алгоритм перевода? опиши его на яп.
всмысле а можешь хоть небольшой пример обьяснить на гугле ничего толкового чтобы разобраться не нашел
перевод чисел blind123 Писал для подруги, только лень было обратный перевод реализовывать, глянь вот Написано на пхп, добавил комментарии несложно думаю под делфи перевести. PHP: // основная функция переводит из 10чной в "любые" другие function pretoany($num,$range) { $replace = array(0,1, 2, 3, 4, 5, 6, 7,8,9,"A","B","C","D","E","F"); // для перевода в системы счисления основанием больше 10 do { $c=$num % $range; // эта же строка на delphi num:=num mod range; $num=(int)$num/$range; $v=$v.$replace[$c]; // delphi v:=v+replace[c]; } while ($num > 0); return $v; } // функция отображает строку, нужна потому что предыдущая возвращает ответ в перевернутой форме. переписывай на делфи сам function per($str) { for($i=0;$i<strlen($str);$i++) { $strok = $str[$i].$strok; } return $strok; }
Друзья! Помогайте старым котам! Написать программу, которая будет увеличивать двоичное число записанное в массиве на единицу. Паскаль\дельфи с меня вискас
Добрый день, вот есть такая задачка про нейронную сеть. На плоскости заданы два набора точек, формирующих линейно неразделимые множества в виде двух концентрических спиралей. Требуется построить нейросетевую систему, которая по заданным координатам точки (два входа) относит ее либо к одной, либо ко второй спирали (один выход 0 или 1). Данные (500 точек) сформировать в файле. Использовать первые 400 точек для обучения, остальные для тестирования. Требуется построить многослойную нейросеть, решающую эту задачу и имеющую минимум связей. Возможно Вам потребуется нейросеть с 2 скрытыми полями. Помогите советом. в качестве нейросети используется сеть Кохонена. Как происходит процесс обучения такой сети на Delphi? Вообще кто сталкивался с нейросетями посоветуйте с чего начать!! Пытаюсь сделать сам, но кажется для моего уровня программирования задача сложновата. Заранее спасибо.
ребят помогите... нужен простой сайтик интернет магази торгуюшего дисководами на c# чтоб работала регистрация и корзинапокупок к пятнице... зачетная работа в колледже(((
BlackCats: Code: var a: array [1] of ardinal; //Объявление массива состоящего из одного элемента двоичного типа begin a[1]:=a[1]+1; // хз мб будет работать a[1]++; end; // написал в блокноте может и вообще работать не будет) Ты уверен что тебе нужно на c# писать??
парни нужна помощь гляньте код))) Code: #include <iostream> using namespace std; template<class arrayType> class Array { unsigned int SIZE; arrayType* Ar; public: Array(){ Ar=new arrayType[1] } ~Array() { delete [] Ar; } Array(unsigned int S) { if(S>INT_MAX){ cout<<"Error\n"; exit(1); } SIZE=S; Ar=new arrayType[SIZE]; } Array operator=(Array &a); Array(const Array &a); void putValue(arrayType t,unsigned int m); arrayType getValue(unsigned int m); void sort(); }; template<class arrayType> void Array<arrayType>::putValue(arrayType t,unsigned int m) { if(m>=SIZE ||m<0) { cout<<"Vishel za predeli"; exit(-1); } Ar[m]=t; } template<class arrayType> arrayType Array<arrayType>::getValue(unsigned int m) { if(m>=SIZE || m<0) { cout<<"Vishel za predeli"; exit(1); } return Ar[m]; } template<class arrayType> void Array<arrayType>::sort() { int i=0,n=0; for(int i=n-1; i >= 1; i--) for(int j=0; j<i; j++) { if(Ar[j] > Ar[j+1]) { int x = Ar[j]; Ar[j] = Ar[j+1]; Ar[j+1] = x; } } } template<class arrayType> Array<arrayType>::Array(const Array &a) { this->SIZE=a.SIZE; delete [] Ar; Ar= new arrayType[SIZE]; for(int i=0; i<SIZE; i++) { Ar[i]=a.Ar[i]; } } template<class arrayType> Array<arrayType> Array<arrayType>::operator=(Array &a) //проблема в этом перегруженом операторе стек почему то затирается и не может выполница возврат по this { this->SIZE=a.SIZE; delete[] Ar; Ar= new arrayType[SIZE]; for(int i=0; i<SIZE; i++) { Ar[i]=a.Ar[i]; } return *this; } int main() { Array<int> a; Array<int> op(300); a=op; op.putValue(1,0); op.putValue(4,1); op.putValue(3,2); op.sort(); cout<<op.getValue(0)<<" "<<op.getValue(1)<<" "<<op.getValue(2)<<endl; Array<char> hop(7); hop.putValue('g',0); hop.putValue('e',1); hop.putValue('o',2); hop.putValue('r',3); hop.putValue('g',4); hop.putValue('e',5); for(int i=0; i<6; i++) cout<<hop.getValue(i); cout<<endl; system("PAUSE"); return 0; }
Блок Схем всем привет, кто может помочь с блоком схем? собственно есть 2 задачи: 2 вроде бы написал) типом: Начало -> Массив m -> Цикл i=1, 100, 1 -> Если m(i)>100 -> [ДА] Прокручиваем цикл далее -> [НЕТ] Выводим m(i) и крутим дальше.... -> Выход Если, что не так может подкорректируете...ну это только вторая задача, а что делать с первой, помогите пожалуйста?
Здравствуйте,уважаемые знатоки!=) помогите с написанием функции на C++,которая упорядочивает два массива по возрастанию и потом производит их слияние в один,тоже упорядоченный,и из которого исключены возможные повторяющиеся числа.в массивах содержатся ЦЕЛЫЕ числа.буду очень благодарен.=)
нужен еще один хелп по паскалю, как сгененрировать последовательность случайных чиссел от - 9 до 33 если насколько я знаю оператор рандом всегда больше или равен 0 ?
Разбить стороку на массив Алгоритм такой: 1.Получить первую строку из файла file.dat Строка выглядит следуюшим образом Имя|Фамилия|Отчество|Год рождения|Пол|5|4|3|4|5|4|5|4| (5|4|3|4|5|4|5|4| сведения об успеваемости) 2.Разбить строку на массив по разделителю "|" mass[0] mass[1] mass[2] ... mass[13] 3.Если пол ="М" и в элементах с 5 по 13 значение >3 записать в файл input.dat Имя Фамилию год рождения 4.Получить следующею строку.
