- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 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.
If b>a then
В этом отрывке кода наглядно видно, что при разработке Дельфи пристальное внимание уделяется надёжности кода! Даже в такой пустяковой операции, как сравнение, надо сделать ещё одну контрольную проверку, переставив числа, и автор этого кода это учёл. Некоторые компиляторы Дельфи даже повторяют все инструкции по два раза для того, чтобы код стал ещё надёжнее!
не выпендривайся, забаню
Хорошо, давайте ваш дневник, троечку я вам поставлю.
diary.ru
за коньяк?
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.
...
if c>a then a:=c;
writeln(a);