WeWereRock
Başlayalım
Soru;
Klavyeden alınacak 3 sayının en büyüğünü ve en küçüğünü bulan program?
Nasıl yaparız?
Ben 3 sayı alırım. (a,b,c) olsun. Örnek program kodu,
Uses Wincrt;
var
a,b,c,enbuyuk,enkucuk:integer; -> Değişkenleri ve veri tiplerini girdik.
begin
writeln(’1.Sayiyi gir=’); readln(a); -> Sayıları aldırıyoruz tek tek
writeln(’2.Sayiyi gir=’); readln(b);
writeln(’3.Sayiyi gir=’); readln(c);
if (a>b) and (a>c) then enbuyuk:=a; -> Eğer a sayısı b den büyükse ve a sayısı c den büyükse, enbuyuk değerini a ya aktar. Bu mantıkla diğerlerini de yapıyorum.
if (b>a) and (b>c) then enbuyuk:=b;
if (c>a) and (c>b) then enbuyuk:=c;
writeln(’En buyuk sayi=’,enbuyuk); -> En buyuk sayiyi yazdiriyorum.
if (a<b) and (a<c) then enkucuk:=a; -> Eğer a sayisi b den küçükse ve c den küçükse enkucuk degerini a ya aktar. Ayni mantıkla diğerlerini de.. Böylece en kücük sayıları ve en büyük sayıları buldum.
if (b<c) and (b<a) then enkucuk:=b;
if (c<a) and (c<b) then enkucuk:=c;
writeln(’En kucuk sayi=’,enkucuk); -> En kücük değeri yazdırdım.
readln;
end.
Bunun başka yöntemi veya yolu var mı? Peki sizler nasıl yaparsınız?
Soru;
Klavyeden alınacak 3 sayının en büyüğünü ve en küçüğünü bulan program?
Nasıl yaparız?
Ben 3 sayı alırım. (a,b,c) olsun. Örnek program kodu,
Uses Wincrt;
var
a,b,c,enbuyuk,enkucuk:integer; -> Değişkenleri ve veri tiplerini girdik.
begin
writeln(’1.Sayiyi gir=’); readln(a); -> Sayıları aldırıyoruz tek tek
writeln(’2.Sayiyi gir=’); readln(b);
writeln(’3.Sayiyi gir=’); readln(c);
if (a>b) and (a>c) then enbuyuk:=a; -> Eğer a sayısı b den büyükse ve a sayısı c den büyükse, enbuyuk değerini a ya aktar. Bu mantıkla diğerlerini de yapıyorum.
if (b>a) and (b>c) then enbuyuk:=b;
if (c>a) and (c>b) then enbuyuk:=c;
writeln(’En buyuk sayi=’,enbuyuk); -> En buyuk sayiyi yazdiriyorum.
if (a<b) and (a<c) then enkucuk:=a; -> Eğer a sayisi b den küçükse ve c den küçükse enkucuk degerini a ya aktar. Ayni mantıkla diğerlerini de.. Böylece en kücük sayıları ve en büyük sayıları buldum.
if (b<c) and (b<a) then enkucuk:=b;
if (c<a) and (c<b) then enkucuk:=c;
writeln(’En kucuk sayi=’,enkucuk); -> En kücük değeri yazdırdım.
readln;
end.
Bunun başka yöntemi veya yolu var mı? Peki sizler nasıl yaparsınız?
Son düzenleme: