Code: procedure TForm1.Button1Click(Sender: TObject); var i, j, n, m: Integer; res: Int64; begin n:=StrToInt(Edit1.text); m:=StrToInt(Edit2.text); res := 1; for j:=1 to m do for i:=1 to n do res := res * (2*i + j); label1.Caption:=FloatToStr(res); end;
Помогите плз. Надо написать на Паскале. Такая задача Найти медиану множества целых чисел, записанных в файл. Медиана - это такое вещественное число, что слева от него на числовой оси лежит столько же чисел из заданного набора, сколько и справа. Числа подсчитываются с учетом их кратности. Заданный набор вводится пользователем с клавиатуры
см. пост #1155 За оптимизацию спс, только кажется мне что подсчет неверный) Результат всегда один и тот же = 0 Исходники тут: _http://mihaker.name/files/lab2.zip (задача на втором "баттоне")
Да уж неверный Он нуль потому, что у тебя n=15 m=20 При таких условиях результат очень большой и происходит переполнение. Поставь n=3 m=4, тогда все считается.
Привет, нужно на шарпе следующее: есть файл... нужно записывать туда несколько потоков по очереди... Проверяя перед этим свободен ли файл для записи, прекратил ли писать прошлый поток...
Помогите составить прогу на С++(программирование) Составить программу, которая анализирует заданный входной файл, содержащий текст программы на С++, и переписывает из него все идентификаторы в выходной файл. Повторения идентификаторов в выходном файле не допускаются.
.::BARS::. Для синхронизации потоков используется мьютекс: Code: using System; using System.Collections.Generic; using System.Text; using System.IO; using System.Threading; namespace file_thread { class Program { public static StreamWriter wr; static void Main(string[] args) { wr = new StreamWriter("output.txt"); Thread t1 = new Thread(new ThreadStart(Thread1)); Thread t2 = new Thread(new ThreadStart(Thread2)); t1.Start(); t2.Start(); } public static void Thread1() { lock(wr) { for (int i = 0; i < 1000; i++) { wr.WriteLine("Thread #1"); } } } public static void Thread2() { lock (wr) { for (int i = 0; i < 1000; i++) { wr.WriteLine("Thread #2"); } } } } }
Товарищи, пожалуйста, если вас не затруднит, помогите решить вот эти задания: 1. type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec); day = 1..31; var m1, m2: mes; k:1..maxint; n:1..12; Присвоить переменной m1 название k-го месяца после месяца m. 2. type stroka = packed array [1..80] of char; var s:stroka; Известно, что в начале строки s находится не более 40 латинских букв, за которыми следуют пробелы. Напечатать эту строку, предварительно удалив первое вхождение w, если такое есть (образовавшуюся «дыру» заполнить последующими буквами, а в конец добавить пробел). 3. const n = 100; vаr х:аrrау [1..n] of rеаl; Упорядочить массив х по неубыванию, используя следующий алгоритм сортировки: сортировка вставками. Пусть первые и элементов массива уже упорядочены по неубыванию; берется (k+1 )-й элемент и размещается среди первых k элементов так, чтобы упорядоченными оказались уже k+1 первых элементов; этот метод применяется при k от 1 до n-1. 4. Создать массив записей, содержащих сведения о сотрудниках университета. Структура записи: фамилия и инициалы работающего, год рождения; название кафедры; стаж работы, должность, оклад. Количество записей произвольное. Вывести на экран следующие данные: средний стаж работающих на кафедре X и список профессоров пенсионного возраста с указанием стажа работы. 5. var A,B: set of char; x:char; Переменной B присвоить множество, полученное из A добавлением элемента x. или хотя бы что-нибудь из этого
Помогите плз. Надо написать на Паскале. Такая задача Найти медиану множества целых чисел, записанных в файл. Медиана - это такое вещественное число, что слева от него на числовой оси лежит столько же чисел из заданного набора, сколько и справа. Числа подсчитываются с учетом их кратности. Заданный набор вводится пользователем с клавиатуры
Всю задачу я не буду сюда писать, так как мне все понятно кроме... Вобщем имееться некая структура (С++) и нужно сохранять данные в дво связанном списке. Как ето понять и как ето организоватьна С++?
Code: #include <string.h> #include <iostream> using namespace std; struct NUM { int reg; char zdelka[20]; int v; char nal[20]; char data[20]; }lab; void main() { struct NUM num[15]; int n; cout << "How many operations :"; cin >> n; cout<<"Reg Num "<<" Zdelka "<< " Volume " << " Money " << " Date\n"; for(int i=0; i<n; i++) { cout<<"["<<i<<"] "; cin >> num[i].reg; cin >> num[i].zdelka; cin >> num[i].v; cin >> num[i].nal; cin >> num[i].data; } for(;;); } Есть структура которую нужно отсортировать. Задание : Написать программу для ведения учета торговых операций фирмы. О каждой торговой операции должны сохраняться следующие сведения: регистрационный номер, сущность сделки, объем, форма расчета (нал., безнал., бартер), дата совершения. Ввести информацию о N сделках (N выбрать самостоятельно) и упорядочить бартерные сделки по убыванию их объема.
Доделать задачу. Задание не сложное, просто пока времени совсем нет заниматься ей. Доделать подсчет "Плановая себестоимость партии изделий" , "Фактическая себестоимость партии изделий". Отобразить данные на те изделие, у которых фактическая себестоимость меньше плановой. Переделывал схожий пример, поэтому есть некоторые лишние фишки, на них внимания не обращать)) Скрин с заданием можно найти все в том же архиве: __http://mihaker.name/files/4_StringGrid_Chart.zip Заранее спасибо, завидую тем, у кого есть свободное время))
Ребят помогите рещит две задачи на С# очень прошу! -> Дано целое число N(>0). Найти нименьшее целое положительное число К, квадрат которого превосходит N: K*K>N. Функцию извлечения квадратного корня не использовать! ->Данна массив целых ненулевых чисел размером N. Проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, вывести 0, если нет то вывести порядковый номер первого элемента нарущающего закономерность! p.s. Зарание огромное спасибо если можно решите кто нить а то я в си не че не шарю на паскале написал эти проги а в си не могу!
Code: int N = 234; int solve; for (solve = 1; solve < int.MaxValue; solve++) if (solve * solve > N) break; Console.WriteLine(solve); Code: int[] arr = new int[] { -23, 21, -23, 23, 12, 34}; int i = 0; for (i = 1; i < arr.Length; i++) if (-Math.Sign(arr[i]) != Math.Sign(arr[i - 1])) break; if (i == arr.Length) Console.WriteLine(0); else Console.WriteLine(i + 1);
Помогите пожалуйста решить задачу по С. Написать функцию, которая подсчитывает количество слов начинающихся с буквы "к". Текст произвольной длины оканчивающийся ";". Текст состоит из слов, разделенных пробелами.
2pixelm : Code: #include<stdio.h> #include<conio.h> #include<string.h> int n_k(char *); void main() { clrscr(); char *str; gets(str); printf("%d\n", n_k(str));//пример вызовы ф-ии getch(); } //сама функция возвращяет количество слов на к int n_k(char *str) { int s=0,i; if(str[0]=='k')// это мож криво замутил, проверяет первую букву.. s++; for(i=0; str[i]!=';'; i++){ if(str[i]==' '&&str[i+1]=='k') s++; } return s; } компилятор BC 3.1