MAX ALMA

[gladi]

arkadaşlar , 8 adet değişken var ve bunlar her an değişiyor ... işlem önceliği en fazla olan değişkene veriliyor ...ve o değişken sıfırlanıyor ...


ben 4 taneli , az önce bir kod yazdım fakat ... bu işin tek satır gibi kısa yolu yokmu mesala şöyle

E = A , B ,C, D  MAX       GİBİ


yazdığım cod


BASLA:

IF A>B THEN
IF A>C THEN
IF A>D THEN
LCDOUT $FE,$C0,"A=",# A
GOTO BASLA
ELSE
ENDIF
ENDIF
ENDIF
IF B>C THEN
IF B>D THEN
LCDOUT $FE,$C0,"B=",# B:GOTO BASLA
ELSE
ENDIF
ENDIF
IF C >D THEN
LCDOUT $FE,$C0,"C=",# C
ELSE
LCDOUT $FE,$C0,"D=",# D
ENDIF


GOTO BASLA

[serhat1990]

Basic'i unuttum sayılır fakat ve işlemine tabi tutup yapsana
if a>b and a>c then
....

gibi ve işlemini kullanman işini görür.

[Klein]

Basic ile array kullanabiliyor musun?

[The Gariban]

Eğer sadece en büyük sayıyı bulmak yeterli ise
max diye bir değişkeni önce sıfıra eşitle .Sonrada okuduğun her sayı max dan büyükse yeni max ı buna ata değilse
bir sonraki sayıyı oku
Böylece 5-6 satırda enbüyük sayısı bulursun istersen 100 tane sayıyı oku kod satırların uzamaz
(Diğer döngü girilecek sayı adedi kadar çalışır)

[gladi]

arkadaşlar şöle bile yaptım sanırım en kestirmeden böle içime sindi kod şu ;



FOR B0 = 0 TO 7
  LOOKUP2 B0,[A,B,C,D,E,F,G,H],B1
EN_YUK=EN_YUK  MAX B1
NEXT