Создаешь еще один и циклом записываешь наоборот. int Mas2[N]; for (int i=0; i<N; i++) Mas2=Mas1[N-i]; Если нужно, потом присваиваешь каждому элементу Mas1 элемент Mas2. for (int i=0; i<N; i++) Mas1=Mas2; Переписать на делфи вроде не сложно.
можно осуществить без создания второго массива Code: arr: array of integer; ... var e, i, len: Integer; begin len := length(arr); for i := 0 to trunc(len/2) - 1 do begin e := arr[i]; arr[i] := arr[len-1-i)]; arr[len-1-i] := e; end; end;
Помогите пожалуйста с лабараторной работой, язык - PASCAL Вот первый пример: Вот второй пример (там в знаменателе модуль) Заранеие спасибо, завтра уже нужно сдавать, выручайте
Code: var y,x:real; begin x := 1.23; y := sin(sqrt(x*x+0,1))+pow(e,x); end; Code: var z,x,y:real; x := 1,23; y := 4,56; z:= (x*x*y + y*y*x + ln(x)) / (4 * abs(sin(x/3) + sqrt(y) ) ); pow для pascal : Code: function pow(A,B:real):real; Var T:Real; Begin T := Abs(A); If A < 0 Then Pow := (-1)*Exp(B*Ln(T)) Else Pow := Exp(B*Ln(T)); End;
А есть различия между паскалем и турбо паскалем?? У нас просто турбо паскаль, а я ступила и написала просто паскаль... И почему у тебя числа x и у уже заданны? И что такое "pow для pascal " ?
- А есть различия между паскалем и турбо паскалем?? Нет А функция pow описывается отдельно, eLWAux использовал её для решения первого уравнения
Помогите с контрольной на delphy 3.0 Помогите написать прогу для расчета на делфи площадь окружности. Заранее спасибо. Жду Вашей помощи!
1. описать шаблон функции, формирующий массив, каждый элемент которого равен минимальному из соответствующих значений двух массивов - параметров. награду кину в лс решевшиму..
типа этого правильность не гарантирую Code: template<class T> *T min(T* a, T* b, int size) { T result [size] ; for(int i = 0 ; i < size ; i++) if(a[i] >= b[i]) result[i] = b[i]; else result[i] = a[i]; return result; }
1. Описать шаблон функции, формирующий массив, каждый элемент которого равен минимальному из соответствующих значений двух других массивов- параметров. 2. Описать класс "окружность", содержащий данные о координатах центра окружности, ее радиусе и цвете. Предусмотреть компонентные функции получения каждого данного по отдельности, рисования, стирания, переноса окружности, изменения её радиуса и цвета. 3. Описать класс "время". Компонентные данные часы, минуты, секунды.Перегрузить операции: >>,<<(вывод в формате чч/мм/сс), !=(проверка на неравенство), - (промежуток между двумя событиями в часах, минутах, секундах) 4. Первый базовый класс - библиотека. Второй базовый класс система УДК или ключевых слов. Производные классы - художественная литература. 5. Необходимо разработать шаблон соответствующего класса, где поля могут иметь различные типы данных(некоторые поля могут быть статическими). Предусмотреть наличие в классе указанных методов и перегруженных оепраций. Название класса точка Поля координаты, цвет Методы Нарисовать, стереть, переместить перегружаемые операции бинарный - (расстояние между точками)-=(уменшить каждую координату) 6. Необходимо создать три массива a,b,c размерами n1,n2,n3 соответетсвенно(неравные друг другу). В массив а занести значения функций f(x) согласно варианту(при возникновении исключений заносить нули). Массив b заполнить случайными числами (среди них должны быть и отрицательные и нули). Массив с формируется согласно варианту. Предусмотреть и обработать возникающие при этом исключительные ситуации (деление на ноль, корень из отрицательного числа, арифметическое переполнение, выход за пределы диапазона индексов массива и т.п.) lg((x-1)/(x+1)), x принадлежит [-3;7], дельта х=0.5 7. Дан текст. Группы символов, разделенные пробелами и не содержащие пробелы внутри себя, будем считать словами. Напечатать эти слова в алфавитном порядке. 8. Дана очередь данных о клиентах пункта проката автомобилей: ФИО, адрес(улица, дом, квартира) и марка машины. Во второй массив записать отсортированные по алфавиту данные тольо тех людей, кто ездит на "Audi".
если я правильно тебя понял, то это будет выглядеть примерно так: var R:real;//переменная с радиусом P:real;//число Пи S:real;//площадь begin R:=значение радиуса; P:=3.14; S:=P*R^2;//вычисляем площадь end; а вообще площади окружности не бывает, бывает длинна окружности и площадь круга...
Народ помогите пожалуйста найти ошибочку в коде... (Java) Кину код функции которая должна архивировать данные... public static void packing(){//File path, String fileName){ try{ BufferedImage image = ImageIO.read(new File("X:/workspace/Java project/K-RLEArhivator/test/avatar77547.gif")); ByteArrayOutputStream outputStream = new ByteArrayOutputStream(); ImageIO.write(image, "jpg", outputStream); byte[] data = outputStream.toByteArray(); System.out.println(outputStream.size()); FileOutputStream out = new FileOutputStream("file.dat"); int temp = 0; for(int i = 0; i < data.length; i++){ temp = i; while(data != data[i+1]) { packingData[index] = 00; count++; i++; } packingData[++index] = (byte) count; for(int index_c = 0; index_c <= count; index_c++){ packingData[++index] = data[temp++]; } count = 0; temp = i; while(data == data [i+1]){ count2++; i++; } packingData[index] = (byte) ++count2; packingData[++index] = data[temp]; count2 = 0; i++; temp = i; while(data == data[i+1]){ count2++; i++; loop = true; } if(loop){ packingData[++index] = (byte) count2; packingData[++index] = data[temp]; count2 = 0; loop = false; } index++; } for(int b = 0; b < packingData.length; b++) { out.write(packingData); } } catch(IOException ioe){ ioe.printStackTrace(); } Размерность аватарки - 19,725. 1)Проблема в том что когда я загружаю побайтово данные в массив data получаю размерность массива 3,523. 2)После запуска программы получаю сл ошибку: Exception in thread "main" java.lang.ArrayIndexOutOfBoundsException: 3523 at Archiver.packing(Class_Main.java:49) at Class_Main.main(Class_Main.java:16)
Как выключить компьютер программно с помощью паскаля ? листинг покажите пжл.. и может у кого есть подобный справачник команда то в учебниках ни чего такого нету
можно так попробовать, но ни паскаля ни делфей нету по рукой проверить не могу... PHP: program QuickShutdown; uses SysUtils, Windows; const SE_SHUTDOWN_NAME='SeShutdownPrivilege'; var hToken: THandle; tkp: TTokenPrivileges; tkpo: TTokenPrivileges; zero: DWORD; OSName: string; function myGetVersion: String; var VersionInfo: TOSVersionInfo; begin VersionInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo); if Windows.GetVersionEx(VersionInfo) then begin with VersionInfo do begin case dwPlatformId of VER_PLATFORM_WIN32s : OSName:='Win32s'; VER_PLATFORM_WIN32_WINDOWS: OSName:='Windows 95'; VER_PLATFORM_WIN32_NT : OSName:='Windows NT'; end; Result:=OSName+' Version '+IntToStr(dwMajorVersion)+'.'+IntToStr(dwMinorVersion)+ #13#10' (Build '+IntToStr(dwBuildNumber)+': '+szCSDVersion+')'; end; end else Result:=''; end; begin if Pos('Windows NT', MyGetVersion)=1 then begin zero:=0; if not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin Exit; end; // if not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) if not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin Exit; end; // if not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) // SE_SHUTDOWN_NAME if not LookupPrivilegeValue(nil, 'SeShutdownPrivilege' , tkp.Privileges[ 0 ].Luid) then begin Exit; end; // if not LookupPrivilegeValue(nil, 'SeShutdownPrivilege' , tkp.Privileges[0].Luid ) tkp.PrivilegeCount:=1; tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, False, tkp, SizeOf(TTokenPrivileges ), tkpo, zero); if Boolean(GetLastError()) then begin Exit; end // if Boolean(GetLastError()) else begin ExitWindowsEx(EWX_Force or EWX_SHUTDOWN, 0); end; end // if OSVersion = 'Windows NT' else begin // just shut the machine down ExitWindowsEx(EWX_Force or EWX_SHUTDOWN, 0); end; end. Хотя, это конечто больше для делфей...
procedure vukl; var hToken: THandle; tkp: TTokenPrivileges; ReturnLength: Cardinal; begin if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid); tkp.PrivilegeCount := 1; tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then ExitWindowsEx(EWX_ShutDown,0);// Выключение end; end; Code: WinExec('Shutdown -s -t 0', SW_HIDE); Этот вариант проходит только в том случае, если вы вошли в систему с правами администратора...
Нужна помощь в C++ Builder 6 Вот задание. y=корин кубичный(m*t*b*t+|c*sint|) z=m*cos(b*t*sint)+C m=2 t=1,2 c=1 b=0,7 Вычислить на ЕВТ значения переменных, за задаными вычислительными формулами и набором входных данных. На экран дисплея вывести значения введенных входных данных и результаты вычислений, сопровождая вывод наименованых выведенных переменных.
Задание 2. Составить блок-схему алгоритму и програму на языке Турбо Паскаль, ввести ее в память ЕВТ(електронно вычислительная техника), отредактировать программу, обчислить значения функцыи провести анализ одержаных результатов.
