Thunder55

Girilen N tane Sayının en büyüğünü bulan programın algoritması nasıl olabilir?Böyle bir programı Qbasic veya Alaturka dilinde nasıl yazabiliriz?

fatma8580

Paskalda kodları en iyi bildigim oldugu için yazdım
Not ufak tefek ; hatası verebilir aklımdan yazdım

uses crt ;
var
enb,s,i:integer;
sayi:array 1..100;
begin
writeln('Kaç adet sayı=');
readln(s);
for i:=0 to s do
begin
writeln(i+1,'. Sayıyı giriniz=');readln(sayi[i]);
end;
enb:=sayi[i];
for i:=0 to s do
begin
if sayi[i]>enb then
begin
enb:=sayi[i];
end;
end;
for i:=0 to s do
writeln(i+1,'. Sayı=',sayi[i]);
writeln('Enbüyük Sayı =',enb);
end.

__________________
sana bilmedigm birşey söyleyemem bende hiç birşey bilmiyorum ne kadar iyilk varsa hepimz için hepimizn dilegi.gerisine direniyorm

cont

Algoritması

Oku N
sayac=0
x=0
Repeat
sayac=sayac+1
Oku sayı

if sayi>x then x=sayi

until sayac=N


Print x


Visual Basic ile
x=0
n=inputbox("Girilecek toplam sayı?")
for i=1 to n
sayi=msgbox("Sayi girin")
if sayi>x then x=sayi
next


msgbox x

__________________
www.gbak.net / www.ozcanbicak.com

Thunder55

her ikinizede çok teşekkür ederim.