Sayı Sıkıştırma ( Sayı Tahmin Programı)

Programın Kodları

Pascal

uses crt;
var {değişken tanımlama Bölümü}
a,b:integer; {a ve b yi tam sayı olarak tanımlıyoruz}
begin {ve programa başlıyoruz}
write('a sayisini gir :');readln(a); {a sayısını girdiriyoruz ve okutuyoruz[bulacağımız sayı]}
write('ilk sayiyi gir :');readln(b); {b sayısını girdiriyoruz ve okutuyoruz[tahmin etttiğimiz sayı]}
while(a<>b)do begin {Bu döngü 1 yada birden fazla şarta göre 1 yada 1 den fazla işlem amacı ile kullanılır}
if (a<b) then {Eğer a sayısı b sayısından büyükse:}
write('daha kucuk bir sayi giriniz...: ') {kullanıcıya daha küçük bir sayı gir mesajını veriyoruz}
else {Değilse}
write('daha buyuk bir sayi giriniz...: '); {kullanıcıya daha büyük bir sayı gir mesajını veriyoruz}
readln(b);
end; {Yukarıda açtığımız begin'i end; ile kapatıyoruz}
writeln('sayiyi buldunuz'); {burda ise sayı doğru tahmin edildiği zaman verilecek mesaj yer alıyor}
readln;
end.

C++

#include<stdio.h>
#include<conio.h>
#include<math.h>

int a,b;

main()
{
printf("a sayisini gir:");scanf("%d",&a);printf("\n");
printf("ilk sayiyi gir:");scanf("%d",&b);printf("\n");

while(a!=b)
{
if(a>b)printf("daha kucuk bir sayi gir..");
else
if(a<b)printf("daha buyuk bir sayi gir..");scanf("%d",&a);printf("\n");
}

printf("SAYIYI BULDUNUZ..");

getch();
}

NOT:Pascal programına küçük bir eklenti yaparak programı daha mantıklı
bir hale getirebiliriz. Bu da "write('a sayisini gir :');readln(a);"
ifadesinin hemen altına "clrscr;" komutunu ekleyelim.
Clrscr : Bu komut kendinden önce ekranda yazılan herşeyi temizler.
Peki bu bize ne avantaj sağlayacak. bulunacak sayıyı girdikten hemen
sonra bu komutu yazdığımızda tahmin edilecek sayı ekrandan temizlenecek
ve program daha mantıklı bir hale gelecektir.

...:::Kolay Gelsin:::...

	Gönderen	Konu: Sayı Sıkıştırma ( Sayı Tahmin Programı) (Okunma Sayısı 1127 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.