MAX ALMA

Başlatan gladi, 03 Nisan 2012, 02:30:09

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
misafir olan kimse, beraberce getiremediği birşeye kalbini bağlamaz.

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
misafir olan kimse, beraberce getiremediği birşeye kalbini bağlamaz.