- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
var
a,b,c:real;
begin
read(a,b,c);
if a<b then
If b>a then
If b>c then
If c<b then
Write('max - ',b);
if b<a then
If a>b then
If a>c then
If c<a then
Writae('max - ',a);
if a<c then
If c>a then
If c>b then
If c<b then
Write('max - ',c);
Readln;
End.
guest 01.05.2011 13:56 # 0
guest 01.05.2011 13:59 # −2
TarasB 01.05.2011 14:16 # +5
If b>a then
В этом отрывке кода наглядно видно, что при разработке Дельфи пристальное внимание уделяется надёжности кода! Даже в такой пустяковой операции, как сравнение, надо сделать ещё одну контрольную проверку, переставив числа, и автор этого кода это учёл. Некоторые компиляторы Дельфи даже повторяют все инструкции по два раза для того, чтобы код стал ещё надёжнее!
guest 01.05.2011 14:23 # +1
TarasB 01.05.2011 15:13 # 0
guest 02.05.2011 10:56 # −5
KATAJIU3ATOP 01.05.2011 14:25 # +1
KATAJIU3ATOP 01.05.2011 15:25 # 0
guest 01.05.2011 19:29 # −7
KATAJIU3ATOP 01.05.2011 19:54 # 0
guest 01.05.2011 20:15 # −7
не выпендривайся, забаню
istem 01.05.2011 20:21 # +5
Lure Of Chaos 01.05.2011 21:05 # 0
guest 01.05.2011 23:20 # −6
KATAJIU3ATOP 01.05.2011 20:45 # 0
TarasB 01.05.2011 21:17 # +3
Vindicar 02.05.2011 10:42 # +1
KATAJIU3ATOP 01.05.2011 22:04 # +1
ling 03.05.2011 09:56 # +6
Govnocoder#0xFF 03.05.2011 10:22 # +1
guest 04.05.2011 04:48 # 0
TarasB 04.05.2011 12:57 # +2
Хорошо, давайте ваш дневник, троечку я вам поставлю.
guest 04.05.2011 13:20 # 0
TarasB 04.05.2011 14:04 # −1
guest 04.05.2011 14:57 # 0
KATAJIU3ATOP 04.05.2011 18:22 # 0
TheHamstertamer 16.05.2011 16:46 # −1
guest 16.05.2011 16:50 # −1
Lure Of Chaos 04.05.2011 19:10 # +1
diary.ru
bugmenot 04.05.2011 19:21 # 0
guest 09.05.2011 16:29 # −1
TarasB 10.05.2011 09:33 # +1
7ion 05.05.2011 12:34 # 0
bugmenot 05.05.2011 15:19 # 0
за коньяк?
7ion 05.05.2011 23:02 # 0
bugmenot 05.05.2011 23:10 # 0
istem 05.05.2011 23:24 # 0
guest 09.05.2011 15:52 # 0
guest 09.05.2011 16:32 # 0
adli__82 27.05.2011 12:20 # 0
Var
a,b,c:Real;
Begin
ReadLn('Enter thre numbers a,b,c :',a,b,c);
Write('Max=');
If a<b Then a:=b;
If c>a Then WriteLn(c) Else WriteLn(a)
Readln
End.
SmackMyBitchUp 27.05.2011 12:39 # +1
...
if c>a then a:=c;
writeln(a);
adli__82 27.05.2011 12:50 # 0
guest 27.05.2011 13:56 # 0
SmackMyBitchUp 30.05.2011 11:26 # 0
KATAJIU3ATOP 28.05.2011 10:34 # 0