Несколько вопросов

← →
CrazyXP © (2002-04-08 20:19) [0]

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

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

← →
VictorT © (2002-04-08 20:29) [1]

1) a := a + b;
b := a - b;
a := a - b;
2) протабулировать - значит получить таблицу соответствия аргумента и функции для заданных значений
3) 40000000000

← →
VictorT © (2002-04-08 20:35) [2]

4) Эт смотря в каком формате дата хранится. Обычно - кол-во секунд от какой-то даты.

← →
[MC]NuClon (2002-04-08 20:41) [3]

2)
x:=0; While x<=Pi Do Begin {use sin(x)}; .... x:=x+0.5; End;

← →
Shaman_Naydak © (2002-04-08 20:46) [4]

Опять олимпиаду какую-нидь коллективным разумом решаем? :)
Насчет 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

← →
VictorT © (2002-04-08 20:51) [5]

Shaman_Naydak © (08.04.02 20:46)
Насчёт 1) мне тоже больше нравится больше как у тебя, просто небыл уверен, что правильно на Паскале напишу, забываю я его :(

3) Это если на калькуляторе считать 4000000000 получается, а если

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

то Label1.Caprion=1345294336

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

sqr тип Extended - FloatToStr/StrToFloat

← →
AFROLOV (2002-04-09 17:48) [8]

из-за переполнения, надо пологать. Придется тебе писать "длинную" арифметику, где число представляется в виде массива, длина которого определяется величиной числа.
Или тип Extended использовать(у него такие числа переполнения не вызывают)

Несколько вопросов Найти похожие ветки