Programlama Sitesi Hazır Program | C++ Builder Java C/C++ Php .Net

Pascal programlama dilinde yazılmış bu programda konsoldan girilen sayıların tam kare olup olmadığının testi yapılmaktadır. Girilen tüm sayıların karakökü ile round fonksiyonu yardımıyla hesaplanan karekökleri karşılaştırılır. Sonuçlar birbirinden farklı ise girilen sayı tam kare değildir. Round fonksiyonu içerisindeki bulunan değeri yakın olan tam sayıya yuvarlar. 

Program Kodu:

program bst_5_10;
uses crt;
var
i,k,b:integer;
a:real;
c:char;
Dizi:array[1..100] of real;
 
begin
writeln('Soru BST_5_10');
while c <> '*'do
begin
 writeln('Dizi boyutunu giriniz .. [1..100]');
 readln(b);
 writeln('Dizi degerlerini giriniz .. ');
 for i:=1 to b do
 begin
 readln(a);
 Dizi[i]:=a;
 end;
 k:=0;
 writeln('Dizi : ');
 for i:=1 to b do 
 begin 
 writeln(Dizi[i]);
 if round(sqrt(Dizi[i]))=sqrt(Dizi[i]) then k:=k+1;
 end;
 if k=b then begin writeln('Tum sayilar tam kare');
 end else begin writeln('Sayilar tam kare degil');
 end;
writeln('Programi sonlandirmak icin * karakterine basiniz');
readln(c);
end;
end.