Помогите пожалуйста , чтобы работало через Trubo C. Реализовать команду, переставляющую местами первую и последнюю записи данного файла, состоящего из записей заданной длины.
Помогите решить, кому не сложно Программа на C 3.Написать подпрограмму сортировки 2-мерного массива целых по строкам (использовать сумму значений строки), сохранив эти значения в главной диагонали массива.
Напишите в чем ошибка в предпоследней строчке! Если поставить вместо "а" "3" в предпоследней строке то работает, а так нет, как сделать? #include<iostream> using namespace std; template<class T> T sum(T m, int n) {return m+n;} template<class T> T sum(T* a, int size) { T s = 0; for(int i=0; i<size; ++i) s+=a; return s; } int main() { cout<<sum(1,2)<<endl; int a[]={1,2,3}; cout<<sum(3,3)<<endl; return 0; }
помогите плс задали вот такое задание в Делфи: написать программу расчитывающаю количество дней,часов,минут,секунд между двумя датами, заданными в формате например 12.01.2009 14:37:59 и системной датой, временем... расчёт должен вестись по всем правилам, с учётом високосных годов.... и если можно плиз с пояснениями.....
Visual Studio.... это же мутант.... Стандарты? Да он ест их на завтрак, обед и ужин. Так что о правильности написания кода нельзя судить по словам этого демона
Ты передал литерал вместо указателя в первом параметре в обоих случаях использования функции sum. Не совсем понял вопрос. Функция ждет от тебя указатель, зачем тебе передавать ей тройку, вместо него? Какую из двух перегруженных функций ты хотел использовать? Программа будет работать в обоих случаях, потому что подставляется перегруженная функция, которая удовлетворяет переданным параметрам (их типам)
Помогите, пожалуйста, разработать программу нахождения значения определенного интеграла методом Симпсона (на паскале). Вот, собственно, функция для интегрирования: y=log3(внизу)х (х+х^2)^-1 . Исходные данные: интервал интегрирования, количество разбиений отрезка. Результат нужно получить такой: значение интеграла, график заданной функции. Решение интерпретировать графически (автоматическое масштабирование, название графика, метки на осях и обозначение осей). Также нужно предусмотреть переключение между графическим и текстовым окнами для ввода исходной информации и вывода результатов интегрирования и графической интерпретации. И предусмотреть проверку корректности данных. Код на дельфи уже есть: A, B - интервал интегрирования N - число точек на интервале Func - функция, от которой берется интеграл. Возвращаемое значение - значение интеграла PHP: type TFunction = function(X: Extended; Arg: Pointer): Extended; function Simpson(A, B: Extended; N: Cardinal; Func: TFunction; Arg: Pointer): Extended; var h: Extended; X: Extended; K: Extended; I: Integer; begin Assert(N > 0); h := 0.5 * (B - A) / N; Result := Func(A, Arg); X := A + h; for I := 1 to 2 * N - 1 do begin if I mod 2 = 0 then K := 2 else K := 4; Result := Result + K * Func(X, Arg); X := X + h; end; Result := Result + Func(B, Arg); Result := h * Result / 3; end; Но нужно его как-нибудь переделать в код Паскаля. Плиз помогите)
мм.. привет всем.. начали изучать делфи. столкнулся с первой проблемой.. препод сказал нестандартная задача.. как не пробовал не получается.. не совсем понимаю именно сути задачи.. если можно помогите решить.. и будет супер если будет пара комментов.. вот собственно сама задача Задачка по Делфи. Суммирование рядов. для заданного положительного Е и заданного х выччслить сумму ряда с точностью Значение параметра m, входящего в некоторые варианты, вводится с клавнатуры. Суммирование ряда завершается, если модуль очередного слагаемого меньше Е. Значение суммы сравнить с соответствующим значением в левой части равенства. действительные типы объявить ехtended. Предусмотреть ограничение количества слагаемых ряда для предотвращения <зацикливанию> программы. (1-x)^(-m)=1+m*x+[m*(m+1)/2!]*x^2+[m*(m+1)(m+2)/3!]*x^3+.... |x|<1; m>0
Всем привет, уже целый день бьюсь с задачей Проверить соответствие слов begin, end, case end, record в операторах программы Pascal учесть что в строке может быть несколько слов, повторений. Программа на тему динамические структуры данных Заранее спасибо PS Сори!!! не указал язык в которм выполнить надо" надо сделать на Pascal
Code: program Project2; {$APPTYPE CONSOLE} uses SysUtils, Math; var x, e: Extended; m: Integer; maxCount: Integer; a, sum: Extended; i: Integer; begin //вводим начальные данные Write('Enter x:'); repeat Readln(x); until abs(x)<1; Write('Enter m:'); repeat Readln(m); until m>0; Write('Enter e:'); repeat Readln(e); until e>0; //считаем сумму ряда maxCount := 100; sum := 1; a := 1; for i:=1 to maxCount do begin a := a*(m+i-1)*x/i; sum := sum + a; if (abs(a)<e) then break; end; //пишем результат WriteLn('Result :' + floatToStr(sum)); WriteLn('True value :' + floatToStr(Power(1-x, -m))); Readln; end.
Может кто-нить помочь три задачки решить? 1. Дан массив из N элементов. Каждый элемент равен 0, 1 или 2; нужно переставить элементы так, чтобы сначала располагались все нули, затем все единицы, а после них - двойки 2. Найти количество элементов в массиве, больших среднего арифметического всех элементов массива. 3.Задан массив из N элементов. Определить максимальный элемент. Заранее спасибо
на каком языке то???? еси С++ то первая задача готовая Code: #include<iostream> using namespace std; void swap(int *p1, int *p2); int main() { int p[10]; int i; for (i=0;i<10;i++){ cout << "Enter array's element #"<<i+1<<"\n"; cin >> p[i]; if(p[i]<0 || p[i]>2) { cout << "Error\n"; break; } } for(i=0;i<10;i++) { for (int j=0;j<9;j++) { if (p[j]>p[j+1]) swap (&p[j], &p[j+1]); } } for (i=0;i<10;i++) cout << p[i]<<" "; return 0; } void swap(int *p1, int *p2) { int temp=*p1; *p1=*p2; *p2=temp; } я кароч токо начал учить не знаю как сделать что бы если елемент масива больше 2 или меньше 0 выйти в конец программы?
Ребят нужна помощ знатаков асма -.- Нужно написать процедуры для ввода с клавиатуры, аналоги подпрограмм ввода/вывода с Паскаля Read(ln) Write(ln)
когда то писал ввиде макросов, вот держи: Code: puts MACRO src ; print string to STDOUT IFB <src> display "Use macro: puts <string>" EXITM ELSE push ax push dx lea dx,src mov ah,09h int 21h pop dx pop ax ENDIF ENDM Code: gets MACRO dst ; read string from STDIN local _read, _done IFB <dst> display "Use macro: gets <dst>" EXITM ELSE push ax push bx lea bx, dst _read: getc cmp al, 13 je _done mov [bx], al inc bx jmp _read _done: putc 0Ah pop bx pop ax ENDIF ENDM
люди, можете помочь решить задачу двуэтапным симплекс методом в С++: max f = 315х1 + 278х2 +573х3 + 370х4 ограничения: 350x1 + 620x3 ≤ 64100; 40x1 + 30x2 + 20x3 + 20x4 ≤ 4800; 30x1 + 40x2 + 30x3 + 30x4 ≤ 55200; 86x1 + 110x2 + 150x3 + 52x4 ≤ 22300; 160x1 + 92x2 + 158x3 + 128x4 ≤ 26240; 501x4 ≤ 800; 158x2 + 30x3 + 50x4 ≤ 7910; 4.5x1 + 4.5x2 + 4.5x3 + 4.5x4 ≤ 720; x2 ≥ 40; x3 ≤ 120; x1, x2, x3, x4 ≥ 0;
Помогите вот с такой задачей в C++ B. есть Ansi строка из 7-ми символов. То есть 7 байт. Надо сделать её длинной в 8 байт, вставив в исходную строку нулевой бит через каждые 7 бит.
Code: program Project2; {$APPTYPE CONSOLE} uses SysUtils; var source: string; lexem: string; c : char; i:Integer; stack: array[0..100] of string; stackPointer: integer; procedure PushLexem(lexem: string); begin if lexem = 'end' then begin //найден конец блока, выталкиваем из стека if stackPointer = 0 then Writeln('Error: Found "end", but not found "begin", "case" or "record"') else dec(stackPointer) end else if (lexem='begin') or (lexem='case') or (lexem='record') then begin if(stackPointer>=Length(stack)) then Writeln('Error: Stack overflow');//переполнение стека - слишком много вложенных блоков в исходном тексте //кладем лексему в стек stack[stackPointer] := lexem; inc(stackPointer); end end; begin //ввод проверяемого кода Writeln('Enter Pascal source: '); Readln(source); //переводим в нижний регистр, добавляем пробел в конце source := LowerCase(source)+' '; //перебираем символы, ищем лексемы lexem := ''; for i:=1 to Length(source) do begin c := source[i]; if c in ['a'..'z','0'..'9','_'] then //читаем лексему lexem := lexem + c else if lexem<>'' then begin //прочитана лексема, кладем в стек PushLexem(lexem); lexem := ''; end end; //проверяем сотсояние стека, он должен быть пуст if stackPointer > 0 then Writeln('Error: Found "'+stack[stackPointer-1]+'", but not found "end"'); Writeln('Analysis completed'); Readln; end.
