Pascal if then else kullanımları
Pascal if then else kullanımları
Verilen şartın doğru veya yanlış olması durumun istenen işi yapmak ve buna göre program akışını değiştirmek için kullanılır. Yazılımı:
IF Şart THEN komutlar Else komutlar
Girilen sayının pozitif yada negatif olduğunu bulan bir program yapalım.Örnek
uses crt;
a:integer;
begin
clrscr;
Write('sayi giriniz:'); Readln(a);
if a>0 then Writeln('pozitif')
else
if a<0 then Writeln('negatif')
else
if a=0 then Writeln('Sıfır');
Readln;
end.
Bu örnekte if a>0 then Writeln('pozitif') eğer a sayısı 0' dan büyükse pozitif yazdır.Değilse if a<0 then Writeln('negatif') eğer a sayısı 0' dan küçükse negatif yazdır.Değilse if a=0 then Writeln('Sıfır'); Girilen sayı 0 ise sıfır yazdır demek istedik....
Kategoriler : Pascal
Webbilgileri.com' da bilgilerinizi paylaşmak istiyorsanız.
Ders Ekle linkmizi kullanabilirsiniz.
2 Adet Yorum Bulunmaktadır.
Yazan : mystic
Tarih :23.10.2011 20:13:53
ya kardes bı komut var ama bı turlu ne gereklı bulamadım yenıyım pascalda yardımcı olurmusunuz kod: i (a<0)then neg:=neg+1; bu satıda hata verıyo then kısmında tıp uyusmazlıgı dıye hata verıyo ne yapmalıyım yardımcı olurmusunuz
Yazan : admin
Tarih :30.10.2011 19:20:33
if a<0 then
begin
neg=neg+1;
end;
bu şekilde bir yaz dene tabiki bunu yaparken değişkenlerini tanımlamayı unutma.
Makale hakkındaki yorumlarınız ?