Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Несколько вопросов [D6, Win95/98]

CrazyXP © (2002-04-08 20:19:00)
У меня появилась небольшая проблемка, помогите кто чем может! :(
1) поменять местами значения переменных А и В без использования третьей переменной. (оператор присваивания)
2) с помощбю оператора цикла с предусловием (While) протабулировать функцию sin(x) в интервале x (0;п) с шагом 0.5 (смутно представляю, но хотелось бы уточнить значение слова "протабулировать")
3) посчитать квадрат 200000
4) какое действительное число соответствует дате
11.01.2002 15:05

Большое спасибо за внимание :) Буду благодарен за помощь...

AFROLOV (2002-04-09 17:48:00) [1]
из-за переполнения, надо пологать. Придется тебе писать "длинную" арифметику, где число представляется в виде массива, длина которого определяется величиной числа.
Или тип Extended использовать(у него такие числа переполнения не вызывают)

Anatoly Podgoretsky (2002-04-09 17:45:00) [2]
sqr тип Extended - FloatToStr/StrToFloat

CrazyXP (2002-04-09 17:41:00) [3]
3) Это если на калькуляторе считать 4000000000 получается, а если

Edit1.Text:=200000;
Label1.Caption:=IntToStr(sqr(StrToInt(Edit1.text)));

то Label1.Caprion=1345294336

а это не правильно...
почему?

VictorT (2002-04-08 20:51:00) [4]
Shaman_Naydak © (08.04.02 20:46)
Насчёт 1) мне тоже больше нравится больше как у тебя, просто небыл уверен, что правильно на Паскале напишу, забываю я его :(

Shaman_Naydak (2002-04-08 20:46:00) [5]
Опять олимпиаду какую-нидь коллективным разумом решаем? :)
Насчет 1) Мне больше нравится такая конструкция
a:=a xor b;
b:=a xor b;
a:=a xor b;
Прикольней выглядит

4) 37267,6284722222
EncodeDate(2002, 01, 11) + EncodeTime(15, 05, 00, 00);
Но вообще-то VictorT прав.. смотря от чего считать..
Delphi 2.. считает от 12/30/1899 12:00 am

[MC]NuClon (2002-04-08 20:41:00) [6]
2)
x:=0; While x<=Pi Do Begin {use sin(x)}; .... x:=x+0.5; End;

VictorT (2002-04-08 20:35:00) [7]
4) Эт смотря в каком формате дата хранится. Обычно - кол-во секунд от какой-то даты.

VictorT (2002-04-08 20:29:00) [8]
1) a := a + b;
b := a - b;
a := a - b;
2) протабулировать - значит получить таблицу соответствия аргумента и функции для заданных значений
3) 40000000000

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »