Войти или зарегистрироваться
Выберите удобный способ — аккаунт создастся автоматически.
Или войдите по логину и паролю
 |
|
21.06.2009, 21:38
|
|
Новичок
Регистрация: 09.11.2007
Сообщений: 24
С нами:
9739767
Репутация:
3
|
|
Assambler
Всем привет! Подскажите пожалуйста, есть ли у кого-нибудь пример работы с файлами на Ассемблере. А именно интересует создание, чтение и запись. Чтение я нашел, а вот использую функции создания и записи и выходят ошибки. Было бы здорово, если у кого то окажется уже готовая программка. Буду оочень Вам признателен. Спасибо!
|
|
|
22.06.2009, 10:48
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
С нами:
9598011
Репутация:
50
|
|
Виндовые функции чем не устраивают
CreateFile
ReadFile
WriteFile
CloseFile
|
|
|
|
22.06.2009, 13:56
|
|
Флудер
Регистрация: 27.04.2009
Сообщений: 4,294,967,295
С нами:
8968207
Репутация:
2
|
|
Есть ли добрые ппрогеры (VB сишарп) посидеть завтра с 9 до 10 часов утра в асе а решить если что задачку(простенькие в основном) , если нужно будет денег подкинуть на снятие морального подресеняя на пиво сделаем  |
|
|
|
23.06.2009, 16:56
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
как расположить элементы одномерного массива в обратном порядке (Delphi). Выручайте, завтра экзамен.
|
|
|
|
23.06.2009, 17:18
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
С нами:
10216668
Репутация:
930
|
|
Создаешь еще один и циклом записываешь наоборот.
int Mas2[N];
for (int i=0; i<N; i++)
Mas2[i]=Mas1[N-i];
Если нужно, потом присваиваешь каждому элементу Mas1 элемент Mas2.
for (int i=0; i<N; i++)
Mas1[i]=Mas2[i];
Переписать на делфи вроде не сложно.
|
|
|
|
23.06.2009, 19:08
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
С нами:
9598011
Репутация:
50
|
|
как расположить элементы одномерного массива в обратном порядке (Delphi). Выручайте, завтра экзамен.
можно осуществить без создания второго массива
Код:
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;
Последний раз редактировалось dos999; 23.06.2009 в 19:11..
|
|
|
|
23.06.2009, 19:22
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Fata1ex и dos999 спс, с задачей разобрался
|
|
|
|
24.06.2009, 21:50
|
|
Banned
Регистрация: 10.05.2009
Сообщений: 3
С нами:
8950594
Репутация:
10
|
|
Помогите пожалуйста с лабараторной работой, язык - PASCAL
Вот первый пример:
Вот второй пример (там в знаменателе модуль)
Заранеие спасибо, завтра уже нужно сдавать, выручайте |
|
|
|
24.06.2009, 22:12
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
С нами:
9423746
Репутация:
2399
|
|
Код:
var y,x:real;
begin
x := 1.23;
y := sin(sqrt(x*x+0,1))+pow(e,x);
end;
Код:
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 :
Код:
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;
|
|
|
|
24.06.2009, 22:44
|
|
Banned
Регистрация: 10.05.2009
Сообщений: 3
С нами:
8950594
Репутация:
10
|
|
Сообщение от eLWAux
Код:
var y,x:real;
begin
x := 1.23;
y := sin(sqrt(x*x+0,1))+pow(e,x);
end;
Код:
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 :
Код:
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 " ?
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 4 (пользователей: 0 , гостей: 4)
|
|
|
|
Похожие темы
Линейный вид
